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Lizenzbedingungen Cluster ist kein urheberrechtsfreies Soft¬ 
warepacket. Die Benutzung von Cluster ohne eine gültige 
Lizenz ist hiermit untersagt. Kein Teil dieses Handbuches so¬ 
wie des dazugehörigen Programms darf in irgendeiner Form 
(Druck, Fotokopie oder einem sonstigen Verfahren) ohne 
schriftliche Genehmigung reproduziert oder vervielfältigt wer¬ 
den. Sämtliche Teile des Pakets sind nicht kopiergeschützt, 
um die Erstellung von Sicherheitskopien der Programmdisketten 
oder eine Installation auf Festplatte zu ermöglichen. Kopien 
dürfen lediglich zu Archivierungszwecken oder zur Instal¬ 
lation auf einem einzigen Amiga gemacht werden, jegliches 
weitere kopieren, sowie die Weitergabe von Kopien ist verbo¬ 
ten. Es wird hiermit daraufhingewiesen, daß alle Pakete eine 
laufende Registriernummer enthalten, und daß StoneWare, 
falls StoneWare eine nicht rechtmäßige Kopie von Cluster 
erhält, gegen den unter dieser Nummer registrierten Käufer 
rechtliche Schritte anstreben wird. 

Garantie StoneWare garantiert Ihnen den einwandfreien Zustand 
von Disketten und Handbuch. StoneWare kann leider keine 
Haftung für die Eehlerfreiheit von Programmen und Hand¬ 
buch geben. Weiterhin garantiert StoneWare in keiner Weise 
die Tauglichkeit des Programms für einen bestimmten Zweck. 
StoneWare haftet nicht für Schäden, die direkt oder indi¬ 
rekt durch die Beutzung von Cluster entstehen. Stone¬ 
Ware behält sich vor, Teile des Handbuches oder des Pro¬ 
gramms zu verändern, ohne jeden Anwender persönlich da¬ 
von in Kenntnis zu setzen. Sollten Eehler entdeckt werden, 
so ist StoneWare bestrebt, diese möglichst schnell zu korri¬ 
gieren. 


Warenzeichen Amiga, AmigaDOS, Kickstart, Workbench und 
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Intuition sind eingetragene Warenzeichen von Commodore- 
Amiga Ine. 


Dieses Handbuch wurde komplett auf einem Amiga mit dem HiTex- 
Editor 3.0 geschrieben und mit Amiga-TpjX gesetzt. 
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Vorwort 


Nach nun fast zwei Jahren, in denen der Cluster-Compiler auf dem 
Markt ist, war es an der Zeit, ein komplett neues Handbuch, so¬ 
wie eine stark überarbeitete Version der Software herauszugeben. 
Außerdem sind wir nun in der erfreulichen Lage über einen kompe¬ 
tenten Vertrieb an unserer Seite zu verfügen, so daß sich Cluster 
in der nächsten Zeit noch stärker verbreiten wird. 

Was bietet nun Version 2.0? Es hat sich einiges getan, seit 
Version 1.0 im Herbst 1990 das Licht der Kölner Messe erblik- 
kte. Dabei konnten wir vor allem auf die Erfahrungen und An¬ 
regungen unserer bisherigen Kunden zurückgreifen. Ein Ergebnis 
dieser Erfahrungen halten Sie im Moment in den Händen: Ein 
komplett überarbeitetes Handbuch, wobei besonders auf leichte 
Verständlichkeit für Anfänger großen Wert gelegt wurde. Da wir 
immer wieder den Hinweis erhielten, daß unser bisheriges Hand¬ 
buch für Neulinge recht problematisch sei, war dies auch nötig. 

Aber auch die Software hat grundlegende Veränderungen er¬ 
fahren, so wurde der Compiler überarbeitet, so daß er Code für alle 
680XX Prozessoren generieren (bis hin zum 68040), sowie Libra¬ 
ries und Devices erzeugen kann. Die Betriebsystemmodule wurden 
an OS 2.0 angepaßt. Als letzte Neuerung kam nun auch ein neuer 
Editor hinzu, da der normale, nicht User-Interface-Styleguide kon¬ 
form programmiert, immer wieder Kritikpunkt von Clustergegnern 
war. Selbstverständlich wird der normale Editor, in einer überarbeiteten 
Version, weiterhin ausgeliefert, da es viele Clusterprogrammierer 



gibt, die diesen ebenso wie ich schätzen. Im Zuge dieser Neuerung 
werden nun auch Cli-Versionen von Compiler, Linker, Loader und 
Make ausgeliefert, die über AREXX von jedem Editor aus ans¬ 
prechbar sind. 

Jedoch nicht nur die Bedienung der einzelnen Programme hat 
sich verbessert, nein auch die Sprache selbst wurde nochmals überarbeitet 
und erweitert. So verfügt sie nun über objektorientierte Elemente 
(Objekte, Methoden einschließlich Mehrfachvererbung und dyna¬ 
misches Binden), benutzerdeünierte Exceptions (Ausnahmebehand¬ 
lung, welche selbst unter C-F-F noch im Versuchsstadium ist), ein 
mächtiges Resourcehandlingsystem und vieles mehr. Lassen Sie 
sich also überraschen. 

Aufgrund dieser Neuerungen empfehle ich jedem auch schon er¬ 
fahrenen Clusterprogrammierer, die Einführung in Cluster kom¬ 
plett zu lesen, auch wenn einiges trivial erscheinen sollte. 

An dieser Stelle möchte ich mich nun bei all jenen bedanken, 
die uns bei der Eertigstellung dieser neuen Version unterstützt 
haben, sei es durch tatkräftige Hilfe bei Software und Handbuch 
oder auch nur durch Vorschläge und konstruktiver Kritik. 


Thomas Pfrengle 
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KAPITEL 1. EINFÜHRUNG 


Heute spricht alles von EDV, Computersteuerung, Computer Über¬ 
wachung, vom Segen der Computer und mindestens ebenso oft von 
den Gefahren, die von Computern ausgehen, vom Datenschutz, 
vom gläsernen Menschen und dem Uberhandnehmen der Infor¬ 
mationsflut. In immer neue Bereiche dringt der Computer heute 
vor, doch den wenigsten Menschen ist eigentlich bewußt, was ein 
Computer genau ist, und wie er arbeitet. Wir sind uns sicher, 
daß auch einige von Ihnen bisher ihren Computer benutzt, viel¬ 
leicht sogar in BASIC programmiert haben, ohne sich über die 
inneren Abläufe Ihres Computers zu kümmern. Daher möchten 
wir Ihnen hier einen kleinen Überblick über die Arbeitsweise Ihres 
Computers geben, um Ihnen möglicherweise das Verstehen man¬ 
cher Vorgehensweisen beim Programmieren zu erleichtern. 

Früher in der Anfangsphase der Entwicklung des Computers 
hätte man einfach sagen können, ein Computer sei eine Rechenma¬ 
schine. Heute jedoch scheint dies nur noch in den wenigsten Fällen 
zuzutreffen. Computer haben scheinbar nur noch selten etwas mit 
Zahlen zu tun. Vielmehr schreibt man auf ihnen Texte oder läßt 
den Computer Texte korrigieren. Sie steuern Maschinen in allen 
Bereichen der Technik und überwachen Produktionsabläufe. Ja 
sogar ganze Filmsequencen wie z. B. in „Terminator 2“ werden 
heute mit Computern erzeugt. Wenn man jedoch genauer hin¬ 
sieht, stellt man fest, daß der Computer auch hier nur mit Zahlen 
jongliert, allerdings auf besondere Weise. 

Eine Maschine zu konstruieren, die dem Menschen die Reche¬ 
narbeit abnimmt und welche auch noch schneller als er ist, war 
der Traum der Menschen, seit sie Zahlen verwenden. Blaise Pas¬ 
cal entwarf im 17. Jahrhundert eine erste mechanische Rechenma¬ 
schine, die alle Grundrechenarten beherrschte. Leider wurde sie 
nie gebaut, und erst in heutiger Zeit weiß man, daß sie tatsächlich 
funktioniert hätte. Allerdings hätte man sie aufgrund der großen 
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Reibung der vielen hundert Rädchen, Achsen und Steuerteile nicht 
betreiben können. 

Erst am Anfang unseres Jahrhunderts wurde die erste Rechen¬ 
maschine auf elektrischer Basis entwickelt, allerdings nahm sie 
noch den Platz einer kleinen Turnhalle ein. Interessant ist aller¬ 
dings, daß aus dieser Zeit der Röhren und Relais sich der Begriff 
„Bug“ gehalten hat, der daher kommt, daß immer wieder Käfer 
(englisch Bugs) sich in den Computer verirrten und Kurzschlüsse 
verursachten. So spricht man auch heute noch bei Programmfeh¬ 
lern von Bugs oder von Debugging bei der Fehlersuche. 

Erst in den 60er Jahren wurden Computer so klein, daß man 
sie problemlos in ein Zimmer stellen und transportieren konnte. 
Seither hat sich allerdings bis auf die Geschwindigkeit, der Spei¬ 
chergröße und der Rechnergröße nicht mehr viel geändert. 

Wie aber abeitet nun ein solcher Computer? 

Das Herz des Computers ist der Prozessor. Er ist das ausführende 
Organ, nur er kann rechnen und weiß, was er wann zu tun hat. 
Im Prinzip ist die Aussage, daß er weiß, was er zu tun hat, nicht 
ganz richtig, da der Computer immer nur einem Programm folgt. 
Ein solches Programm ist nun eine Folge von Befehlen und wie 
könnte es anders sein, da ein Prozessor nur Zahlen kennt, sind 
auch die Befehle Zahlen, wobei jede eine bestimmte Bedeutung 
hat. Diese Befehle stehen nun nacheinander im Speicher. Dieser 
besteht aus Millionen kleiner Einheiten, die die Zustände 0 oder 
1 darstellen können. Diese Einheiten nennt man auch Bits. Der 
Übersicht wegen werden jeweils acht solcher Bits zu einem Byte 
zusammengefaßt. 

Die einzelnen Befehle können nun verschiedenes bewirken, z. B. 
zwei Zahlen addieren oder das Programm an einer anderen Stelle 
im Speicher fortsetzen. Es ist jemandem kaum zuzumuten, sich all 
diese Zahlen zu merken und mit ihnen zu programmieren. Anfangs 



4 


KAPITEL 1. EINFÜHRUNG 


wurde dies mit Lochkarten so gemacht: Man ordnete jeder Zahl 
einen kurzen Namen zu, welcher dann von einem Programm in 
den Maschinen-Code übersetzt wurde. Diese sehr primitive Pro¬ 
grammiersprache nennt man Assembler und wird auch heute noch 
verwendet. Jedoch haben alle Assembler-Befehle gemeinsam, daß 
ein einzelner Befehle nicht allzuviel bewirkt. Man benötigt also 
sehr viel mehr Befehle in Assembler, als in einer Hochsprache 
wie Cluster. Außerdem bietet Assembler neben dem Vorteil der 
hohen Geschwindigkeit, da der Prozessor voll ausgenutzt werden 
kann, noch einige Nachteile: So muß sich der Programmierer selbst 
darum kümmern, wo im Speicher seine Daten liegen. Es wird nicht 
überprüft, ob man z. B. versucht einen Buchstaben zu quadrieren. 
Daraus folgt natürlich eine viel höhere Fehleranfälligkeit bei der 
Assemblerprogrammierung, als dies bei einer Hochsprache der Fall 
ist. 

Eine Hochsprache nun benutzt normalerweise kurze Anwei¬ 
sungen im Klartext, wie beispielsweise IF (Falls), REPEAT (wie¬ 
derhole), so daß ein solches Programm relativ leicht lesbar ist. 
Außerdem bewirkt manch ein Hochsprachenbefehl meist mehr als 
ein vergleichbarer Assemblerbefehl. 

Nun gibt es generell zwei Verfahren wie Hochsprachen arbeiten, 
entweder als Interpreter wie z. B. BASIC oder als Compiler wie 
z. B. C, Modula oder Cluster. 

Ein Interpreter nimmt sich jeden Befehl einzeln vor, übersetzt 
ihn in die entsprechende Maschinencodefolge und führt ihn aus. 
Dies geschieht bei jedem Programmstart von neuem ebenso bei 
Programmteilen, die mehrfach aufgerufen werden — jedesmal wird 
neu übersetzt. Dies hat natürlich zwei große Nachteile: Einmal 
kostet der Übersetzungsvorgang viel Zeit, zum anderen muß bei 
jedem Programmstart auch der Interpreter im Speicher sein, so 
daß 1 MB rasch knapp werden kann. 
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Ein Compiler hingegen übersetzt einmal das Programm und 
speichert es dann in übersetzter Form ab, so daß das Programm 
danach alleine lauffähig ist. Ein Nachteil ist offensichtlich, vor 
dem Start muß erst übersetzt werden. Allerdings glauben wir, 
daß dieser kleine Nachteil durch unseren schnellen Compiler und 
den sehr viel schnelleren Programmen mehr als ausgeglichen wird. 

Bei Sprachen wie z. B. Cluster oder Modula, die eine Pro¬ 
grammteilung in einzelne Module zulassen, müssen diese einzelnen 
Teile zu einem fertigen Programm zusammengefaßt werden. Diese 
Aufgabe übernimmt der Linker, er verbindet die bereits compilier- 
ten Module zum ausführbaren Programm. 

An dieser Stelle soll nun die Theorie enden. Einen Compu¬ 
ter mit all seinen Einzelheiten zu beschreiben, würde den Rahmen 
dieses Handbuches um ein vielfaches sprengen, im Kapitel ste¬ 
hen noch einige Informationen über die interne Arbeitsweise eines 
Computers. Stattdessen wollen wir gemeinsam unser erstes Pro¬ 
gramm in Cluster schreiben. 

Dazu installieren Sie bitte Cluster auf ihren System. Wie 
dies geschieht erfahren Sie unter 2.1 ab Seite danach kommen 
Sie bitte hierher zurück. 

Wenn alles gut gegangen ist, müßte Cluster nun auf Ihrem 
System einsatzbereit sein. Falls Sie Cluster auf Disketten ins¬ 
talliert haben, booten Sie mit der Bootdiskette, starten Sie den 
Editor, und legen Sie Ihre Cluster-Diskette in das Laufwerk. Falls 
Sie über eine Festplatte verfügen, booten Sie wie gewohnt und 
starten den Editor. 

Nun müßten Sie vor sich das Fenster des Editors sehen können 
und darin ein kleines farbiges Rechteck, den Cursor. Er gibt die 
Schreibposition an. Nun geben Sie bitte folgenden Programmtext 
ein, bitte achten Sie darauf, daß ihnen dabei kein Fehler unterläuft, 
Computer sind irrsinnig pingelig. 
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MODULE ErstesProgramm; 

FROM InOut IMPORT WriteGrp; 

VAR 

i : INTEGER; 


BEGIN 

FÜR i:= 1 TO 10 DO 

WriteStringC"Mein erstes Clusterprogramm");WriteLn; 
END 

END ErstesProgramm. 


Nachdem Sie dies getan haben, speichern Sie den Text in das Ver¬ 
zeichnis „Cluster :Work/txt“ unter dem Namen 
„ErstesProgramm.mod“. Falls Sie mit dem normalen Cluster- 
Editor arbeiten, erreichen Sie den Filerequester über 


SHIFT + 


F6 


(SAVE ) , falls Sie mit dem neuen HiTex-Editor arbeiten 
wählen Sie aus dem Menne „Project“ „Save as...“ aus. 

, um den Text zu compilieren 


Danach drücken Sie auf 


F8 


Hat 


der Compiler den Text ohne Fehlermeldung übersetzt, können Sie 

drücken, um das Programm zu starten. Nun sollte 


nun 


Alt 


+ 


F8 


in einem Ausgabefenster der Text „Mein erstes Clusterprogramm“ 
erscheinen. 

Hat der Compiler jedoch einen Fehler gemeldet, prüfen Sie 
bitte, ob Sie alles so eingegeben haben, wie es hier steht. 

Prima, Sie haben eben Ihr erstes Clusterprogramm geschrie¬ 
ben und gestartet. Nun wollen wir Sie aber nicht länger aufhalten, 
sondern wünsche Ihnen viel Spaß mit Ihrer neuen Programmiers¬ 
prache. Sollten Sie einmal fast über einem Fehler verzweifeln, 
denken Sie immer an folgende zwei Regeln: 


Der Computer macht immer nur das, was Sie ihm sagen. 
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• Der Fehler steckt meist in dem Programmstück, in dem man 
ihn am wenigsten vermutet. 



Cluster la vista ! 
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Die meisten Compiler, die derzeit auf dem Markt sind, beste¬ 
hen aus getrennten Komponenten: Editor, Compiler, Linker, und 
gelegentlich ist noch ein Debugger vorhanden. Dies hat jedoch 
zur Folge, daß man vor jedem Übersetzen erst den Editor verlas¬ 
sen muß, sofern man nicht genug Speicher hat um alle Programme 
gleichzeitig im Speicher zu halten, um das Programm vom CLI 
oder Workbench aus zu compilieren. Dasselbe ist dann mit dem 
Linker zu machen und so weiter. 

Da dies nun doch ein ziemlicher Aufwand ist, und gerade de¬ 
shalb Anfänger von einer Compilersprache abhält, greifen diese lie¬ 
ber zu Basic, bei dem man direkt aus dem Editor sein Programm 
starten kann, ohne dabei einen riesigen Aufwand zu haben. 

Doch auch erfahreneren Programierern geht die oben beschrie¬ 
bene Prozedur mit der Zeit auf die Nerven. Vor allem, da gerade 
aufgrund des erneuten Einlesens des Quelltextes durch den Com¬ 
piler viel Zeit verloren geht. (Computerfreaks sind ja bekanntlich 
von Natur aus ungeduldig, und jeder an sich überflüssige Tasten¬ 
druck ist schließlich nach der hundertsten Wiederholung zuviel). 

Aus diesem Grund beschlossen wir einen anderen Weg zu gehen 
und den Komfort eines Interpreters mit den Vorzügen eines Com¬ 
pilers zu verbinden. So entstand eine Entwicklungsumgebung, bei 
der Editor, Compiler, und Linker (in naher Zukunft auch ein De¬ 
bugger) in einem einzigen Programm verbunden sind. Die Folge 
ist, daß man nun direkt aus dem Editor (= Speicher ^ schnell) 
compilieren, linken und das Programm auch direkt starten kann. 

Selbstverständlich beündet sich auch noch eine über ARexx 
ansteuerbare CLI-Version von Compiler und Linker auf der Dis¬ 
kette, damit Sie auch weiterhin ihren Lieblingseditor verwenden 
können, ohne dabei auf Komfort verzichten zu müssen. 
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2.1 Installation 

Achtung: Bevor Sie irgendeinen der nächsten Schritte 
ausführen, legen Sie die erste Diskette ein, und schauen 
Sie nach, ob sich darauf ein File „ReadMe“ befindet. 
Falls dem so ist, führen Sie einen Doppelklick darauf 
aus, und lesen den Text genau durch. Dort finden Sie 
nämlich eventuelle letzte Änderungen, die nicht mehr in 
das Handbuch aufgenommen werden konnten. 

Bevor Sie die Entwicklungsumgebung (im folgenden „EU“ ge¬ 
nannt) benutzen können, müssen Sie Cluster auf ihrem Rechner 
installieren. Hierzu dient das Programm „Cluster Install“, das 
Sie auf der ersten Diskette finden. 

Starten Sie es einfach von der Workbench, und folgen Sie den 
Anweisungen, die das Programm ihnen gibt. 

Falls Sie das Programm auf Festplatte installiert haben, ist die 
EU sofort einsatzbereit. 

Falls Sie Disketten benutzen, booten Sie jetzt von „Cluster- 
Boot“. Legen Sie die Arbeitsdiskette „Cluster“ in Ihr zweites 
Laufwerk. Falls Sie nur eines besitzen, legen Sie sie ein, sobald 
Sie dazu aufgefordert werden. 

2.2 Aufruf und Parameter 

2.2.1 Start von der Workbench 

Von der Workbench starten Sie die EU einfach, indem Sie auf das 
Editor-Icon mit der Maus einen Doppelklick ausführen. Sie haben 
dabei die Möglichkeit, durch eine erweiterte AuswahJ^ einen oder 

^Dies geschieht, indem Sie die Shift-Taste gedrückt halten und dabei mit 
der Maus die gewünschten Texte durch einen einmaligen Klick anwählen; dann 
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mehrere Texte beim Start mit einzuladen, wobei bei mehreren 
Texten diese in getrennten Fenstern untergebracht werden. 

Eine weitere Möglichkeit die EU zu starten besteht darin, auf 
ein gewünschtes Text-Icon einen Doppelklick auszuführen, sofern 
sich der Editor im Verzeichnis „Cluster:“ befindet (wenn nicht 
müssen Sie erst den Default Tool Eintrag Ihrer Texte mit dem Info- 
Befehl der Workbench ändern). Dadurch wird die EU gestartet 
und der angewählte Text geladen. Führt man einen Doppelklick 
auf ein Icon eines gespeicherten „OldStates“ aus, wird die EU 
gestartet, und dieser State geladen. 

(OldStates: siehe 2.4.7) 


2.2.2 Start von der SHELL/CLI 

Von Shell/CLI rufen Sie die EU unter folgendem Format auf: 

Editor {TextNamen} jOldState 

Werden dabei mehrere Textnamen hintereinander angegeben, wird 
für jeden Text ein Textfenster geöffnet. Gibt man einen „OldState“ 
als Parameter an, wird dieser geladen. 

Der Aufruf der ARexx-Version von Compiler, Linker, Loader 
und Make werden in einem eigenem Kapitel weiter hinten bes¬ 
chrieben. 


wählen Sie den Editor mit immer noch gedrückter Shift-Taste und einem Dop¬ 
pelklick an. 
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2.3 Allgemeine Bedienung des Editors 


2.3.1 Bildschirmaufbau 


fIFFGrabcr.Möd 

aur/M 


14 ul; 


i; V\f r r 

r4! 


[HPORT IFFPictures RS IFF; 

IHPORT f^rgunents RS f)rg; 

[HPORT Intuition RS Intui; 

(HPORT Dos; 

)E6IH 

IFF.SaveConpress!=TRUE; 

Dos.De[äy(200)j 
IFF.SaveIcon:=FALSE; 
ir Arg.NunArgs=l THEH 

IFF.Sa velLBHdntui.IntuiBase^.first Screen,Arg. flrg(0)); 

EHOj 

CLOSE 

[HD IFFGraber. 


(TIOPEN ■'FLOflD ■'fMRRR ■'<'C0MPIL‘'fPR03RT''TERROR 
THCLOSE’' rsRVE TCOMRRR’' TLINK TPRRRHS’' TPREVER"' j 

"'THENUE ■'r5flVEH5''f5WPHflR''^lÜN“ 
riNSHOD^fGOBLR ^TREPLRC^fDELETE^TFONT VBRVRLL^fUNDO ^^HRRT 
rDUPLIN''TDELBLR''._)TMOVE ^TINFO ^roELIxr._ U _1 tmrcroS’'TEXIT ''j 


__TI ETv 

riNBLIN’' TBBTRRT'' TBERRCH’' fPRBTE 
TDELLIN^TBEND ^TREXT ^<^ÖPY' 
rCLRLlN''fBFÖLD ‘'TGÖTO 


■^TPRLÖflD’'fGLöBflL''| 

■^rPRBRVE^flCONn^l 


Im oberen Teil des Bildschirms befindet sich die Titelzeile; jedes 
Fenster hat seine eigene (wie Sie neue Fenster öffnen, kommt 
später). In ihr steht der Name des aktuellen Textes (1), dane¬ 
ben beffnden sich zwei Felder mit Nummern, wobei das erste ( 2 ) 
die aktuelle Zeile, das andere (3) die aktuelle Spalte angibt, in der 
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sich der Cursoij^ gerade befindet. 

Ein kleines Stück weiter rechts befinden sich eine Reihe von 
Symbolen, wovon uns zunächst mal nur das erste und die letzten 
vier interessieren. Das erste (4), mit einem großen Rechteck neben 
einem kleinen, schaltet auf Mausklick zwischen dem großen und 
dem kleinen Font (Zeichensatz) um. Die vier Pfeile (5) dienen 
dazu, den Text in die entsprechende Richtung zu scrollen|^ 

Am unteren Bildschirmrand befindet sich das Menü, seine Be¬ 
dienung wird in |2.3.2| erklärt. An der Lasche mit der Aufschrift 


Cluster (6) kann man das Menü fassen und nach unten oder oben 
schieben. Die beiden Pfeilen rechts (7) dienen dazu, das Menü 
entweder ganz ein- oder ganz auszufahren. 


2.3.2 Benutzung des Menüs 

Die einzelnen Punkte des Menüs lassen sich durch die Maus an¬ 
wählen, indem man sie mit der linken Taste anklickt. Da sich der 
gesamte Editor sowohl über die Maus, als auch über die Tastatur 
bedienen läßt, können Sie auch alle Menüfunktionen über Tasten, 
bzw. über Tastenkombinationen erreichen (so daß man nach ein 
bißchen Übung das Menü ruhig nach unten schieben kann, um 
statt dessen mehr Textzeilen zur Verfügung zu haben). Jedoch 
nicht über so komplizierte Kombinationen wie z. B. Ctrl-|-x-Esc-|-j, 
die Sie sicher aus anderen Programmen her kennen, sondern ganz 
einfach auf folgende Weise: 

Das Menüfeld besteht aus zweimal fünf (also 10) Spalten, jede 
dieser Spalten entspricht einer Funktionstaste also 
der zweiten, und so weiter bis 


Fl 


der ers¬ 


ten, 


F2 


FlO 


für die zehnte Spalte. 
Des weiteren besteht es aus fünf Zeilen, wovon sich die Felder in 


^Ein kleines blinkendes Rechteck, das die Schreibposition angibt 
^Der Textausschnitt wird entsprechend weiterbewegt 
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der ersten durch die entsprechende Funktionstaste erreichen läßt 
(z. B. F4 für PASTE), die in der zweiten durch die entspre¬ 
chende Funktionstaste zusammen mit den Shift -Tasten (z. B. 

SHIFT -|- F3 für NEXT), die dritte Zeile entsprechend zusam¬ 
men mit den Alt -Tasten, die vierte mit Ctrl und die fünfte mit 
den A -Tasten. 

Im übrigen ist das Menü so aufgebaut, daß die wichtigsten 
Funktionen in den oberen Zeilen, und die unwichtigeren oder gar 
gefährlichen in den unteren liegen. Dadurch haben Sie die Möglichkeit, 
das Menü nur ein paar Zeilen auszuziehen und dennoch problemlos 
zu arbeiten. Andererseits besteht nicht die Gefahr, durch vertip¬ 
pen z. B. etwas zu löschen, denn Ctrl -|- F4 drückt man nicht so 
leicht wie nur z. B. F4 . 

Die leeren, vertieft liegenden Felder sind noch nicht mit Funk¬ 
tionen belegt und für Updateversionen vorgesehen. 
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2.3.3 Bedienung der Requester 


Auch wenn oben schon einmal erwähnt, sei noch einmal betont, 
daß sich alle Requester komplett sowohl durch die Maus als auch 
durch die Tastatur bedienen lassen. Ausgenommen sind natürlich 
Namenseingaben. 

Zur Bedienung mit der Maus, einfach den gewünschten But- 
ton0 anklicken. 

Bei Benutzung des Keyboards dient ein blinkendes Rechteck 
(der Einfachheit halber im Folgenden auch Cursor genannt) dazu, 
das gewünschte Feld auszuwählen. Zu diesem Zweck kann man ihn 
mit den Cursortastenj^ von Gadget zu Gadget bewegen. Um die 
Funtion auszuführen, muß man dann nur noch Return (manch¬ 
mal auch zweimal) drücken. 

Die Anfangsposition wurde extra immer so gewählt, daß auch 
durch ein übereiltes Return nichts zerstört werden kann. 

Zur Benutzung der Stringgadgets (Felder zur Eingabe von Zei¬ 
chenketten) sei nur gesagt, daß man durch drücken von SHIFT -|- 
Del einen bestehenden Namen löschen, mit der Maus den Cur¬ 
sor bewegen, und sogar Macros (dazu später) in ihnen verwenden 
kann. 

Bei Stringrequestern, die zur Eingabe eines Pfades dienen, 
erhält man nach drücken von Help einen Filerequester, mit dem 


sich der entsprechende Pfad zusammenbauen läßt. 

Eine besondere Art von Stringgadgets sind Felder, die zur Ein¬ 
gabe von Zahlen dienen. 

Hier haben Sie Möglichkeit, direkt im Gadget zu rechnen. Wol¬ 
len Sie z. B. den Inhalt verdoppeln, so müssen Sie nur und „2“ 
und Return drücken, und die Rechnung wird ausgeführt. Das selbe 


^ Knopf, Gadget 

^Pfeiltasten neben der Returntaste 
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funktioniert natürlich auch mit allen anderen Rechenarten. 

In einigen Requestern hnden sich Tasten, die bei Betätigung 
den Eindruck erzeugen, nun nicht mehr erhaben (= aus) son¬ 
dern vertieft (= an) zu hegen, sonst aber nichts bewirken; sie 
dienen dazu, Einstellungen vorzunehmen, die zur Ausführung an¬ 
derer Eunktionen nötig sind, etwa ob ein Text im ASCII- oder im 
Clusterformat gespeichert werden soll. 

In wieder anderen beünden sich Gadgets, die wie Schieberegler 
aussehen (Proportionalgadgets), wie sie z. B. zur Earbeinstellung 
verwendet werden. Man bedient sie, indem man entweder mit der 
Maus den Knopf faßt (anklicken und Mausknopf gedrückt halten) 
und ihn bewegt, ober- oder unterhalb in das Eeld klickt, wodurch 
der Knopf schrittweise auf den Mauszeiger zuwandert, oder den 
Cursor auf den gewüschten Schieber bewegt und ihn durch die 
entsprechenden Cursortasten (auch mit Alt oder Shift) verstellt. 

Des weiteren haben alle Requester gemeinsam, daß man sie 
über die Esc -Taste verlassen kann (die entspricht dem Cancel- 
Button). 
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2.3.4 Laden eines Textes 



Um einen Text zu laden drücken Sie 


F6 




(LOAD 


sollte 


sich ein noch nicht gesicherter Text im Speicher beünden, wird 
selbstverständlich zuerst noch einmal nachgefragt, ob er nicht erst 
noch gesichert werden soll. Danach wird ein Requester geöffnet. 

Er besteht aus einer Anzeige des aktuellen Verzeichnisinhalts 
(!)■ Das Verzeichnis wird jedoch erst geladen, wenn man in das 


^Der Text in einer solchen Box hinter der Tastenkombination gibt die 
Abkürzung des entsprechenden Menüfeldes bei Mausbenutzung an 
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Anzeigefeld mit der Maus klickt oder mit dem Cursor hinein fährtj^ 
(Dies spart Zeit, besonders bei der Arbeit mit Diskettenlaufwer¬ 
ken). Darin werden Verzeichnisse und Dateien, die sich im ein¬ 
gestellten Verzeichnis beünden, alphabetisch aufgelistet, Verzeich¬ 
nisse oberhalb der Files in dunkler Schrift. 

Rechts daneben beündet sich eine Scrollbox ( 2 ), die die vo¬ 
rhandenen Laufwerke beinhaltet. Real vorhandene (physikalische) 
Laufwerke werden in dunkler Schrift oberhalt von denen ange¬ 
zeigt, welche mit dem Assign-Befehl erstellt wurden (logische Lauf¬ 
werke). Näheres zu diesem AmigaDOS-Befehl lesen Sie bitte in 
Ihrem AmigaDOS-Handbuch nach. 

Unterhalb dieses Feldes hegt eine Auswahlbox (3) mit vorein¬ 
gestellten Pfaden. Dazu später mehr. 

Um ein File, Laufwerk oder voreingestellten Pfad auszuwählen, 
kann man ihn mit der Maus anklicken oder mit dem Cursor, der in¬ 
nerhalb der Auswahlfelder zu einem Markierungsbalken (4) wird, 
anfahren und auf Return drücken. Gibt man in der Auswahl¬ 
box für Files ein Zeichen ein, springt der Markierungsbalken auf 
den ersten Eintrag, der mit diesem Zeichen beginnt. Drückt man 
beim Bewegen des Markierungsbalkens mit den Cursor-Tasten auf 
SHIFT , kann man an das obere oder untere Ende des Auswahl¬ 


feldes springen. 

Ist ein Verzeichnis so groß, daß der Platz in der Auswahlbox 
nicht ausreicht, kann deren Inhalt mit den Proportional-Gadgets 
(5) gescrollt werden. Beündet sich der Cursor auf einem solchen 
Gadget, kann man dieses auch mit den Cursortasten bewegen. 
Drückt man dabei auf 


Alt 


springt man seitenweise, mit 


SHIFT 


springt man an den Anfang oder das Ende der Liste. 


®Dies geschieht nur dann, wenn das Verzeichnis gewechselt wurde. Wurde 
schon zuvor ein Text aus diesem Verzeichnis geladen, wird es sofort angezeigt, 
da sich der Verzeichnisinhalt noch im Speicher befindet. 
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Um das Verzeichnis, das gerade angezeigt wird, zu wechseln, 
kann man im Stringrequester PATH (6) einen neuen Pfad einge¬ 
geben oder mit dem Markierungsbalken oder der Maus ein Unter¬ 
verzeichnis, ein Laufwerk oder einen vordefinierten Pfad auswählen. 
In das übergeordnete Verzeichnis gelangt man durch Anwählen 
von PARENT (8). 

Mit CHDIR (9) kann man das momentane Verzeichnis zum 
Standardverzeichnis erklären, welches alle neuen Texte gemein¬ 
sam haben werden. Um von einem anderen Verzeichnis in das 
Standardverzeichnis zurückzukehren, muß man ACTDIR (10) 
anwählen. 

Da der Verzeichnisinhalt im Speicher gehalten wird, um unötige 
Wartezeiten zu vermeiden, muß man, wenn das Verzeichnis von ei¬ 
nem anderen Programm oder der Workbench bzw. SHELL geändert 
worden ist, die Anzeige auf den neuesten Stand bringen. Dies ges¬ 
chieht mit RELOAD (11). 

Um Pfade, die man oft benötigt, leichter zu erreichen, haben 
Sie die Möglichkeit, diese unter einem Kürzel abzuspeichern. Dies 
geschieht, indem Sie über eine der oben genannten Möglichkeiten 
einen Pfad auswählt und danach auf ADD (12) klickt. Darauf¬ 
hin wird man aufgefordert, eine Abkürzung für diesen Pfad ein¬ 
zugeben. Ist dies geschehen, findet man den neuen Pfad in der 
Auswahlbox. Um einen solchen voreingestellten Pfad zu löschen, 
klickt man auf den zu löschenden Pfad, und danach auf SUB 
(13). 

Um ein File zu laden, kann man dessen Namen im Stringre¬ 
quester FILE (7) eingeben und auf OK (14) klicken oder ein 
File mit der Maus und einem Doppelklick auswählen. Außerdem 
können Sie eine Datei mit dem Markierungsbalken und einem Dop- 

®Dieses Verzeichnis wird von nnn an immer angezeigt, wenn ein Dateire- 
qnester dargestellt wird. 
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pelreturn auswählen. 

Durch Drücken des Gadgets C ANGEL (15) können Sie den 
Filerequester verlassen, ohne ein Aktion auszuführen. 


2.3.5 Bewegung im Text 
2.3.5.1 Bewegung in der Zeile 

Bei jeder Zeicheneingabe bewegt sich der Cursor eine Spalte wei¬ 
ter nach rechts. Durch Drücken von | ^ | / | ^ | bewegen Sie ihn 
eine Spalte links/rechts, zusammen mit der Alt -Taste springt er 
wortweise, zusammen mit SHIFT springt er an den Anfang oder 
das Ende einer Zeile. 

Bewegen Sie den Cursor weiter nach rechts, scrollt der Editor 
automatisch den Text nach links, bis Spalte 253. Das heißt, daß 
Sie pro Zeile für 254 Zeichen Platz haben. 

Weiterhin besitzt der Editor eine Tabfunktion. Durch Drük- 
ken der Tabtaste springt der Cursor nach rechts, durch SHIFT 

Tab nach links, der Betrag des Sprunges ergibt sich aus dem 
eingestellten Tabmodus: 


• Tabindent 

Der Cursor springt immer unter den nächsten Wortanfang 
der vorhergehenden Zeile. Dadurch sind auch Spalten ohne 
konstanten Abstand möglich, was vor allem z. B. bei Varia- 
blendeünitionen zu größerer Übersichtlichkeit beiträgt. 

• Normaltab 

Bei diesem Tabulator, haben alle Stops einen konstanten 
Abstand, den Sie über Ctrl -|- Tab ändern können. 


Um zwischen diesen beiden Modi zu 
+ Tab . 


wechseln, drücken Sie Alt 
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2.3.5.2 Bewegung im Text 

Durch T / [^ bewegt sich der Cursor eine Zeile nach oben oder 
unten, gerät er dabei an den oberen oder unteren Fensterrand, 
scrollt der Text automatisch nach; mit 
tenweise, mit SHIFT 


Alt 


bewegt er sich sei- 
an den Anfang/Ende der Seite bzw. des 

Textes. 

Mit der Maus kann man den Cursor zum einen, wie unter 
erwähnt, über die vier Pfeilsymbole in der Fenstertitelleiste durch 
den Text bewegen, zum anderen durch Klicken mit der linken 
Taste an eine beliebigen Position, in ein beliebiges Fenster setzen. 
Um eine bestimmte Zeile anzuspringen, brauchen Sie nur 


Alt 


(goto ) drücken, oder direkt mit der rechten Maustaste 
in die Zeilenanzeige in der Fenstertitelzeile klicken. Daraufhin er¬ 
scheint dort ein Cursor, und Sie können die gewünschte Zeilen¬ 
nummer eingeben, welche dann nach Drücken von Return anges¬ 
prungen wird. 

Für die Returntaste existieren zwei verschiedene Modi: In dem 
einen trennt Return die aktuelle Zeile an der momentanen Cursor¬ 
position, fügt eine neue Zeile ein, und springt in diese unter den 
Anfang der vorhergehenden Zeile, wie man es aus Text Verarbei¬ 
tungen kennt. 

Im anderen Modus (Werkseinstellung) bewegt Return den Cur¬ 
sor nur an den Anfang, ohne die Zeile zu trennen; ist die nächste 
Zeile leer, wird der Cursor unter das erste Zeichen der vorherge¬ 
henden Zeile gesetzt. 

Wird in diesem Modus eine ehemals leere Zeile nach der Bear¬ 
beitung mit Return verlassen, wird automatisch eine neue Leer¬ 
zeile eingefügt. 
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2.3.5.3 Suchen im Text 

Sie können mit F3 (SEARCH ) ein bestimmtes Wort anspringen. 
Die Suche beginnt von der aktuellen Position des Cursors ab und 
der Cursor wird dann auf die Position des ersten Vorkommens 
gesetzt. 

Mit SHIFT + F3 (NEXT ) springen Sie jeweils bis zum 
nächsten Auftreten des Suchbegriffes. 

2.3.5.4 Die Marke 

Sie dient ebenfalls der Cursorsteuerung. In jedem Textfenster kann 
man eine eigene Marke mit Hilfe von F7 (MARK ) setzen. 

Diese kann danach von jeder beliebigen Textstelle durch SHIFT 
+ F7 ( G DMARK ) wieder angesprungen werden. 

Durch Drücken von Alt + F7 (SWPMAR ) wird die Marke 

an die augenblickliche Cursorposition gesetzt und der Cursor auf 
die alte Marke. So kann man durch mehrmaliges Drücken von 
ALT + F7 zwischen zwei Textstellen hin und her springen. 

Wenn Sie Alt + Help drücken, wird ebenfalls eine Marke 
an die Cursorposition gesetzt, gleichzeitig wird vom Textanfang 
an nach dem Wort gesucht, auf dem sich der Cursor beim Au¬ 
fruf der Funktion befand. Diese Funktion ist besonders praktisch, 
wenn Sie in einem Programm nach der Deklaration einer Prozedur, 
eines Typens, etc. suchen wollen, welche ja stets vor dem ersten 
Auftreten des Bezeichners stehen müssen. 

2.3.6 Editieren 

2.3.6.1 Editieren in einer Zeile 

Zum Editieren in der Zeile stehen Ihnen zwei verschiedene Modi 
zur Verfügung: Einfügen oder Überschreiben. 
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In welchem Modus man sich beündet, können Sie am Cur¬ 
sor erkennen. Im Insertmode (Einfügen) arbeiten Sie mit einem 
Strichcursor, im Overwritemode (Überschreiben) mit einem Blo¬ 
ckcursor. 

Zwischen diesen Modi kann man mit 


Alt 


+ 


Del 


umschalten. 


Der Insertmode wirkt sich auch auf den Tab aus. Stehen rechts 
vom Cursor schon Wörter, werden diese durch Tab bis an die 
nächste Tabposition geschoben. Ideal also, um ganze Tabellen 
einzurücken. 

löscht man das Zeichen links vom 


Mit BACKSPACE 


10 


Cursor, welches normalerweise das zuletzt eingebene ist, alle Zei¬ 
chen rechts vom Cursor rücken dabei um ein Zeichen nach links. 

Mit Del löscht man das Zeichen auf dem der Cursor gerade 
steht und schiebt alle Zeichen rechts davon um eine Spalte nach 
links. 

Mit 


SHIFT 


zusammen fügt 


Del 


ein Leerzeichen ein, dies ist 


besonders für den Overwritemode wichtig. 


2.3.6.2 Editieren im Text 


Wie schon in 2.3.5.2 erwähnt verfügt der Editor über zwei Möglichkeiten, 


auf ein Return zu reagieren. 

Bei der einen, bei der die Zeile nicht getrennt wird, kann man 

eine Zeile trennen, bei der anderen be- 
den Cursor einfach an den Anfang der 
neuen Zeile, ohne die Zeile zu trennen. Durch 


wegt 


SHIFT 

+ 

Return 

SHIFT 

+ 

Return 


Alt 


+ 


Return 


kann man unabhängig vom Modus zwei Zeilen vereinigen. 

(INSLIN) fügt eine Leerzeile ein. 

(DELLIN ) kann man die aktuelle Zeile ent- 


F1 


Mit 


SHIFT 


+ 


Fl 


10 


Die Taste mit dem Pfeil nach links, über der Retnrntaste 
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fernen oder mit 


Alt 


+ 


Fl 


(CLRLIN) auch einfach nur löschen. 


Bei erster Methode wird die Zeile vom Bildschirm entfernt und der 
Text rückt entsprechend zusammen. Bei zweiter Methode wird 
die Zeile gelöscht, sie bleibt allerdings für neue Eintragungen frei. 
Ideal also, um eine Programmzeile für eine neue Anweisung frei- 

(DUPLIN ) verdoppelt die aktuelle Zeile. 


zumachen. 


A 


+ 


Fl 


Durch 


Ctrl 


+ 


F3 


(REPLAC) können Sie ein bestimmtes 
Wort durch ein anderes ersetzen. Schalten Sie dabei den Schal¬ 
ter BLOCK an, wird nur innerhalb des markierten Blocks (siehe 
Blockfunktionen) ersetzt. Mit INVISIBLE bewirken Sie, daß das 
Ersetzen geschieht, ohne daß man es direkt sieht; die Eunktion ist 
dann schneller. Besonders wichtig im Zusammenhang mit ALL. 

Wählen Sie ALI0 SO werden alle entsprechenden Wörter er¬ 
setzt, ohne daß vorher noch mal nachgefragt wird. 

Wenn nicht, werden Sie bei jedem Auftreten des Wortes ge¬ 
fragt, ob es ersetzt werden soll oder nicht. Außerdem haben Sie 
dabei jedesmal die Möglichkeit, doch noch auf ALL umzusteigen 
oder die Aktion mit CANGEL abzubrechen. 


2.3.7 Blockfunktionen 

Mit Hilfe des Blocks, einem Zwischenspeicher, kann man ganze 
Textstücke innerhalb des Textes, aber auch von einem Text in 
einen anderen kopieren, verschieben oder löschen. 


Man deüniert einen Block, indem man entweder den Blockan- 


fang mit 

F2 

(BSTART) und das Blockende mit 

SHIFT 

+ 

F2 

(BEND ) setzt 

12 

Oder, indem man mit dem rechten Mausk- 


nopf den Blockanfang setzt, und dann ohne den Knopf loszulassen 


Schalter rechts unten im sich öffnenden Requester 
^^Der so markierte Block wird dann invertiert dargstellt 
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den Mauszeiger nach unten bewegt, und damit den Block aufzieht. 

Erreicht man dabei den unteren bzw. rechten Fensterrand, 
scrollt der Text automatisch nach. Durch Loslassen der Maustaste 


setzt man das Blockende. Wichtig ist, daß Sie auch an einem bes¬ 


tehenden Block durch F2 / SHl 
das Blockende versetzen können. 


+ F2 den Blockanfang oder 


Mit Ctrl + F2 (GOBLK ) springt man an den Blockanfang, 
beündet man sich schon dort, an das Blockende. 

A + F2 (DELBLK) löscht einen bestehenden Block, nicht 
den Text im Block, hebt also nur die Blockmarkierung auf. 

Einen deünierten Block kann man nun mit SHIFT + F4 
( COPY ) in den Puffer kopieren. Diesen kann man dann wieder 
mit F4 (PASTE ) an ieder beliebigen Stelle, auch in einem 


mit F4 ( PASTE ) an jeder beliebigen Stelle, auch in einem 
anderen Window, wieder einfügen. Dabei wird automatisch das 
eingefügte Textstück zum neuen Block erklärt, den man nun be¬ 
quem durch Ctrl I ^ I / I ^ I um den Standardtab nach links 
oder rechts verschieben kann, um ihn in die Einrückstruktur des 
umgebenden Texts einzupassen. 

Auch Alt -|- F4 ( CUT ) kopiert den Block in den Puffer, 
löscht jedoch gleichzeitig den markierten Text. 

Ctrl -|- F4 ( DELETE ) löscht den markierten Text, ohne ihn 
vorher in den Puffer zu kopieren, fragt aber vorher noch einmal 
zur Vorsicht nach. 

A -|- F4 ( MOVE ) vereinigt die Funktion von CUT und 
PASTE. Diese Funktion dient dazu, einen Block innerhalb eines 
Fensters zu verschieben. Einfach einen Block markieren und an 
der Stelle, an die er hin soll, A -|- F4 drücken. 
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2.3.8 Sichern eines Textes 
2.3.8.1 Textinfo 



Bevor man einen Text sichert bzw. speichert, kann man noch di¬ 
verse Einstellungen vornehmen, die beim Speichern dann berücksichtigt 
werden. Hierzu dient das Feld INFO im Menü (auch 


A 


+ 


F5 


)■ 

In dem erscheinenden Requester kann man den Namen (1), den 
Pfad (2) und das Projekt (3) (mehr dazu in 2.6), sowie diverse 
CompilerSwitches (16) verändern bzw. neu eingeben. 

Wenn Sie die Pfadangaben des Textes nicht eintippen wollen. 
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dann drücken Sie doch einfach in einem der Pfadrequester Help 


und schon öffnet sich der gewohnte Filerequester, mit dem Sie den 
gewünschten Pfad auswählen können. 

Im Feld PATHS (4) kann man außerdem eine Pfadliste an¬ 
geben, die beim Importieren von Modulen berücksichtigt werden 
soll (siehe 2.6). 

Außerdem kann man hier festlegen, ob: 


( 5 ) - Der Text im Clusterformat oder im ASCII-Format (Schalter 

ASCII eingeschaltet) gespeichert wird. Im Clusterformat 
werden noch einige Informationen mehr abgespeichert, so 
zum Beispiel die Cursor- und Blockposition, ob Insert oder 
Overwrite, ob der Text schon compiliert wurde und einiges 
mehr. Außerdem spart dieses Format Platz. 

(6) - Tabulatoren als entsprechend viele Leerzeichen oder als Tabs 

(Schalter SAVE-TAB auf an) gespeichert werden, Tabs¬ 
peicherung spart Platz auf der Diskette, doch gibt es einige 
Programme, die Tabs nicht vertragen. 

( 7 ) - Zeigt an, ob der Text sich im Insert- oder im Overwritemo- 

dus befindet. 

(8) - Hat keine Bedeutung mehr, da diese Einstellung jetzt global 

vorgenommen wird. 

( 9 ) - Vor der Speicherung eines veränderten Textes ein Backup 

von der alten Version erstellt werden soll (BACKUP auf 
an). 

(10) - Änderungen im Text untersagt sind, man ihn also nur le¬ 
sen kann (READ-ONLY an), um zu verhindern, daß ein 
bereits fertiggestellter Text aus Versehen beschädigt wird. 
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( 11 ) - Schlüsselwörter fett dargestellt werden sollen. Ist dieser 
Schalter bei ASCII-Texten angeschaltet, wird beim Abspei¬ 
chern des Textes ein spezieller Header an den Anfang des 
Textes gesetzt, der die Informationen, die normalerweise im 
im Clusterformat enthalten sind, enthält. Beim erneuten 
Einladen wird dieser Header automatisch entfernt, nachdem 
er ausgewertet wurde. 

( 12 ) - Dieser Text und das gelinkte Programm mit Icons versehen 
werden sollen. 

Des weiteren gibt es noch drei Schalter, die etwas über den Zustand 
des Textes aussagen: 

(9) - MODIFIED gibt an, ob der Text seit dem letzten Spei¬ 

chern verändert worden ist. 

(10) - COMPILIED gibt an, ob der Text schon übersetzt wor¬ 
den ist. 

(11) - LINKED gibt an, ob der Text schon gelinkt worden ist. 

Diese Schalter kann man auch bewußt verändern, allerdings 
sollte man damit sehr vorsichtig sein und es nur tun, wenn man 
genau Bescheid weiß. 

Durch Drücken von OK (17) übernimmt man die gemachten 
Einstellungen in das Programm. 

Durch Drücken von Esc oder CANGEL verläßt man den 
Requester wieder, ohne Änderungen zu übernehmen. 
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2.4 Sonderfunktionen des Editors 

2.4.1 Window-Handhabung 



RESULT.len!=0j 

EHD; 

ELSE 

(* *) 

HITH CharPtr RS s, 
CharPtr RS d, 
INTEGER RS i DO 


Dos. de-f 


EFIHITIOH HDDULE Dos; 


jf00000^jrooo^jjjlr 


FROH Systen IHPORT BPTR.LDNGSET.BITSET.PROC; 

FROH Exec IHPORT Library.Hessage.HessagePt»'.HsgPort.HsgPortPtr.Task: 


POHST 

readUrite 
readOnly 
oldFi le 
newFi le 


= 1004: 

= 1005: 

= readOnly: 
= 1006: 


, .flrgunents.de-f 

HodUle Rrgunent^ 

VRR NunRrgs : INTEGER; 
»$OunHeap!=TRUE 


Jf00003^Jf036^JJJlr 




IN5LIN"TBSTRRT^ fBERRCH^ fPflSTE 


F 

ORD 

'TMRRR ■ 

rc 

RÜF ' 



COMPIL^ TPRODRT^ TERROR 


Hier wird endlich das Geheimnis um die schon oft angesprochenen 
Windows (Fenster) gelüftet. Nehmen wir an, Sie möchten von ei¬ 
nem Text in einen anderen etwas kopieren, oder aus einem anderen 
Grund mit mehreren Texten gleichzeitig arbeiten, so benötigen Sie 
ein zweites oder drittes Fenster. 

Dabei handelt es sich jedoch nicht um Workbenchfenster, son¬ 
dern durch eine neue Titelzeile wird lediglich ein Teil der gesamten 
Schreibhäche ab getrennt. 
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Um nun ein neues Window zu erhalten, muß man nur mit der 
linken Maustaste die oberste Titelleiste packen und Sie nach unten 
ziehen. Beim Loslassen der Taste entsteht am oberen Bildschirm¬ 
rand eine neue Titelzeile, noch ohne Namen. 

Achtung, packen Sie die Zeile nicht ganz oben, da Sie sonst die 
ganze Schreibfläche bewegen. 

Indem Sie ein neues Fenster geöffnet haben, haben Sie bereits 
gelernt wie man die Fenstergröße verändert. Sie müssen nur die 
Titelzeile des gewünschten Fensters packen und können diese nach 
oben oder unten verschieben. 

Sollten dabei andere Fenster im Wege sein, werden diese mit¬ 
geschoben. 

Dasselbe können Sie erreichen, wenn Sie in dem aktivierten 
Fenster (Fenstertitel ist hell dargestellt, blinkender Cursor) Ctrl 

SHIFT + T / i drücken. Dadurch bewegen Sie die Titelleiste 
des aktivierten Fensters nach oben oder unten. Bewegen Sie die 
oberste Leiste nach unten, wird ebenfalls ein neues Fenster erzeugt. 

Sie aktivieren ein Fenster, indem Sie es anklicken oder mit dem 
Cursor durch Ctrl + T / i von Fenster zu Fenster springen. 

Wenn in Zukunft vom aktuellen Text oder Fenster die Rede 
ist, wird damit dann immer das momentan aktive Fenster und der 
in ihm befindliche Text bezeichnet. Dieses ist daran zu erkennen, 
daß der Namen in der Titelzeile hell ist. 


Ein Fenster löschen Sie, indem Sie es aktivieren, und dann 
A -|- F6 ( DELTXT ) drücken. Selbstverständlich wird erst noch 
nachgefragt, ob ein noch nicht gesicherter Text abgespeichert wer¬ 
den soll. Wird diese Funktion bei nur einem einzigen Fenster auf¬ 
gerufen, wird nur der Text gelöscht, das Fenster bleibt bestehen. 


Wollen Sie einem Fenster die gesamte Schreibffäche gönnen, 
so drücken Sie F5 ( WOPEN ) oder klicken Sie auf das Symbol 
mit den zwei auseinander weisenden Pfeilen (1) in der Titelleiste. 
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Um ein Fenster ganz zu schließen drücken Sie SHIFT + F5 
(WCLOSE) oder klicken die zueinander weisenden Pfeile (2) an. 

Wollen Sie die Fenster anders gruppieren, haben Sie dazu ver¬ 
schiedene Möglichkeiten: 

• Mit dem Doppelpfeilsymbol (3) vertauschen Sie das Fenster 
mit dem darüber hegenden. 

• Mit dem Pfeil nach unten (4) wird Ihr Fenster zum unters¬ 
ten. 

• Mit dem Pfeil nach oben (5) zum obersten. 

Bei diesen Vertauschungsaktionen bleibt die Größe der Fenster 
unverändert. Übrigens kann man in den verschiedenen Fenstern 
unabhängig den großen oder den kleinen Font (Zeichensatz) ver¬ 
wenden. Dies ermöglicht es Ihnen, in einem Fenster mehr Zei¬ 
len darzustellen und damit die sichtbare Informationsmenge zu 
erhöhen. 

2.4.2 Folding 

Unter Folding versteht man das Einklappen eines bestimmten Be¬ 
reiches des Textes. Es dient dazu, für größere Übersicht zu sor¬ 
gen. Unwichtige Programmteile können weggeblendet werden und 
stören nicht beim Durchsehen eines Programmes. Natürlich sind 
diese so verdeckten Programmteile auf Tastendruck wieder auf¬ 
deckbar. 

Anstelle des Textes steht nach dem Einklappen dort ein kleines 
Rechteck □□, in dessen Zeile nicht editiert werden kann. Eingek¬ 
lappt werden können Prozeduren, indem man mit dem Cursor in 
die Zeile des Prozedurkopfes geht und auf Help drückt. Um die 
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Prozedur wieder aufzuklappen, wieder auf den Prozedurkopf ge¬ 
hen und erneut auf Help drücken. 

Einen markierten Block kann man ebenfalls mit Help eink¬ 
lappen. Um ihn wieder aufzuklappen, gehen Sie mit dem Cursor 
in die Zeile mit dem Rechteck und drücken Help . 

Eingeklappte Textstücke lassen sich beliebig schachteln, d.h. 
man kann eine Prozedur auch einklappen, wenn eine darin befind¬ 
liche Prozedur oder ein Block schon eingeklappt wurde. 

2.4.3 Save All 

Haben Sie die EU mit RUN gestartet und wollen Sie sicher sein, 
daß alle Texte gesichert sind, bevor Sie ein anderes Programm 
starten, müssen Sie nicht erst jedes Eenster aktivieren und SHIFT 
F6 drücken. 

Durch Drücken von Ctrl -|- F6 ( SAVALL) wird für alle 
noch nicht gesicherten Texte nachgefragt, ob Sie diese abspeichern 
wollen. 

2.4.4 Undo 

Um ungewollte Änderungen in einer Zeile rückgängig zu machen, 
verfügt der Editor über einen Korrekturpuffer. Durch Drücken 
von Ctrl F7 (UNDP ) können Sie, soweit Sie die bear¬ 
beitete Zeile noch nicht verlassen haben, diese wieder in ihren 
ursprünglichen Zustand versetzen. 

Nebenbei läßt sich diese Eunktion hervorragend dazu ge(miß)- 
brauchen, um eine Zeile zu verschieben. Dazu löschen Sie die zu 
verschiebende Zeile mit SHIFT -|- Fl (DELLINE) . sie steht 
nun im Korrekturpuffer. 

Nun können Sie, solange Sie nichts in einer anderen Zeile ver¬ 
ändern, den Cursor bewegen und an der gewünschten Position 














26 


KAPITEL 2. DIE ENTWICKLUNGSUMGEBUNG 


Ctrl + 


F7 


drücken, wodurch der Pufferinhalt an dieser Stelle 


eingefügt wird. 


2.4.5 Macros 

Um Sie bei monotonen Formatierarbeiten oder anderen sich wie¬ 
derholenden Arbeiten zu entlasten, können Sie auf allen Tasten, 
außer den Funktionstasten, eine beliebige Tastenfolge (Macro), 
einschließlich Menüfunktionen speichern. Diese wird bei Aufruf 
dann genauso wiederholt. 

Um ein Macro aufzuzeichnen drücken Sie Ctrl und die Taste, 
auf der Sie das Macro speichern wollen. Der Bildschirm wird in¬ 
vertiert und alle Eingaben von jetzt an, auch andere Macroau- 
frufe, werden aufgenommen. Die Aufnahme wird durch erneutes 
Drücken von 


Ctrl und der Macro-Taste beendet. 


Der Aufruf des Macros erfolgt über die rechte A [-Taste (die 
linke bis auf wenige Tastenausnahmen z.B. n, m) und der Taste, 
auf der das Macro hegt. 

Um häufig benutzte Marcos nicht nach jedem Neustart neu 
definieren zu müssen, können Sie die Macrobelegung aller Tasten 

(macros) unter einem von Ihnen gewählten 


durch 


A 


+ 


F9 


Name abspeichern oder eine bereits gespeicherte bei einem Neus¬ 
tart wieder ladenp^ So haben Sie die Möglichkeit, sich mehrere 
Macrotabellen anzulegen und zwischen diesen zu wechseln. 


wir im Moment an einem komplett neuen Editor arbeiten, lohnte es 
sich nicht mehr, für das Laden der Macro-Tabelle einen eigen Menüpunkt zu 
belegen (aus Zeitgründen). Sie erreichen diese Funktion, indem Sie im Macro- 
Save-Requester auf Esc drücken. 


(©1992/93 by StoneWare 














2.4. SONDERFUNKTIONEN DES EDITORS 


27 


2.4.6 Iconiz 

Wenn Sie mit der Shell arbeiten, empfiehlt es sich, den Editor mit 
„run“ zu starten, damit man nebenbei auf der SHELL weiterar- 
beiten kann. 

Will man nun auf der SHELL oder Workbench etwas machen, 
so sollte man nicht nur die Schreibfläche nach hinten schalten, 
sondern Ctrl -|- FlO ( ICONIZ ) drücken, besonders wenn man 
wenig Speicher hat. Dadurch schließt sich der Editor (Speicherge¬ 
winn) und auf der Workbench erscheint ein kleines Icon. 

Eührt man auf dieses einen Doppelklick aus, so öffnet sich der 
Editor wieder, alle Texte bleiben dabei unverändert. 

2.4.7 OldStates 

Arbeitet man längere Zeit an einem oder an mehreren großen Pro¬ 
jekten, so ist es mühsam, nach jedem Neustart alle entsprechenden 
Texte zu laden. Daher läßt sich der aktuelle Zustand des Editors, 
d. h. welche Texte geladen sind, wieviele Eenster an welchen Posi¬ 
tionen geöffnet sind, sowie welches das aktuelle Directory ist, als 
sogenannter „OldState“ abspeichern. Hierzu drückt man Ctrl 
F9 (PRSAVE ) . worauf man den vertrauten Eilerequester erhält 
und damit den aktuellen Status abspeichern kann. Standardmäßig 
hegen sie in „Cluster:“. 

Eührt man nun einen Doppelklick auf das Icon des States aus, 
wird der Editor geladen, sowie alle Texte, die im Stateüle vermerkt 
sind. Man beündet sich also im gleichen Zustand wie zu dem 
Zeitpunkt, da man diesen State abgespeichert hat. 

Die gleiche Wirkung erzielt man, wenn man in der Shell einen 
gespeicherten „State“ als Parameter beim Programmstart angibt 
oder nach dem Start des Editors auf Alt F9 (PRLOAD) 
geht, wodurch man einen Eilerequester erhält, mit dem man den 











28 


KAPITEL 2. DIE ENTWICKLUNGSUMGEBUNG 


gewünschten „State“ aussuchen kann. 


2.4.8 TimeSave 


Besonders nach längerem Arbeiten an einem Text ist es sehr ärgerlich, 
wenn durch irgendein anderes Programm der Computer abstürzt 
und alle Arbeit umsonst war. Die letzte Abspeicherung lag nach 
Murphy garantiert schon einige Zeit zurück. Um dies zu ver¬ 
meiden, bietet der Editor eine Autosave-Funktion an, die nach 
einer festgelegten Zeit alle veränderten Texte in das Verzeichnis 
„Cluster: TimeSave“ abspeichert. Dadurch ist auch sicherges¬ 
tellt, daß das Orginal auf Platte oder Diskette solange erhalten 
bleibt, bis Sie den Text von Hand abspeichern. Den Zeitabstand, 
nach dem gespeichert werden soll, läßt sich im Global-Requester 


(siehe unter 2.4.9) einstellen 
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2.4.9 Voreinstellungen 


An der EU kann man, ähnlich wie auf der Workbench, mit ei¬ 
nem Preference-Requester verschiedene Voreinstellungen vorneh¬ 
men. Man gelangt in ihn durch Drücken von Alt -|- F8 
(GLOBAL). 


^/OOOQQ^/QOO^JJjlr ^ ^ \i k? H K > P - 



Folgende Einstellungen können Sie damit vornehmen: 


( 1 )- Bewirkt, daß beim Verlassen des Requesters in den 
Interlacemodus umgeschaltet wird, um mehr Bild¬ 
schirmzeilen dargestellt zu bekommen (nur mit Flik- 
kerüxer zu empfehlen). 
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( 2 ) - Besitzer eines Rechners mit ECS und Amiga OS 

2.0 können mit diesem Schalter zwischen PAL und 
NTSC umschalten. Im NTSC-Mode hat man zwar 
nur 200, bzw. im Interlace 400 Bildschirmzeilen, 
dafür aber eine Bildwiederholfrequenz von 60 Hz 
und das Flimmern wird reduziert. 

(3) - Die glücklichen Besitzer eines Rechners mit ECS 

können hiermit den Productivity-Mode einschal¬ 
ten. 

(4) . Ist dieser Schalter an, werden beim Verlassen der 

EU alle Einstellungen automatisch gespeichert, auch 
wenn nicht SAVE angewählt worden ist. 

(5) . Schaltet das Vergeben von Icons an Texte standard¬ 

mäßig an. 

( 6 ) - Schaltet die Erzeugung von Backups an. 

(7) - Ist dieser Schalter an, ist das Menü nach dem Start 

der EU ausgefahren. 

( 8 ) . Schaltet den kleinen Font (Zeichensatz) ein. 

(9) - Schaltet auf ASCII-Save. Der Text wird im ISO- 

ASCII-Standard gespeichert]^ 

( 10 ) - Schaltet Tab-Save ein (nur in Verbindung mit ASCII- 

Save) . 

(11) - Schaltet den Insert-Modus (Einfügen von Zeichen) 

ein. 

Gegensatz zu einem recht weit verbreiteten Computersystem sind Files 
in diesem Standard auch zwischen anderen Computersystemen übertragbar. 
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(12) - 

Bewirkt, daß Return eine Zeile teilt. 

(13) - 

Schaltet Fettdruck von Schlüsselwörtern ein. Emp¬ 
fehlenswert. 

(14) - 

Sorgt dafür, daß beim Iconisieren eine Saveall-Ab¬ 
frage durchgeführt wird. Wenn man ein gelinktes, 
absturzgefährdetes Programm testen will und Ico- 
nize aufruft, verliert man keine Texte, falls der Ver¬ 
such zu einem Systemabsturz führt. Sehr zu emp¬ 
fehlen. 

(15)- 

Diese Option arbeitet zusammen mit den OldStates. 
Ist sie eingeschaltet, wird beim Verlassen des Edi¬ 
tors gefragt, ob der aktuelle Zustand (Texte, Eens- 
terposition etc.) wieder unter dem selben „Old- 
State“ gespeichert werden soll, der zuletzt geladen 
wurde. Wurde kein „State“ geladen, wird der Zus¬ 
tand unter 

„Cluster:State“ 

gespeichert. 

(16) - 

Schaltet den Symbolcache ein, ist er schon einges¬ 
chaltet, löscht dieser Schalter den Cache. Näheres 
siehe unter 2.5 ab Seite 341 

(17) - 

Schaltet den Versionsvergleich zwischen Symbolda¬ 
teien im Cache und denen auf der Diskette ein oder 

aus. 

(18) - 

Ist dieser Schalter eingeschaltet, benutzt der Edi¬ 
tor zwei Bitplanes für die Textdarstellung. Kom¬ 
mentare, die mit einem „ “ eingeleitet sind und 
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am Zeilenanfang stehen, werden in einer anderen 
Farbe als der übrige Text dargestellt. Dies erhöht 
die Übersichtlichkeit enorm, führt aber, außer auf 
einem Amiga 3000/4000, im Interlace zu starkem 
Flackern beim Scrollen. Außerdem ist eine Verlang¬ 
samung zu erkennen, da der Blitter nicht schnell 
genug ist, um die zusätzliche Bitplane schnell ge¬ 
nug mitzukopieren. Ist zu empfehlen, wenn auch 
anfangs gewöhnungsbedürftig. 

(19) - Farbeinsteller für die Vordergrundfarbe. 

(20) - Farbeinsteller für die Hintergrundfarbe. 

(21) - Textspeichergröße beim Programmstart. 

(22) - Anzeige der aktuellen Textspeichergröße. Wenn Sie 

also nur für einmal die Speichergröße ändern wol¬ 
len, dann sollten Sie dies in diesem Feld und nicht 
im Feld STANDARD (21) tun. 

(23) - Hier trägt man den Zeitraum (in Minuten) ein, 

nach dem alle veränderten Texte automatisch ges¬ 
peichert werden sollen. Trägt man hier Null ein, 
ßndet kein Autosave statt. 

(24) - Standardprojekt, das beim Start eingestellt ist. 

(25) - Gibt das aktuelle Verzeichnis für neue Texte beim 

Neustart an. 

(26) - Macrobelegung, die beim Start geladen wird. 

(27) - Lädt die zuletzt gespeicherte Einstellung. 
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(28) - Macht Änderungen seit dem Betreten des Reques- 

ters rückgängig. 

(29) - Speichert eine Einstellung. Falls Sie AUTOSAVE 

nicht angeschaltet haben, müssen Sie das tun, wenn 
Sie nicht nach jedem Neustart die Einstellungen 
von neuem machen wollen. 

(30) - Übernimmt die Einstellungen, ohne Sie abzuspei¬ 

chern, und verläßt den Requester. 

(31) - Verläßt den Requester, ohne die Einstellungen zu 

übernehmen. 

Wichtig: Die Felder „ICON“ (5), „BACKUP“ (6), „ASCII“ (9), 
„SAVE-TAB“(10), „INSERT“(11) und „KEYWORDS“(13) 

sind eigentlich Einstellungen, welche zu einem bestimmten Text 
gehören und gelten nur als Starteinstellung für neuerstellte Texte. 

Im ASCII-Format vorliegende Texte übernehmen diese Einstellun¬ 
gen ebenfalls, mit Ausnahme von KEYWORDS, welches stan¬ 
dardmäßig ausgeschaltet wird, soweit der Text keinen Header hat. 

Hat ein geladener Text andere Einstellungen, werden selbstverständlich 
diese genommen. 
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2.5 Der Compiler 

Eine Bemerkung vorneweg: Sollten Sie das eine oder andere in 
den nächsten Kapiteln über Compiler, Linker, Loader oder Make 
nicht sofort verstehen, dann machen Sie sich keine Sorgen; alle 
Fragen werden mit Sicherheit im Einführungskapitel in die Pro¬ 
grammiersprache Cluster geklärt. 


2.5.1 Compiler-Switches 


Compilerswitched^ veranlassen den Compiler, einen bestimmten 


Bereich eines Moduls oder auch ein ganzes Modul in einer anderen 
Weise zu übersetzen, als standardmäßig vorgesehen. 

Switches lassen sich, wenn Sie für ein ganzes Modul gelten sol¬ 
len, als Parameter dem Compiler übergeben oder direkt im Quell¬ 
text setzen, was vor allem bei bereichsbezogenen Switches sinnvoll 
ist. 

Eine solcher Switch wird folgendermaßen deüniert: 

$$xxx:=yyy 

d. h. der Switch xxx wird gleich dem Ausdruck yyy gesetzt. 
Beispiel 

$$RangeChk:=FALSE 

Handelt es sich um einen stapelbaren Schalter, d. h. ein Schalter 
der sich nur auf einen bestimmten Bereich bezieht, so können diese 
durch 

$$xxx:=0LD 

wieder auf ihren ursprünglichen Zustand zurückgesetzt werden. 
Die maximale Schachtelungstiefe beträgt dabei 16. 

Zu jedem Projekt können im Projekt-Requester bis zu 24 Schal¬ 
ter selbstdeüniert werden. Wie diese deüniert werden können Sie 


15 


Switch = Schalter 
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Abschnitt 12.61 ab Seite [4^ entnehmen. 

Diese selbstdefinierten Schalter, sowie die vordefinierten, kön¬ 
nen zur bedingten Compilierung eingesetzt werden. Das heißt, 
je nach Schalterstellung kann man den Compiler veranlassen, ein 
anderes Stück Text zu übersetzten. Dies geschieht z. B. durch die 
folgende IF-Konstuktion: 


$$IF XXX THEN 
Textl 

$$0R_IF yyy THEN 
Text2 
$$ELSE 
TextS 
$$END 


Dabei wird für diese IF-Abfrage kein Code erzeugt, sondern in 
Abhängigkeit der Schalter ‘xxx‘ und ‘yyy‘ entweder Textl oder 
Text2 oder TextS übersetzt. Dabei darf eine Bedingung aus meh¬ 
reren Schaltern bestehen, die über boolsche Operatoren verknüpft 
sind: 


$$IF XXX AND yyy THEN 
$$END 


^®Näheres über boolsche Operatoren finden Sie im Einführungskapitel 
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Beispiel: ein benutzerdefinierter Schalter ’Turbo’ für eine 020/881 
Version: 

MODULE ...; 

$$IF Turbo THEN 
$$MC68020:=TRUE 
$$MC68881:=TRUE 
$$END 


$$IF Turbo THEN 

TYPE Float = REAL; 

IMPORT VectorReal AS Vectors; 
$$ELSE 

TYPE Float = FFP 
IMPORT VectorFFP AS Vectors; 
$$END 


Je nachdem, ob Turbo gesetzt ist, wird ein anderes Programm 
compiliert. Ein anderes Beispiel wäre eine deutsche und eine an¬ 
derssprachige Version des selben Programms, oder ein Modul, das 
sowohl in einer Library, als auch in einem normalen Programm 
benutzt werden soll. In einer Library darf z. B. kein ALL0C_HEAP 
aufgerufen werden. 

Neben den selbst deünierten Schaltern sind folgende Switches vor- 
deüniert: 
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Name 

Kurz 

Geltung 

Init 

Bedeutung 

OverflowChk 

V 

Bereich 

Infc 

Uberlaufcheck bei Re¬ 
chenoperationen. 

RangeChk 

R 

Bereich 

Info 

Bereichsprüfung bei 
Zuweisungen und Indi¬ 
zierungen. 

StackChk 

S 

Bereich 

Info 

Stacküberprüfung am 
Prozedur/Modul an- 
fang. 

StrZeroChk 

z 

Bereich 

Info 

Test bei Stringzuwei¬ 
sungen, ob 

Str.data[Str.len] =&0 

NilChk 

N 

Bereich 

Info 

Test bei Dereferenzie- 
rungen, ob der Zeiger 
NIL enthält. 

ReturnChk 


Bereich 

Info 

Test, ob eine Funktion 
einen Wert mit RE¬ 
TURN zurückliefert. 


^^Info bedeutet hier, daß der Initialisierungswert von der Schalterstellung 
im Feld SWITCHES im Textinfo-Requester abhängt 
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Name Kurz Geltung Init Bedeutung 

LocalChk L Bereich Info Test, ob eine Proze- 

dnr, die an eine Var¬ 
iable zngewiesen wird, 
eine globale Prozednr 
ist. 

ConstChk Bereich TRUE Der Compiler verhin¬ 

dert, daß REF-Para- 
meter oder Konstan¬ 
ten verändert werden. 
Dieser Switch hat nnr 
Auswirknngen wärend 
der compiliernng, 

er hat keine Answir- 
knng anf den erzeugten 
Code. 

RelaxPtr Bereich FALSE Erlaubt bei Konstan¬ 

tendefinitionen die 
’PTR wegzulassen, 
wenn ein Zeiger statt 
der Struktur erwartet 
wird. 

ChipMem C Modul Info Das Modul wird ins 

ChipMem gelegt. 

LongAllign A Modul Info Variablen und Elemen¬ 

te von Strukturen, die 
länger als 3 Bytes sind 
werden auf Langwort¬ 
grenzen gelegt. 

Library Modul Info Das Modul soll in ei¬ 

ner Library verwendet 
werden. 

Device Modul Info Das Modul soll in ei¬ 

nem Device verwendet 
werden. 
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Name Kurz Geltung Init Bedeutung 

Debug Modul Info Das Modul wird mit 

Debuginformation 

compiliert. 

WithArea W Struktur TRUE Bei lokalen Variablen, 

bei Parametern einer 
Prozedur oder bei ei¬ 
ner WITH-Anweisung 
wird ein Sicherungs¬ 
bereich eingerichtet. 
Dieser ist nötig, falls 
innerhalb der Struk¬ 
tur eine Prozedur auf¬ 
gerufen wird. Wird 
innerhalb keine Pro¬ 
zedur benutzt, sollte 
(* $W- *) 

davor gesetzt werden. 
Der Compiler meldet 
ei¬ 
nen Fehler, wenn doch 
eine Prozedur aufge¬ 
rufen wird. 

WithModify M Struktur TRUE Nach einer WITH An¬ 
weisung wird der Wert 
des Registers (falls ver¬ 
ändert) wieder in die 
Variable gesichert. 

(* $M- *) 

unterbindet dies, falls 
das Ergebnis nicht 
mehr benötigt wird. 
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Name 

Kurz 

Geltung 

Init 

Bedeutung 

OwnHeap 

0 

Prozedur 

FALSE 

Funktionen, die einen 
offenen Rückgabetyp 
haben, müssen sich 
in einigen Situationen 
selbst um die Allo- 
zierung von Rückgabe¬ 
stackspeicher küm¬ 

mern (z.B. wenn man 
die Ergebnisse direkt 
an einen VAR-Para¬ 
meter übergeben will; 
siehe „Strings“). 

Dieser Schalter zeigt 
an, daß die Proze¬ 
dur sich darum küm¬ 
mert, und auch in 
diesen Situationen be¬ 
nutzt werden kann. 

PushRegs 

P 

Prozedur 

FALSE 

Sichert alle Register 
am Prozeduranfang. 
Diese Prozedur kann 
dann auch innerhalb 
einer WITH Struktur 
benutzt werden, ohne 
daß die Registervaria¬ 
blen gesichert werden 
müßten. 
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Name Kurz Geltung Init Bedeutung 

EntryCode E Prozedur TRUE Die Prozedur hat kei¬ 

nen Eingangscode. 

Darf nur verwendet 
werden, wenn keine 
lokalen Parameter auf 
dem Stack benötigt 
werden, z. B. wenn eine 
Prozedur rein in As¬ 
sembler kodiert ist. 

Modulall Bereich Info Es gelten die Syntaxre¬ 

geln von Modula 2. 

MC68020 Bereich Info Es wird Code für den 

68020++ erzeugt. 

MC68881 Bereich Info Es wird Code für den 

68881++ erzeugt. 

MC68040 Bereich EALSE Es wird Code für den 

68040 erzeugt. 

LargeCode Modul EALSE Ealls ein Modul im 

Objectfile 32KB über¬ 
schreitet, meldet sich 
der Compiler mit einer 
Eehlermeldung. Nun 
kann man entweder 
das Modul in mehrere 
kleine zerlegen, oder 
man setzt diesen Schal¬ 
ter, was allerdings zu 
einer geringfügigen Ge- 
schwindikeitseinbuße 
führt. 
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Name 

Kurz 

Geltung 

Init 

Bedeutung 

AssTypeChk 


Bereich 

FALSE 

DerAssembler führt ei¬ 
nen Typecheck 
durch. 

ComplexAss 


Bereich 

TRUE 

Der Assembler erlaubt 
komplexere Adressier¬ 
ungsarten 

Symbols 


Modul 

FALSE 

Sorgt dafür, daß im ge¬ 
linkt enP r ogr amm 
die symbolischen Be- 
zeichnernoch enthalten 
sind, so daß man bei 
Verwendung eines As¬ 
semblerdebuggers, der 
Symbole unterstützt, 
direktauf die Prozedur 
namen zugreifen kann. 


Die Schalter können global, im Info Requester oder im Quelltext 
gesetzt oder gelöscht werden. Laufzeitchecks sollten erst nach 
längerer Erprobung ausgeschalten werden. Dann aber sollte man 
sie abschalten, da sie das Programm verlangsamen und länger ma¬ 
chen. Auch diese vordeünierten Schalter lassen sich zur bedingten 
Compilierung einsetzen. Die Kurzform der Schalter sollte man ei¬ 
gentlich nicht mehr benutzen, da sie zu wenig Ausagekraft haben. 
Will man Sie dennoch verwenden, gilt: 


(* $R- *) 
(* $R+ *) 
(* $R= *) 


<=> $$RangeChk:=FALSE 
<=> $$RangeChk:=TRUE 
<=> $$RangeChk:=0LD 


Wie Sie Schalter im Text verändern können, haben Sie im letz¬ 
ten Abschnitt gesehen. Im Textinforequester funktioniert dies fol¬ 
gendermaßen: Begeben Sie sich in den Textinforequester A -|- 
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F5 


(INFO ) . und klicken Sie auf Switches. Daraufhin öffnet 


sich folgender Requester: 



In den dargestellten Schaltern ünden Sie die meisten der oben auf¬ 
geführten Switches. Die strukturbezogenen sind nicht enthalten, 
da von hier aus nur globale Einstellungen gemacht werden können. 
Ist ein Schalter eingedrückt, gilt er als eingeschaltet. Wird ein hier 
gesetzter Schalter lokal neu deüniert, gilt diese Einstellung. Eol- 
glich gilt Lokal vor Global. 

Eolgende Schalter entsprechen aus Platzgründen nicht den Be- 
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Zeichnungen der Compilerswitches, die im Quelltext angegeben 
werden können: 


• Der Schalter EXECUTBL (1) gibt an, ob ein Objektüle 
für ein normales Modul erzeugt werden soll. 

Standardeinstellung ist TRUE. Im Falle, daß man ein Mo¬ 
dul nur in einer Library verwenden will, kann man durch 
Ausschalten verhindern, daß ein zweites unnötiges Objekt¬ 
file erzeugt wird. 

• STR.ZERO (2) entspricht dem zuvor beschriebenen Schal¬ 
ter „StrZeroChk“. 

• Allign 4 (3) entspricht dem zuvor beschriebenen Schalter 
„Long Allign“. 

• RetChk. (4) entspricht dem zuvor beschriebenen Schalter 
„ReturnChk“. 


Der Switch (5) ist ein Beispiel für einen selbstdeünierten Schal¬ 
ter. Selbstdeünierte Schalter können außer Modulglobal auch noch 
Projektglobal gesetzt werden (siehe Abschnitt 2.6). Der kleine 
Schalter daneben (6) gibt dabei an, ob die Projektglobale Eins¬ 
tellung übernommen werden soll (Schalter eingedrückt), oder ob 
die in diesem Requester gemachten Einstellung beachtet werden 
soll (Schalter ausgeschaltet). 

Der Schalter Switches läßt sich übigens nur anwählen, wenn in 
Textinfo - PATHS ein bereits deüniertes Projekt eingetragen ist. 


Siehe Kapitel 2.3.8.1 Seite 19 
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2.5.2 Compilieren eines Programms 
2.5.2.1 Compilieren von der EU aus 


Um einen Text zu compilieren, müssen Sie sein Fenster aktivieren 
(COMPIL) drücken. Daraufhin erscheint ein Requester, 


und 


F8 


und der Compiler beginnt den Text zu übersetzen. 


1 


Rrgunents.nod 


TUSE 

RFRIIIT.Ipn:=PI. 


Jf00042^ 


[Pl I ^ Cluster-Conpiler V1.^0 

lüi Ai'gunents. nod 


(c)'91 StoneMare |\\ 

.0_I 



FROH Sys\ 

FROH Exec IHPDRT Library.Hessage.MessasePtr.HssPort.HsgPortPtr.Task; 
COHST 

readUrite = 1004; 

readOnLy = 1005; 

oldFile = readOnly; 

newFiLe = 1006; 

^Rrgunents.de-f 

DEFIHITIOH UoDULE Argunentsb 


Jf00003'jr036'JJJlr 


m Nunf^rgs : INTEGER- 

J$OwnHeap:=TRUE 

B Miianip Bn 


INSLIN^ fBSTRRT^ fBERRCH^ rPRBTE 


COMPIL^ rPROURT^ TERROR 


Beim Compilieren wird die ungefähre aktuelle Position im Text 
(1), der noch freie Speicher (2), die momentan eingelesenen Mo- 
dule (3), die erzeugte Datei (4) und den Namen des gerade 
übersetzten Textes (5) anzeigt. 
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2.5.3 Fehlerbehandlung und Fehlermeldungen 


1 


ITVPE 
Ch 

PROCI 

m 

BE6I 
IF 


Rrsunents.nod 


OldLock 


! FileLockPtr; 


00016^ Jf 015^ JJJlf 


(c)'91 StoneMare 


OUT HfiRDDISK!cluster/nodules/obj/Argunents.OBO 

IMPORT HfiRDDISKicluster/nodules/obj/Tiner.syn 



jBezeiebner nicht bekannt 






CharPtr RS d DO 

s:=CharPtr(LONGCARD(CLIParanPtr)+ParanStarts[nun]) 

d:=RESULT.data[0]'PTR: 


pIT 


rn 



CANCEL 

6 






Wird bei der Übersetzung ein Fehler entdeckt, erscheint ein Re- 
quester mit einer Meldung, die den Fehler genauer speziüziert (1). 

Nun kann man den Fehler in eine Fehlerliste aufnehmen 
KEEP (2), um ihn später wiederzuünden oder man kann ihn 
einfach überspringen SKIP (3), was besonders bei Folgefehlern 
praktisch ist. Bei beiden Aktionen wird die Compilierung danach 
fortgesetzt. Will man, daß alle auftretenden Fehler in die Liste 
aufgenommen werden, geht man auf KEEP-ALL (4). Man kann 
den Übersetzungsvorgang aber auch mit CANCEL (5) abbre- 
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chen (Dies ist zu empfehlen, wenn sich der Compiler nach einem 
Fehler verheddert). 

Ist die Übersetzung abgeschlossen, können Sie nun, vorausge¬ 
setzt Sie haben sich Fehler mit Keep gemerkt, diese mit FlO 
( ERROR ) anspringen. Mit SHIFT -|- FlO ( PREVER ) können 


Sie wieder zum vorhergehenden Fehler zurückkehren. 

Dabei wird jeweils die entsprechende Stelle im Text angesprun¬ 
gen und die Fehlermeldung noch einmal ausgegeben. 

Nach einem Durchlauf können Sie die Liste beliebig oft 
zurückgehen und danach wieder von vorne beginnen. 

Alle Fehlermelungen sind im Einzelnen im Anhang auf¬ 
geführt und erläutert. Ein Hinweis: Alle Meldungen, die einen 
„(Compiler-Eehler)“ oder ähnliches beinhalten, sind nicht durch 
Sie verursacht, sondern es ist ein Eehler des Compilers. Dies sollte 
eigentlich nicht mehr Vorkommen, kann allerdings die Eolge eines 
anderen Eehlers sein. 

Sollte dies doch einmal grundlos passieren, dann melden Sie 
uns bitte dies und schicken uns den Quelltext, bei dem der Eehler 
auftrat. 


2.5.4 Der Symbol-Cache 

Die EU ist mit einem Symbol-Cache ausgestattet. D. h. Sym¬ 
boldateien, die durch Import beim Compilieren geladen wurden, 
werden im Speicher gehalten, so daß sie bei der Übersetzung des 
nächsten Textes nicht mehr geladen werden müssen. Der Vorteil 
gegenüber in die RAM-Disk kopierten Modulen ist, daß weniger 
Speicher verbraucht wird und eine höhere Compiliergeschwindig- 
keit erreicht wird. 

Compiliert man allerdings ein Deünitionsmodul, dessen Sym¬ 
boldatei sich bereits im Cache beündet, wird dieses automatisch 
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dort entfernt, damit keine Versionskonflikte entstehen. Beim 
nächsten Importieren wird die Symboldatei wieder neu geladen. 

Das Cache kommt vor allem Computerbesitzern mit viel Spei¬ 
cher, aber ohne Festplatte zugute. Hat man allerdings wenig Spei¬ 
cher, sollte man den Cache im Global-Requester ausschalten. 

Normalerweise wird vor jedem Zugriff auf den Cache kontrol¬ 
liert, ob die Version des Moduls im Cache, mit der auf Disk/Platte 
übereinstimmt. Man kann diesen Check aber auch abschalten, um 
die Zahl der Diskettenzugriffe zu verringern. Voraussetzung ist, 
daß während der Arbeit mit der EU, von der Shell oder Work- 
bench aus, keine andere Version eines ‘gecachten‘ Moduls in das 
entsprechende Verzeichnis kopiert wird, oder daß durch eine zweite 
EU dasselbe Modul compiliert wird. 


©1992/93 by StoneWare 




2.6. DAS PROJEKT-SYSTEM 


49 


2.6 Das Projekt-System 

Da der Compiler während der Übersetzung diverse Dateien laden 
und das Compilat ja auch wieder abspeichern muß, es aber sehr 
aufwendig wäre, jedesmal für jede Datei einen kompletten Pfad 
anzugeben, sind wir dazu übergegangen für jedes Programmpro¬ 
jekt ein Projektverzeichnis anzulegen. 

Dieses enthält die Verzeichnisse „TXT“ für die Quelltexte und 
„OBJ“ für die Compilate, sowie bei Bedarf „BAK“ für Sicherung¬ 
skopien. 

Damit ein Programm übersetzt werden kann, muß es zuvor in 
das TXT-Verzeichnis eines solchen Projekt Verzeichnisses abgespei¬ 
chert werden. 

Um Ihnen die Erzeugung des Projektverzeichnises zu erleich¬ 
tern, existiert ein kleines Programm namens „Project“, das Sie 
am besten in das c: -Verzeichnis ihrer Bootdiskette kopieren. Sie 
ßnden es nach der Installation in „Cluster:ClusterTools“. Sie be¬ 
nutzen es, indem Sie es folgendermaßen aufrufen: 

Project j jPfad^ ‘ [-i] 

z. B. Project dfliWork 

richtet ein Projekt Verzeichnis names Work im Verzeichnis dfl: 
ein. Gibt man noch den zweiten Parameter ‘-i‘ an, werden für 
die Verzeichnisse keine Icons erzeugt. 

Das Verzeichnis haben Sie nun, doch woher weiß der Compiler, 
welches das richtige ist? 

Zuerst versucht er das Verzeichnis, aus dem der Text stammt. 
Sonst benutzt er eine Liste von Pfaden, wobei er die Liste von oben 
nach unten durchsucht. So können Sie ruhig ein Modul in zwei 
Verzeichnissen haben und können sicher sein, daß immer zuerst 
im ersten aufgeführten Modulverzeichnis gesucht wird. Außerdem 
haben Sie damit die Möglichkeit, Module zu importieren, die nicht 
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in ihrem augenblicklichen Projekt Verzeichnis hegen. 


2.6.1 Definition von Pfadliste und Userswitches in 
der EU 


Um solch eine Pfadliste zu deünieren, dient der PATHS-EDIT- 


Requester, den Sie über 


F9 




(PROJKT) erreichen. 



In den fünf Stringgadgets (1) kann man die Pfade der Projektver¬ 
zeichnisse eingeben, in denen er von oben nach unten suchen soll. 
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Zur Auswahl der Pfade besteht auch hier die Möglichkeit, über 
Help einen Filerequester zu erhalten. 

Möchte man eine neue Pfadliste erzeugen, drücke man NEW 
(4), gebe einen neuen Namen für die Liste in NAME: (2), sowie 
die gewünschten Pfade ein, danach wähle man SAVE (6) an. 

Möchte man eine bestimmte Liste ändern, kann man sie über 
SELECT (3) auswählen, verändern und wieder abspeichern. 

Um die Liste unter Select auf den neuesten Stand zu brin¬ 


gen, kann man auf LOAD (5) gehen, worauf das Verzeich¬ 
nis „Cluster iProjects“ neu geladen wird. Damit werden auch 
Projekte, die erzeugt, aber nicht abgespeichert wurden, wieder 
gelöscht. 

Zu einer Pfadliste gehört auch ein Eintrag, der das Programm 
angibt, das gelinkt oder „gemaked“ werden soll, falls von einem 
Modul, das kein Hauptmodul ist und keinen Projekteintrag im 
Textinforequester besitzt, eine dieser Funktionen aufgerufen wird. 
Dieser läßt sich im Feld Project (7) eintragen. Ist bei einem 
Text, der diese Pfadliste benutzt, kein Projekt eingetragen, wird 
das hier eingetragene benutzt. 

Außerdem lassen sich zu jeder Pfadliste eigene Compilers¬ 
witches deünieren. Erst nachdem man einen Switch hier deüniert 


hat, kann man ihn benutzen. Dazu dienen die Stringgadgets (8). 
Der kleine Schalter daneben (9) gibt die projektglobale Einstel¬ 
lung dieses Schalters an. Ist in Textinfo-Switches bei dem ents¬ 
prechenden Schalter der kleine Schalter daneben eingedrückt, wird 
die im PATHS-EDIT-Requester gemachte Einstellung für diesen 
Text übernommen. 


Neue Texte erhalten automatisch die Pfadliste „StdProject“. 
Die Compilate werden stets in das Projektverzeichnis gelegt, 
aus dem der Quelltext stammt, hat dieser noch kein Verzeichnis, 
wird er in das Projekt „Cluster: Work“ abgelegt. 
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2.6.2 Definition von Pfadliste und Userswitches bei 
der Verwendung von Premdeditoren 

Bei der Verwendung eines anderen Editors als dem, der in die EU 
integriert ist, entsteht natürlich das Problem, wie definiert man 
hier benutzerdefinierte Compilerswitches oder eine Pfadliste, nach 
der die Module importiert werden sollen ? 

Ganz einfach, ein solches Projektfile läßt sich mit jedem Editor 
leicht erzeugen, da es sich dabei um eine Textdatei handelt. Diese 
hat folgenden Aufbau: Jede Zeile beginnt mit einem Schlüsselwort, 
nach dem der Rest der Zeile entsprechend interpretiert wird. 

Ein Beispiel für ein solches Eile: 

NAME <ProjectNainen> 

PATH <Pfadl> 

PATH <Pfad2> 

SWITCH T <Naine> 

SWITCH F <Naine> 


Nach dem Schlüsselwort NAME folgt, durch ein SpacJ^ ge¬ 


trennt, der Name dieses Projectes. Dieser Eintrag kann auch 
wegfallen. 


• Nach PATH folgt, durch ein Space getrennt, der Pfad zu dem 
gewünschten Modulverzeichnis, z. B.: Cluster: Modules. Es 
können bis zu fünf Einträge dieser Sorte gemacht werden. 


• Nach SWITCH folgt, durch ein Space getrennt, ein „T“ falls 
dieser Switch global eingeschaltet sein soll, sonst ein „F“. 
Darauf folgt, wieder durch ein Space getrennt, der Name des 

^^Leerzeichen 
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neuen Switches. Von dieser Art Eintrag können insgesammt 
30 definiert werden. 


Bei allen Schlüsselwörtern ist es notwendig, daß sie komplett groß 
geschrieben werden. Eine so erstellte Datei muß dann in das Ver¬ 
zeichnis „Cluster:Projects“ gespeichert werden. Will man ei¬ 
nem Text nun diese Pfadliste zuordnen, kann dies mit Hilfe des 
ARexx-Befehls „SetProject“ geschehen. Mehr dazu unter 2.10 
auf Seite [62l 
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2.7 Der Linker 

Der Linker verbindet die einzeln übersetzten Module zum fertigen 
Programm, das Sie direkt von der SHELL oder von der Workbench 
aus aufrufen können. 

Das besondere an diesem Linker ist, daß er selektiv linkt, d. h. 
er klebt nicht einfach alle Module aneinander wie viele andere Lin¬ 
ker, sondern es werden nur die Teile eines Moduls eingebunden, die 
mindestens einmal benutzt werden. Dadurch ist es möglich, lange 
Biblioteksmodule zu schreiben und dennoch kurze Programme zu 
erhalten. 
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2.7.1 Linken eines Programms 

2.7.1.1 Linken von der EU aus 

r/IFFP i'c t u r e f. de f 


' Jf00000" Jf000" jjjlr llf I? lil i: Kl> V 


II 1 

Cluster-Linker VI.>10 (c)'91 StoneMare 

1 II 

|iH— 

9 

|ÖÖT 

HARDDISK! 0 luster/work/IFFGraber 

|n™ 

Cluster:Modules/obj/Horkbench.obj 

]|LINE 

9k MEMORY 208 KBytes |0 



IHPORT IFFPictures flS IFFj 
IHPORT l^rgunents RS f)rg; 

IHPORT Intuition RS Intui; 

IHPORT Dos; 

REGIH 

I FF.SaveConpress:=TRUE; 

Do&.Delay(200)• 

IFF.SaveIconi=FflLSE; 

IF Rrg.NunRrgs=l THEH 

IFF.SaveILBM(Intui.IntuiBase^.firstScreen,Arg.flrg(0)); 

EHD; 


jT^r-rik-Ti^h j 

hNSMOD"fGOBLR "fREPLflC"fDELETE"fPONT " 


rDUPLIN"fDELBLR'^ 


JfMOVE "<IN^ 


R I? 

rBflVfiLL"fUNDO "fMARE "rPRSflVE"fICONIZ" 
roELixr. 




JfMflCR05"<l){fr 


Zum Linken eines Programmes drücken Sie einfach SHIFT + 
F8 ( link ) ■ Daraufhin erscheint ein Requester, er zeigt den 
noch freien Speicher ( 1 ), das Modul, das gerade eingebunden wird 
(2) und den Namen des fertigen Programm (3). 

Befanden Sie sich beim Aufruf des Linkers gerade im Quelltext 
des bereits compilierten Hauptmoduls, so wird dieses nun gelinkt. 
Waren Sie gerade in einem Deünitions- oder einem Implementa- 
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tionsmodul, öffnet sich ein Stringrequester, in den Sie den Namen 
des Programmes, das gelinkt werden soll, eintragen müssen. 

Wollen Sie diesen nicht bei jedem Linken neu eingeben, können 
Sie ihr Hauptmodul im Path-Select-Requester im Feld Projekt ein¬ 
tragen, und es so zum Hauptprojekt machen, oder als Projekt 
dieses Textes (INFO) eintragen. 

Rufen Sie nun den Linker auf, linkt er automatisch das einge¬ 
tragene Programm, sofern Sie nicht gerade ein anderes Hauptmo¬ 
dul bearbeiten. 

2.7.2 Fehlermeldungen des Linkers 

Tritt beim Linken ein Fehler auf, so bricht der Linker den Link¬ 
vorgang ab und gibt eine Meldung aus. 

Eine genaue Beschreibung der Fehlermeldungen des Linkers 
ßnden Sie im Anhang. 
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2.8 Der Loader 

Mit dem Loader hat man die Möglichkeit, ein Programm zu star¬ 
ten, ohne es vorher zu linken. Man könnte auch sagen, daß der 
Loader das Programm direkt in den Speicher linkt. 

Möglicherweise werden Sie fragen, wozu das ganze gut sein 
soll, da man ja ein Programm linken kann und es dann nur noch 
aufrufen muß? 

Der wohl größte Vorteil ist, daß man ein Programm direkt aus 
der EU starten kann. Zusätzlich werden bei Verwendung des Loa- 
ders Laufzeitfehler mit der Programmzeile, in der sie aufgetreten 
sind, ausgegeben. 

Übrigens haben Sie meist die Möglichkeit, auch wenn der Edi¬ 
tor bei einen Programmfehler abstürzen sollte, eventuell noch 
nicht gesicherte Texte zu speichern. 

2.8.1 In der EU 

In der EU ist der Loader mit einer Run-Funktion gekoppelt. Das 
heißt, wenn Sie Alt F8 (RUN ) drücken, wird der aktuelle 
Text compiliert, sofern er das noch nicht war, dann in den Speicher 
„gelinkt“ und schließlich gestartet. 

Zuvor ündet jedoch noch eine Sicherheitsabfrage statt, ob noch 
nicht abgespeicherte Texte zuerst gesichert werden sollen. 

Wichtig: 

Erwartet Ihr Programm beim Start Parameter, müssen Sie diese 
angeben. Dies geschieht, indem Sie 
drücken, worauf sich ein Requester öffnet, in den Sie die Parameter 
nacheinander eintragen können. 

Nach der Ausführung wird nachgefragt, ob Sie das Programm 
noch einmal starten wollen; wenn nicht, wird es wieder aus dem 


IHIFT + 
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Speicher entfernt. 

Tritt bei der Ausführung ein Laufzeitfehler auf, so wird das 
Programm abgebrochen und der Laufzeitfehler nebst Programm¬ 
zeile im Sourcecode, sowie das Modul, in dem er auftrat, angezeigt. 

2.8.2 Laufzeit fehler 

Nun ist es doch an der Zeit, einmal zu erklären, was eigentlich 
Laufzeitfehler, auch Runtime Errors genannt, sind. 

Laufzeitfehler sind Fehler, die während der Übersetzung des 
Programmtextes nicht entdeckt werden können, da Sie nicht aus 
Schreib- oder Konstruktionsfehlern herrühren, sondern i. d. R. im¬ 
mer Denkfehlern des Programmieres zuzuschreiben sind. 

So wird z.B. 
i:=j DIV 0 

bereits bei der Übersetzung als Division durch Null erkannt und 
gemeldet. Dagegen wird 
i:=j DIV k 

anstandslos übersetzt, da in diesem Fall k eine Variable ist. Der 
Compiler nimmt im Normalfall an, daß die Variable nicht Null ist, 
da der Programmierer sich darum schon kümmern muß. Wird k 
jedoch im Laufe des Programms Null und man teilt durch k, führt 
das augenblicklich zu einem Laufzeitfehler. 

Dies war nur ein Beispiel für einen Laufzeitfehler, meist werden 
Sie dadurch verursacht, daß Grenzen oder Zahlenbereiche z. B. in 
einer Schleife überschritten werden. 

Aber auch höchst ungebetene rot lächelnde Inder führen zu 
einem Laufzeitfehler, sofern sie abgefangen werden konnten; an¬ 
sonsten müssen Sie wahrscheinlich neu booten. 

Eine komplette Aufführung aller Laufzeitfehler ünden Sie im 
Anhang mit Beschreibung und Hilfen zur Fehlersuche. 
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2.9 Das Make 

Nehmen wir einmal an, Sie haben in einem großen Projekt ein weit 
unten gelegenes Deünitionsmodul, das womöglich noch von ande¬ 
ren Deünitionsmodulen importiert wird. Wenn Sie dieses ändern, 
so müßten Sie jetzt die große Compilierorgie starten und alle Mo- 
dule, die das veränderte Modul importieren, bei Definitionsmodu¬ 
len auch noch deren Implementationsteile, neu compilieren, um 
dann beim Linken zu erfahren, daß Sie dabei ein Modul vergessen 
haben und alles noch einmal machen dürfen. 

Wenn Sie das einmal gemacht haben, werden Sie bestimmt 
nichts sehnlicher wünschen, als daß so etwas Ihnen nicht noch 
einmal passiert. 

Damit Sie diese Erfahrung nicht auch nur einmal machen 
müssen, besitzt Cluster ein sogenanntes Make. 

Voraussetzung ist jedoch, daß alle beteiligten Texte im Cluster- 
Format vorhegen oder im ASCII-Format mit eingeschalteten Key- 
words, so daß das File mit einem kleinen Header versehen ist, in 
dem die wichtigsten Informationen enthalten sind. 

Das Make untersucht erst die Abhängigkeiten der Module unte¬ 
reinander, um Sie danach, wenn nötig, in der richtigen Reihenfolge 
zu compilieren. 

Da diese Abhängigkeitsfeststellung relativ viel Zeit in Ans¬ 
pruch nimmt, wird dies nur einmal durchgeführt und die ermit¬ 
telten Daten als Datei, mit angehängtem „.MKE“, im „OBJ“ des 
Projekt Verzeichnis des Hauptmoduls abgelegt. 

Die Prüfung und die Erzeugung dieser Makedatei erfolgt durch 
das Programm „CreateMake“. Es wurde extra vom eigentlichen 
Make getrennt, da man diese Prozedur nur beim ersten Mal dur¬ 
chführen muß, bei jedem weiteren Make nicht mehr. 

Sie müssen diese aber jedesmal, wenn Sie in einem Modul ein 
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neues Modul importieren, wiederholen, da ja im Bedarfsfall auch 
dieses neue Modul gefunden und compiliert werden muß. 

Eine Ausnahme bilden Module, die in einem anderen Projekt- 
Verzeichnis hegen, da das Make in einem solchen Fall davon aus¬ 
geht, daß die importierten fremden Module mit Sicherheit vor dem 
importierenden compiliert wurden. 

Ein Tip: Die Makedatei ist ein ganz gewöhnliches Textfile, 
in dem aufgeführt ist, welches Modul welche anderen importiert. 
Wenn Sie also nach einem Createmake doch noch ein neues Mo¬ 
dul in einem anderen importieren, müssen Sie nicht unbedingt ein 
neues „CreateMake“ ausführen. 

Laden Sie einfach die Makedatei in den Editor, und tragen sie 
hinter der Importliste des bearbeiteten Moduls den Namen des 
neuen Moduls ein. 

Sie sehen also, man kann eine Makedatei auch von Hand er¬ 
zeugen oder verändern. 

Nun zur Bedienung, durch Drücken von 


Ctrl 


+ 


F8 




(MAKE ) erscheint ein Requester mit mehreren Gadgets. 

Wenn Sie nur 1MB oder gar noch weniger freien Speicher ha¬ 
ben, ist es ratsam darauf zu achten, daß Sie keinen zu großen 
Textspeicher eingestellt haben. 

Führen Sie in diesem Projekt zum ersten mal ein Make aus, 
oder haben Sie eine neue Modulabhängigkeit erzeugt (s. o.), so 
wählen Sie zuerst CREATE an, um eine neue Makedatei zu er¬ 
zeugen. Dabei wird als Hauptmodul sofern Sie diese Funktion 
von einem anderen Modul, als dem Hauptmodul aus anwählen 


das unter Projekt eingetragene angenommeij^ Ist keines gesetzt 


so erscheint ein Requester, in den man den Projektnamen (gleich¬ 
bedeutend mit dem Namen des Hauptmoduls) eingeben muß. Als 


Zuerst wird dabei der Projekteintrag im Textinforequester dieses Textes, 
dann der im Path-Edit-Requester gemachte berücksichtigt. 
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Pfad zum Projektverzeichnis wird dabei der Pfad des Textes an¬ 
genommen, von dem aus Make gestartet wurde. 

Danach brauchen Sie nur noch Make anzuwählen und alle 
Texte werden geprüft. Wenn einer neu compiliert werden muß, 
wird er in das aktuelle Textfenster geladen (keine Angst, der darin 
beündliche Text wird gespeichert und am Ende wieder eingeladen) 
und übersetzt. 

Schließlich müssen Sie nur noch das Hauptprogramm linken. 

Wählt man statt MAKE REMAKE, dann werden alle Mo- 
dule, die vom Hauptmodul direkt oder indirekt importiert werden, 
in der richtigen Reihenfolge neu übersetzt, ohne Rücksicht, ob sie 
schon compiliert waren. Dies ist vor allem praktisch, wenn man 
in PATHS-EDIT einen projektglobalen Schalter umgeschaltet hat 
und um dadurch alle beteiligten Module mit diesem Schalter neu 
zu übersetzen. Ist man sich sicher, daß solch ein Schalter nur Im- 
plementationsmodule betrifft, kann man auch REMAKE IMPL. 
anwählen, daraufhin werden alle abhängigen Implementationsmo- 
dule compiliert. 
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2.10 ARexx-Ansteuerung von Compiler, 

Linker, Loader und Make 

Um Ihnen auch die Möglichkeit zu geben, mit Ihrem Lieblingsedi- 
tor zu arbeiten, hegt dem Paket eine Version von Compiler, Lin¬ 
ker, Loader und Make bei, die über ARexx ansteuerbar ist. Dieses 
Programm wird einmal gestartet, bleibt dann im Hintergrund im 
Speicher und wartet auf ARexx-Kommandos. Aufruf: 

run RexxCluster 


Danach können folgende Kommandos an den ARexx-Port 
CLUSTER.REXX übergeben werden: 

Compile {Filenamen Fehlerdatei [Fileposition] | 

Eventuell möchte man, 


Übersetzt die Datei FileNamer^*^ 


daß das File, das der Compiler übersetzen soll, an einer 
anderen Stelle hegt als der, die bei Filenamen angegeben 
ist, beispielsweise, der Editor speichert sie ins RAM oder 
in die PIPE, damit der Übersetzungsvorgang beschleunigt 
wird, und speichert den Text nur am Arbeitsende wieder 
an dem Platz, an dem er eigentlich hegen sollte. In ei¬ 
nem solchen Fall kann man die wirkliche Position des Files 
mit Fileposition angeben. Daß man nicht gleich diesen 
Pfad als Filenamen angibt, hat den Zweck, daß der Com¬ 
piler am Filenamen immmer noch erkennen kann, welche 
Module im selben Verzeichnis wie der zu übersetzende Text 
liegen. Eventuelle Fehler schreibt der Compiler in die Da¬ 
tei FehlerDatei. Diese Fehlerdatei besteht aus einzelnen 
Strings, die sich folgendermaßen aufbauen: 


20 


Dabei muß der komplette Pfad angegeben werden. 
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FehlerMeldung Zeile Spalte 

Diese Datei kann man danach leicht mittels eines ARexx- 
Skripts parsen. 

Link {Filenamen Fehlerdatei} 

Linkt die Datei FileNamen und schreibt eventuelle Fehler in 
die Datei Fehlerdatei. 

Run {Filenamen Fehlerdatei} 

Startet das Programm FileNamen und schreibt even¬ 
tuelle Laufzeitfehler mit Positionsangabe in die Datei 
Fehlerdatei. 

SetArgString (Argument string} 

Hiermit kann eine Argumentzeile eingetragen werden, die bei 
Run dem Programm übergeben wird. 

Create (FileNamen Fehlerdatei} 

Erzeugt eine Makedatei für das Modul FileNamen, eventuelle 
Fehler werden in die Datei Fehlerdatei geschrieben. 

Make (FileNamen Fehlerdatei} 

Führt ein Make auf das Modul FileNamen aus, eventuelle 
Fehler werden in die Datei Fehlerdatei geschrieben. 

ReMake (FileNamen Fehlerdatei} 

Führt ein ReMake auf das Modul FileNamen aus, eventuelle 
Fehler werden in die Datei Fehlerdatei geschrieben. 

ReMakelmpl { FileNamen Fehlerdatei} 

Compiliert alle Implementationsmodule, die von dem Modul 
FileNamen abhängig sind. Eventuelle Fehler werden in die 
Datei Fehlerdatei geschrieben. 
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SetProject {Projectnamen} 

Setzt das Project Projectnamen als Pfadliste, nach der die 
Modulverzeichnisse ausgewählt werden. 


Quit 

Beendet das Programm. 

Wenn Sie das Make verwenden wollen, muß jeder Text noch einen 
kleinen Header erhalten, der als Platzhalter dient, damit das Make 
darin für den Makevorgang wichtige Daten ablegen kann. Der 
Header sieht folgendermaßen aus, und muß noch vor der ersten 
Programmzeile stehen: 

I##########I 

|#MAGIC #1******** 

|#PR0JECT #1"Editor" 

|#PATHS #1"StdProject" 

I##########I 

Für das Make notwendig sind nur die erste, die letzte und die Zeile 
mit dem Eintrag MAGIC. Die 8 Sterne hinter MAGIC sind absolut 
notwendig, da an diese Stelle das Make seine Daten ablegt. Die 
Zeilen PROJECT und PATHS können auch wegfallen, sie sind nur ein 
Vorschlag, sie könnten dazu dienen, von dem den Compiler au¬ 
frufenden ARexx-Script geparst zu werden. So gibt PROJECT an, 
welches das Hauptprogramm ist, das gelinkt oder gemaked werden 
soll, falls man den Linker oder das Make von einem anderen Modul 
als vom Hauptmodul aufruft. PATHS gibt den Namen der PfadListe 
an, die man dann per ARexx mit SetProject an den Compiler 
übergeben kann, bevor man den Compiler startet. Die mit gelie¬ 
ferten ARexx-Scripte berücksichtigen diese Schlüsselwörter. 

Falls Ihr Editor keine ARexx-Macros ausführen kann, besteht 
auch die Möglichkeit, die mitgelierferten Skripte gleichen Namens 
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aufzumfen, die sich nach der Installation in Cluster: beünden. 
Beispiele für solche ARexx-Skripte ünden Sie im Anhang. 
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2.11 Der Debugger 

An dieser Stelle soll einmal die endgültige Anleitung des in Vorbe¬ 
reitung befindlichen Debuggers stehen. Da wir es aber noch nicht 
geschafft haben, ihn vollständig fertigzustellen, wir Ihnen die Vor¬ 
version aber dennoch nicht vorenthalten wollten, steht hier eine 
kurze Anleitung der vorläuffgen Cli-Version des Debuggers. 

Bevor man ein Modul mit dem Debugger bearbeiten kann, muß 
man es, sowie das Hauptmodul des dazugehörigen Programms, 
mit dem Switch Debug:=TRUE compilieren. Danach ruft man den 
Debugger mit dem Programmnamen als Parameter auf. 

Hat er alle Module importiert, kann man mit dem Durchstep¬ 
pen beginnen. Trifft man dabei auf eine Prozedur, wird in de¬ 
ren BEGIN-Teil das Tracen fortgesetzt. Dies funktioniert auch in 
Prozeduren aus anderen Modulen, soweit diese mit Debug:=TRUE 
compiliert wurden. 

Debugger [!Projectnamen] Programmnamen 

Dabei ist ! Projectnamen der Name des Projektes, nach dem der 
Debugger die Module, die sich nicht im aktuellen Verzeichnis be¬ 
finden, auswählen soll. Das „!“ vor dem Namen ist notwendig, 
damit der Debugger den Projektnamen nicht für das Programm 
hält. 
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Folgende Kommandos stehen dazu zur Verfügung: 


s, Return 

: Führe die nächste Zeile aus. 

0 

: Führe die nächste Zeile aus, überspringe 
dabei Prozeduren. 

g 

: Führe das Programm bis zum Ende aus 
oder bis zu einem Breakpoint. 

g line 

: Führe das Programm bis zu Zeile line 

aus. 

b+ line 

: Setzte Breakpoint in Zeile line. 

b- line 

: Lösche Breakpoint in Zeile line. 

c+ 

: Schaltet automatisches Löschen des Bild¬ 
schirms vor jeder Ausgabe ein. 

c- 

: Schaltet automatisches Löschen des Bild¬ 
schirms vor jeder Ausgabe aus. 

ct 

: Spezieller Clearmodus vor Listingaus¬ 
gabe, dabei wird bei jedem Schritt der 
Bildschirm gelöscht und die Programm¬ 
zeilen um die augenblickliche Position he¬ 
rum neu ausgegeben. 

t 

: Zeigt die Zeilen um die aktuelle Position 

t n m 

an. 

: Zeigt die Zeilen von n bis m an. 

t+ 

: Schaltet automatische Listinganzeige an. 
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t+ n : Schaltet automatische Listingsanzeige an, 

wobei n Zeilen benutzt werden. Beim 
Autolist wird von da an diese Anzahl 
verwendet. 

t- : Schaltet Autolist wieder aus. 

? XXX : Zeigt den Inhalt der im nächstgelegenen 

Sichtbarkeitsbereich hegenden Variablen 
XXX an. 

? n XXX : Zeigt den Inhalt der Variablen xxx in der 

Aktionsstufe n an. 

w xxx : Bewirkt, daß die Variable xxx bei je¬ 

dem Schritt neu ausgelesen und angezeigt 
wird. Ausschalten wieder mit w xxx. 

X : Bricht das Programm ab, indem in den 

Close-Teil gesprungen wird. 

* : Bricht das Programm ab, ohne daß der 

Close-Teil angesprungen wird. Empfeh¬ 
lenswert, wenn ein Programm sich im 
Close-Teil aufhängt. 

e : Nach dem Auftreten einer Exception kann 

man hiermit den Exceptiontext erhalten. 

Am empfehlenswertesten ist folgende Einstellung: Debugger mit 
einem Programm starten, dann „+10“, und darauf „ct“ eingeben. 

Spielen Sie ein bißchen damit herum, aber speichern Sie vo¬ 
rher alle Texte. Wir sind sicher, daß der Debugger auch in dieser 
Version schon sehr nützlich sein kann. 

Wir sind selbstverständlich für Anregungen sowie Eehlermel- 
dung, den Debugger betreffend, dankbar. 
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• • 

2.12 Übersicht aller Editorfunktionen 


2.12.1 Cursortasten 



ein Zeichen nach links 
auf Zeilenanfang springen 
ein Wort nach links 


: ein Zeichen nach rechts 
HIFT : ans Ende der Zeile springen 
Llt : ein Wort nach rechts 

t : eine Zeile hoch 

t + SHIFT : an den Anfang der Seite springen; beündet sich 

der Cursor schon dort, springt er an den An¬ 
fang des Textes 

t + Alt : eine Seite nach oben 

t + Ctrl : ein Fenster nach oben 


3 + 
^ + 



eine Zeile runter 

ans Ende der Seite, beündet man sich schon 
dort, an das Ende des Textes 

eine Seite nach unten 

ein Fenster nach unten 
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2.12.2 Steuertasten 
BACKSPACE 



löscht das Zeichen links vom 
Cursor 

löscht das Zeichen unter dem 
Cursor 

ein Zeichen einfügen, in Stringgad- 
gets ganze Zeile löschen 

zwischen Insert/Overwrite-Modus 
wechseln 

an nächsten Zeilenanfang springen 

zerlegt eine Zeile oder springt an 
den Anfang der nächsten Zeile, je 
nach dem, welcher Returnmodus 
eingestellt worden ist 

zwei Zeilen aneinanderhängen 

ein Tabulator nach rechts 
ein Tabulator nach links 
Tabulatormodus wechseln 
Tababstand ändern 

Requester verlassen 
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Help 


: Offnet in manchen Stringgadgets 
einen File-Requerster, um einen 
Pfad auszusuchen 

Help 

+ Alt 

: Setzt eine Marke an der Cursorpo¬ 
sition und sucht das Wort, auf dem 
man sich gerade befand, vom Text¬ 
anfang aus 

Ctrl 

+ Taste 

: Macro aufnehmen 

~ a ] + Taste 

: Macro aufrufen 


2.12.3 Funktionstasten und Menüfunktionen 


Fl 





(INSLIN) 

Fl 

+ 

SHIFT 


(DELLIN) 

Fl 

+ 

Alt 


(CLRLIN) 

Fl 

+ 

Ctrl 


(INSMOD) 

Fl 

+ 

A 



(DUPLIN) 


: Zeile einfügen 
: Zeile entfernen 
: Zeile löschen 

: Wechselt zwischen Insert- und 
Overwrite-Modus 

: Verdoppelt eine Zeile 
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F2 





( BSTART): 

; Blockanfang setzen 

F2 

+ 

SHIFT 


(BEND ) : 

; Blockende setzen 

F2 

+ 

Alt 


(BFOLD ) : 

; Klappt einen markierten 







Textbereich ein 

F2 

+ 

Ctrl 


(GOBLK ) : 

; Springe an den Blockan- 







fang, ist man schon dort, 







dann springt man an das 







Blockende 

F2 

+ 

A 



( DELBLK ) : 

; lösche Blockdeünition 

F3 





(SEARCH) : 

; auf ein bestimmtes Wort 







springen 

F3 

+ 

SHIFT 


(NEXT ) : 

; nach dem nächsten Auftre- 







ten des mit F3 gesuchten 







Wortes suchen 

F3 

+ 

Alt 


(GOTO ) : 

; auf eine Zeile durch Angabe 







der Zeilennummer springen 

F3 

+ 

Ctrl 


(REPLAC) : 

; Suchen und Ersetzen 

F3 

+ 

A 




; für Updates reserviert 
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F4 





(PASTE ) 

F4 

+ 

SHIFT 


(COPY ) 

F4 

+ 

Alt 


(CÜT ) 

F4 

+ 

Ctrl 


(DELETE) 

F4 

+ 

A 



(MOVE ) 

F5 





(WOPEN ) 

F5 

+ 

SHIFT 


(WCLOSE) 

F5 

+ 

Alt 


(MENUE ) 

F5 

+ 

Ctrl 


(FONT ) 

F5 

+ 

A 



(INFO ) 


Pufferinhalt einfügen 

kopiert den Block in den 
Puffer 

schneidet den Block aus und 
kopiert ihn in den Puffer 

löscht den Block 

schneidet den Block aus und 
fügt ihn an der Cursorposition 
ein 

gibt dem aktuellen Fenster 
alle verfügbaren Zeilen 

fährt ein Fenster in sich 
zusammen 

fährt das Menü ein/aus 

schaltet zwischen dem 
großen und dem kleinen 
Zeichensatz um 

öffnet den Textinforeques- 
ter 
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F6 




(LOAD ) : 

; öffnet den Filerequester 

F6 

+ 

SHIFT 


(SAVE ) : 

; sichert den aktuellen Text 

F6 

+ 

Alt 


(SAVEAS) : 

; sichert den Text unter ei 

nem anderen Namen 

F6 

+ 

Ctrl 


(SAVALL) : 

; sichert alle Texte nach Ab 
frage 

F6 

+ 

A 


(DELTXT) : 

; entfernt ein Fenster 


F7 


F7 


F7 


+ 

+ 


SHIFT 


Alt 




F7 + Ctrl 




F7 


+ 


A 




(MARK ) : setzt eine Marke 

(GDMARK) : springt auf die Marke 

(SWPMAR) : vertauscht Marke mit dem 
Cursor 

(UNDP ) : macht Veränderungen in ei¬ 
ner Zeile rückgängig 

: für Updates reserviert 


F8 


F8 

+ 

SHIFT 






F8 

+ 

Alt 







F8 

+ 

Ctrl 


F8 

+ 

A 






(COMPIL) : startet den Compiler 
( link ) : startet den Linker 
( RUN ) : startet den Loader 
(MAKE ) : öffnet den Makerequester 
: für Updates reserviert 
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F9 




(PROJKT) : 

: öffnet den 
Requester 

Paths-Edit- 

F9 

+ 

SHIFT 


(PARAMS) : 

: Parameter 

Loaderstart 

für den 

F9 

+ 

Alt 


(PRLOAD) : 

: Lädt einen 

OldState 

gespeicherten 

F9 

+ 

Ctrl 


(PRSAVE) : 

: speichert den 
Zustand des 

OldState. 

momentanen 

Editors als 

F9 

+ 

A 


(MACROS) : 

: Lädt/Speichert eine Macro¬ 
belegung 


Fehler 


FlO 

+ 

SHIFT 


(PREVER): 

: springt zum vorhergehen¬ 
den Eehler 

FlO 

+ 

Alt 


(GLOBAL): 

: öffnet den Voreinstellungs- 
requester 

FlO 

+ 

Ctrl 


(ICONIZ) : 

: verwandelt den Editor zu 

einem Icon 

FlO 

+ 

A 


(EXIL ) : 

: beendet die EU 


FlO 


(ERROR ) : springt auf den nächsten 
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2.13 Mit gelieferte Hilfsprogramme 

2.13.1 Cprint 

Gibt einen Clustertext auf dem Drucker aus, Schlüsselwörter wer¬ 
den dabei fett gedruckt. 

Aufruf: 

Cprint textnamen 

2.13.2 Createlmport 

Erzeugt ein Modul, das alle Module eines Projekt-Verzeichnisses 
importiert, praktisch wenn man ein ganzes Projekt ‘maken‘ will. 
Aufruf: 

Createlmport name 

name : gibt dabei den Namen des ImportModuls an, das erzeugt 
werden soll. 

Zum Aufruf in das Projekt-Verzeichnis gehen, das man später 
‘maken‘ will. Den Text des Importmoduls finden Sie dann im 
TXT-Verzeichnis. 
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KAPITEL 3. EINFÜHRUNG IN CLUSTER 


3.1 Wer dieses Kapitel lesen sollte... 

Anfänger! Sie sind ein Anfänger? Sie verstehen vom Program¬ 
mieren so viel wie Arnold Schwarzenegger vom Flötespielen? Sie 
sind guten Willens, doch dauernd wirft Ihnen jemand Knüppel in 
Form von unverständlichen Worten zwischen die Beine? Sie ünden 
Informatiker doof und können nicht über Computerwitze lachen? 

Dann sollten Sie dieses Kapitel entspannt und in Ruhe durchle¬ 
sen, anstatt in eine Buchhandlung zu rennen, sich dort ehrfürchtig 
vor einer riesigen Bücherwand aufzubauen, sich schließlich für ei¬ 
nen unaussprechlichen Titel zu entscheiden, das Ding nach Hause 
zu schleppen und bei der Lektüre desselben immer tiefer in den 
Sessel zu versinken, weil Sie das Gefühl nicht loswerden, daß der 
Autor jedes zweite Wort selbst nicht verstanden hat. 

Also lassen Sie uns lieber zusammen ganz langsam an die Ar¬ 
beit gehen und vorsichtig versuchen, den Kampf mit den vielen 
schrecklichen Fachwörtern souverän anzugehen und hinter uns zu 
bringen. Sie werden sehen das geht! 

Aber auch Personen, die schon etwas Programmiererfahrung 
gesammelt haben, sei es in Pascal, Modula 2 oder C sind herzlich in 
diesem Kapitel willkommen. Besonders Modula 2-Programmierer 
werden sich recht schnell heimisch fühlen, da Cluster eine von 
Modula 2 abgeleitete Programmiersprache ist. Cluster enthält ei¬ 
nige nützliche Erweiterungen und Ergänzungen zu Modula 2, also 
sollte auch der erfahrene Programmierer dieses Kapitel zumindest 
überfliegen. 

3.2 Was bietet dieses Kapitel? 

Ziel dieses Kapitels soll es also sein. Ihnen einigermaßen leicht 
verdaulich elementare Grundlagen für die Programmierung Ihres 
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Amiga zu vermitteln. 

Wenn Sie dieses Kapitel halbwegs konzentriert hinter sich ge¬ 
bracht haben, sollten Sie wissen: 

• was ein Programm ist, 

• was der Begriff „Algorithmus” bedeutet, 

• wie ein Cluster-Programm aufgebaut ist, 

• wie man kleine Problemstellungen zerlegt und in die Pro¬ 
grammiersprache Cluster überträgt, 

• wie man die Informationen, die dieses Handbuch enthält, für 
seine eigenen Programme nutzt. 

Am besten und schnellsten lernt man bekanntlich etwas, wenn man 
es selber tut. Darum sollten Sie ab und zu Ihre Maschine anwerfen 
und die hier vorgeführten Beispiele eintippen, ausprobieren und 
verändern. Denken Sie immer daran, daß man aus Fehlern am 
meisten lernt. Ärgern Sie sich also nicht, wenn nicht gleich alles 
so klappt, wie Sie sich das vorstellen. 

3.3 Was ist ein Computerprogramm? 

So wie ein CD-Player die auf den CDs gespeicherten Informationen 
benutzt, um Töne zu erzeugen, so benötigt ein Computer ein Pro¬ 
gramm, um zu wissen, was zu tun istj^ Ein solches Programm bes¬ 
teht aus Anweisungen für den Computer: Das Programm enthält 
Befehle, der Computer führt sie aus. Er folgt dabei Schritt für 

^Natürlich hinkt dieses Beispiel ziemlich, aber es viel uns gerade kein bes¬ 


seres ein. 
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Schritt genau dem Weg, den das Programm vorgibt. Ein Pro¬ 
gramm ist also eine Befehlsliste. Zum Verständnis stellen Sie sich 
einfach mal folgende Situation vor: Sie wachen nachts auf und ha¬ 
ben einen tierischen Hunger auf eine Schneckensupp^ Was ist zu 
tun? 

1. Sie stehen auf. 

2. Sie gehen in die Küche und schalten das Licht an. 

3. Sie greifen mit einer Hand nach der Dose. 

4. Ihre andere Hand schnappt sich den Dosenöffner. 

5. Sie öffnen die Dose. 

6. Den Inhalt geben Sie in einen Topf. 

7. Sie erwärmen nun den Topf. 

8. Sie essen die Suppe. 

Diese acht Schritte stellen also ein Programm für das Problem 
„Heißhunger auf Schneckensuppe” dar. 

Für die Lösung ein und desselben Problems gibt es meistens 
viele Möglichkeiten, die sich durch Eleganz und Länge oft erhe¬ 
blich unterscheiden. Die Art und Weise, wie ein Problem auf dem 
Computer zur Lösung umgesetzt wird, macht die Qualität eines 
Programmierers aus. 

Natürlich kann der Computer nur schlecht eine Dose knacken, 
aber im Prinzip müssen Sie mit jedem Problem, welches Sie auf 
Ihrem Computer lösen wollen, so verfahren: Es in kleinstmögliche 
Teilprobleme zerlegen und somit den Weg zum Ziel beschreiben. 

^Alle die nichtkulinarisch veranlagt sind, können nachfolgende Referenzen 
zur Schneckensuppe fast vollständig durch Gulaschsuppe ersetzen 
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3.3.1 Wofür sind Algorithmen gut? 


Algorithmen: Nun doch diese fürchterlichen Fremdwörter, denken 
Sie jetzt vielleicht. Aber alles halb so wild, Algorithmen sind gar 
nicht so übel. 

Unter einem Algorithmus versteht man eine Verarbeitungs- 
vorschriftj^ für ein Problem, die so präzise ist, daß sie von einem 
Computer durchgeführt werden kann[^ Ist also ein Algorithmus 
praktisch ein Programm und umgekehrt, sind nicht die Begriffe 
Programm und Algorithmus demzufolge identisch? 

Beinahe ein Programm ist die Formulierung eines Algorith¬ 
mus in einer bestimmten Programmiersprache, bei uns in Clus¬ 
ter. Außerdem kann ein Programm mehrere Algorithmen enthal¬ 
ten. Während Algorithmen relativ allgemein beschrieben werden 
können und an keine formellen Vorschriften gebunden sind, d. h. 
unabhängig von der Synta5<® von Cluster sind, sind Programme 
wesentlich konkreter. Sie sind nämlich auf einem Computer direkt 
ausführbar, und das ist es ja, was wir wollen: richtige Programme 
schreiben, die auf dem Computer auch laufen. 


Beispiel: Berechnung des Mittelwertes zweier Zahlen: 

Algorithmus: Den Mittelwert m zweier Zahlen a und b bildet 
man, indem man beide Zahlen addiert und an¬ 
schließend durch 2 dividiert. 

Programm: 

Eine Befehlsliste 

® Computer legen sehr viel Wert auf Präzision 

®Die Syntax einer Programmiersprache ist vergleichbar mit der Rechtschrei¬ 
bung einer natürlichen Sprache 
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ReadReal(a); 

ReadReal(b); 
mittelwert:=(a+b)/2; 
WriteReal(mittelwert); 


I erste Zahl einiesen 
I zweite Zahl einiesen 
I Mittelwert berechnen 
I Ergebnis ausgeben 


Dieses Teilprogramm stellt die für Ihren Rechner verständliche 
Umsetzung des oben aufgeführten Algorithmus in der Sprache 
Cluster dar. Sie müssen nicht unbedingt alles verstehen. Es 
dient lediglich der anschaulichen Unterscheidung zwischen Al¬ 
gorithmus und Programm. 

3.3.2 Was ist eine Sprache? 

Man unterscheidet natürliche und künstliche Sprachen: Natürliche 
Sprachen haben sich im Laufe der Evolution in Jahrmillionen 
entwickelt und werden vom Menschen zur Verständigung unte¬ 
reinander verwendet. Sie existieren in Form von gesprochener 
Sprache und Schriftsprache und sind ständiger Veränderung un¬ 
terworfen. Künstliche Sprachen sind erst seit gut hundert Jahren 
auf dem Markt und nicht natürlich gewachsen, sondern von Men¬ 
schenhand konstruiert worden, um Schlußfolgerungen und Denk¬ 
vorgänge darstellen und durchdringen zu können. Seit den 40er 
Jahren entstanden dann daraus die ersten Programmiersprachen. 

Künstliche Sprachen wie die Programmiersprachen sind im Ge¬ 
gensatz zu den natürlichen Sprachen nach strengen Regeln aufge¬ 
baut und haben ein festes, endliches Grundvokabular sowie eine 
feste Syntax. Während bei den natürlichen Sprachen die Bedeu¬ 
tung eines Wortes oftmals Auslegungssache ist, besitzen Wörter 
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und Sätze in Programmiersprachen eine genau definierte Bedeu¬ 
tung. 

3.3.3 Was ist eine Programmiersprache? 

Um dem Computer ein Programm bzw. die in ihm enthaltenen Be¬ 
fehle verständlich zu machen, muß man mit ihm in einer bestimm¬ 
ten Sprache sprechen, was meistens schriftlich über die Compu¬ 
tertastatur geschieht. Diese Sprache heißt nun aber nicht Deutsch 
oder Französisch (natürliche Sprachen), sondern z. B. Cluster 
(künstliche Sprache). Sie fragen vielleicht, warum man mit dem 
Gerät nicht einfach deutsch reden kann, aber das funktioniert lei¬ 
der aus technischen Gründen z. Zt. noch nicht. 

Der Computer ist nun einmal ein blödes Ding, nicht intelligen¬ 
ter als eine Kaffeemaschine und obendrein noch schrecklich sen¬ 
sibel. Man mußte erst eigene Sprachen für ihn entwickeln, bis er 
mit dem Menschen kommunizieren wollt^ und diese Sprachen 
mag er, wenn er sie denn wirklich versteht, nur in ihrer reinsten 
Form. 

Pustekuchen also mit Unsauberkeiten und solchen Sachen wie 
Dialekt o. ä. . 

Damit der Mensch aber auch etwas davon hat, ist man ihm bei 
dieser Entwicklung ein ganzes Stück entgegengekommen und hat 
ihm das Leben soweit wie möglich erleichtert, indem man z. B. 
Vokabeln aus menschlichen Sprachen zum Einsatz kommen ließ. 
Meistens hat man sich dabei am Englischen orientiert, so bei Pas¬ 
cal, Modula 2 und damit auch bei Cluster. Wer die englische 
Sprache nicht mag, was man gut nachvollziehen kann, muß sich 
trotzdem davor nicht fürchten. Es gibt nämlich doch noch einige 

^Korrekter ist natürlich: Bis man sich mit dem Compnter verständigen 
konnte 
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wesentliche Unterschiede zur gesprochenen Sprache. 

Wenn man sich erst einmal an diese kleinen Unterschiede zwi¬ 
schen natürlicher und künstlicher Sprache gewöhnt hat und oben¬ 
drein noch in der glücklichen Lage ist, mit einem so eleganten 
Werkzeug wie Cluster mit dem Computer reden zu dürfen, macht 
das Ganze einen Mordsspaß. 

3.3.4 Syntax — die Grammatik einer Programmiers¬ 
prache 

Eine Sprache wird durch eine Folge von Zeichen deüniert, welche 
bestimmten Regeln gehorchend zusammengesetzt werden dürfen. 
Den hierdurch beschriebenen formalen Aufbau der Sätze oder Wör¬ 
ter, die zur Sprache gehören, bezeichnet man als ihre Syntax. 

Die Syntax einer Programmiersprache legt fest, welche Zei¬ 
chenreihen korrekt formulierte Programme der Sprache sind und 
welche nicht. Um präzise feststellen zu können, ob ein Programm 
syntaktisch korrekt ist, muß man zuvor die Syntax der Sprache 
formal beschreiben. 

3.4 Was ist Programmierung? 

Programmierung ist einfach der Vorgang der Programmerstellung. 
Dazu gehört eine vernünftige Beschreibung, vielleicht auch eine 
graphische Darstellung des zu lösenden Problems bzw. des dafür 
geeigneten Lösungsweges und natürlich das „Füttern” des Compu¬ 
ters mit Programmtext (Quellcode oder auf Neudeutsch „Source¬ 
code“). 
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3.4.1 Was versteht man unter „strukturierter Pro¬ 
grammierung” ? 

Strukturierte Programmierung ist ein Programmierverfahren, das 
auf der Modularisierung eines Problems beruht. Dabei werden 
aus dem vorliegenden Problem verschiedene Teilprobleme (im Pro¬ 
gramm: Prozeduren) konstruiert, die unabhängig voneinander ent¬ 
wickelt und auch in anderen Programmen wieder verwendet wer¬ 
den können. 

Zum Erreichen dieses Ziels werden zwei Methoden angewendet: 
die Top-down-Method^ und die Bottom-up-Method^ 

Für uns soll hier zunächst einfach gelten: Zerlege das gegebene 
Problem in möglichst viele Teilprobleme und in die Beziehungen 
zwischen diesen Teilprobleme, die Schnittstellen genannt werden. 
Um Ihnen dieses Verfahren, was dem Top-down-Entwurf sehr nahe 
steht, etwas deutlicher zu machen, soll noch einmal das Beispiel 
mit der Schneckensuppe angeführt werden: 

Es soll gezeigt werden, wie man die einzelnen Teilschritte des 
Schneckensuppenbeispiels noch weiter aufteilen kann. Dazu 
nehmen wir uns einfach die Schritte (1) und (7) vor. Man 
könnte sie folgendermaßen weiter zerlegen: 

1.Schritt: Sie stehen auf: 

a) Augen aufschlagen 

b) Nachttischlampe anknipsen 

^Durch schrittweise Verfeinerung wird das Ausgangsproblem in einfacher 
zu lösende Teilprobleme zerlegt. Hierbei wird bei jedem Entwurfsschritt fest¬ 
gelegt, was die Untermodule (Teilprogramme) leisten sollen. Die Funktionen 
der Module einer Ebene sollen nur durch die Funktionen jener Module der 
direkt darunterliegenden Ebene verwirklicht werden 

®geht nicht vom gegebenen Problem, sondern von den Funktionen und 
Möglichkeiten der zur Verfügung stehenden Basismaschine aus. Dies dreht 
die Vorgehensweise von Top-down also praktisch gerade um 
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c) Bettdecke Zurückschlagen 

e) Füße aus dem Bett wuchten 

f) Pantoffeln anziehen 

g) Bett verlassen 

7.Schritt: Sie erwärmen nun den Topf: 

a) Herdplatte anstellen 

b) Schneckensuppe gelegentlich umrühren 

c) wenn die Suppe warm ist, Herd abschalten und Topf 
herunterziehen 

Als Beispiel für eine Schnittstellenbeziehung könnte man hier 
l.e als Voraussetzung für l.f nennen: Bevor man sich die Pan¬ 
toffeln anziehen kann, müssen die Füße erst einmal auf dem Bo¬ 
den stehen. Oder folgende Bedingung: Um die Dose überhaupt 
sehen und greifen zu können, muß unbedingt das Licht anges¬ 
chaltet werden, sonst kann es passieren, daß man sich mit dem 
Dosenöffner den Magen öffnet, was eher zu den unangenehmen 
Dingen des Lebens gehört und nichts mehr mit Programmie¬ 
rung zu tun hat... 

7.C wäre übrigens eine Beispiel für eine Verzweigung, die weiter 
unten behandelt wird: Die Suppe wird erst dann vom Herd 
genommen, wenn sie warm ist. 

Diese Verfeinemngsschritte führt man solange durch, bis das be¬ 
handelte Problem ohne weitere Verfeinerung lösbar bzw. program¬ 
mierbar ist. 

3.5 Variablen und Konstanten 

Variablen sind Speicherplätze im Rechner, in denen Zahlen, Buchs¬ 
taben, Wörter oder andere Objekte (dazu später) gespeichert wer¬ 
den. Eine Variable hat einen Namen (Variablenname), einen so¬ 
genannten Datentyp und einen Dateninhalt. In anderen Worten: 
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Wenn man sich den Computerspeicher als eine Anzahl kleiner 
Kästchen oder Schubladen vorstellt und in jedes dieser Kästchen 
etwas abgespeichert bzw. abgelegt werden kann, stellen die Varia¬ 
blennamen die Beschriftung dieser Kästchen dar. Mit Variablen 
kann genauso gearbeitet werden wie mit den Daten selbst. Mit ei¬ 
ner Zahlenvariablen kann z. B. gerechnet werden wie mit anderen 
Zahlen. 

Der Name der Variablen und ihr Typ werden im Deklarations¬ 
teil eines Programmes fest gelegt. Der Dateninhalt der Variablen 
kann bei der Deklaration (siehe unter 3.5.3 ab Seite 26) und im 
Programm zugewiesen und jederzeit geändert werden. 

Meistens benutzt man Buchstaben, um Variablen darzustellen, 
so auch in der Programmiersprachen Cluster, wo allerdings auch 
bestimmte Kombinationen aus Zahlen und Buchstaben zulässig 
sind. Mit Variablen kann man in erster Linie rechnenF^ 

Bei der Bildung von Variablennamen sind der Phantasie kaum 
Grenzen gesetzt (sie sollten lediglich so weit möglich selbster¬ 
klärend sein), doch gibt es einige einschränkende Regeln hierfür. 
Anhand der folgenden Beispiele werden Sie schnell dahinter kom¬ 
men. 

Zulässige Variablennamen sind zum Beispiel: 


X, xl, xll 

text, Text, TEXT, TeXt 
alZeichen, Aktenzeichen2X0rdner3b 


Variablennamen dürfen also aus einer beliebigen Kombination von 
kleinen und großen Buchstaben und Zahlen bestehen, wobei am 
Anfang eines Namens keine Zahl stehen darf. 

Unzulässig sind daher z. B. 

^^Abhängig vom Typ der Variablen 
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IText, lOxyz 

Auch Leerzeichen und Bindestriche darf Ihr Variablenname nicht 
enthalten. Unzulässig sind deshalb auch folgende Gebilde: 

Anfang Text, Min-Max, a3-b2 
Erlaubt ist jedoch der Unterstrich. Somit darf z. B. 

Minjyiax 

verwendet werden. 

Beachten Sie außerdem und damit kommen wir auch schon 
ans Ende dieser vielleicht etwas langweiligen Angelegenheit daß 
die Variablen Text, text, TEXT und TeXt nicht identisch sind. 
Wir kommen hier auf eine besondere Eigenschaft von Cluster zu 
sprechen, die man Case-Sensitivität nennt und weiter unten auch 
noch einmal kurz angesprochen wird. „Case-sensitiv” heißt nichts 
anderes, als daß Groß- und Kleinschreibung anders als bei einigen 
anderen Programmiersprachen unterschieden werden. 

Es gibt, wie schon angedeutet, verschiedenartige Variablen, die 
sich durch ihre Grundmenge unterscheiden. Man spricht von ver¬ 
schiedenen „Typen” von Variablen. Das ist für die Programmie¬ 
rung in Cluster sehr wichtig. Z. B. gibt es Variablen, in die nur 
ganze Zahlen eingesetzt werden dürfen, andere nehmen nur Buchs¬ 
taben auf usw. Daraus folgt, daß man eine Variablen a, die nur 
ganze Zahlen aufnimmt, nicht mit einer Variablen b, die beispiels¬ 
weise nur Buchstaben und Sonderzeichen aufnehmen darf, einfach 
multiplizieren kann. 

Im Gegensatz zu Variablen bekommen Konstanten einmal am 
Anfang eines Programms einen festen Wert zugewiesen und be¬ 
halten diesen bis zum Ende bei. Dieser Wert darf innerhalb des 
Programmes nicht mehr geändert werden. 
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Es hat sich eingebürgert, Variablen klein zu schreibenp^ Das 
ist eine Konvention, an die man sich halten sollte. Wird ein Va¬ 
riablenname aus mehrern Worten gebildet, so sollte jedes weitere 
Wort mit einem Großbuchstaben beginnen (z. B. zeilenZaehler, 
hilfsZeiger, ...). 

Wie Variablen bzw. Konstanten in einem Programm festgelegt 
(deklariert) werden, wird unter 3.5.3 ab Seite 26 besprochen. 


3.5.1 Operationen und Operatoren 

Der Unterschied zwischen Operation und Operator sei hier nur der 
Form wegen kurz erklärt: Während die Operation einen konkre¬ 
ten Arbeitsvorgang im Computer darstellt, ist ein Operator ein 
Funktionszeichen für arithmetische Operationen!^ 

Flaeche = Laenge * Breite 

Hier stellt der Stern (*) den Operator bzw. das Operatorzei¬ 
chen für die auszuführende Operation - nämlich eine Multipli¬ 
kation - dar. 

Das ganze Gebilde wird als Gleichung, die Teile links und rechts 
vom Gleichheitszeichen als Ausdrücke (Terme) bezeichnet. 

In Cluster gibt es außerdem einen Zuweisungsoperator „ : =”. Will 
man der Variablen „Test” zum Beispiel den Wert 5 zuweisen, so 
schreibt man: Test: =5. 

In der Mathematik würde man fest = 5 schreiben. Allerdings 
ist bei der Programmierung „test := test + 10.5” möglich, welches 
im mathematischen Sinne falsch wäre: test = test-1-10.5 ist falsch. 

Aus diesem Grunde wurde auch nicht das Gleichheitszeichen ver¬ 
wendet, wie in anderen Programmiersprachen (BASIC, C, ...), 

^^Mit Ausnahme von globalen Variablen 

existieren außerdem auch Mengen-Operatoren 
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sondern die Kombination von Doppelpunkt und Gleichheitszei¬ 
chen „: =”. 

Obiger Ausdruck bedeutet also in Wirklichkeit: Nimm den 
Wert (Inhalt) der Variablen test (hier: 5), addiere dazu den Wert 
10.5 und weise das Ergebnis der Variablen test zu. Der vorherige 
Wert (5) wird folglich überschrieben! 
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3.5.2 Variablentypen 


Jetzt soll Ihnen wertvolles Wissen nicht länger vorenthalten blei¬ 
ben und nähere Informationen zu Variablen gegeben werden. Die 
verschiedenen Typen ünden Sie jetzt gleich hier zusammengestellt, 
so daß Sie eventuelle Fragen auf einen, höchstens aber auf zwei 
Blicke beantwortet bekommen. 

Zu jedem Typ ist als erstes die Grundmenge aufgeführt. Sie 
werden sich ja sicherlich noch daran erinnern, daß verschiedene 
Variablentypen verschiedene Grundmengen haben. Falls das nicht 
der Fall sein sollte, dann schielen Sie noch einmal nach oben unter 
3.51 auf Seite [TÜl 

Auf die Grundmenge folgen die Länge des Typen in Bytes ^ 
und die für den entsprechenden Typ zulässigen Operatoren in 
Anführungszeichen, wie sie eben besprochen worden sind. Zum 
Schluß folgt eine kurze Beschreibung mit Hinweisen, und ab und 
zu ein Beispiel. 


3.5.2.1 CARDINAL / LONGCARD / SHORTCARD 

Grundmenge: Positive ganze Zahlen im Bereich von 0 bis 65535 
(CARDINAL) bzw. von 0 bis 4294967295 (LONGCARD). Es exis¬ 
tiert auch noch der Typ SHORTCARD, der für den Bereich 0 
bis 255 definiert ist. 

Länge: CARDINAL 2 Bytes, LONGCARD 4 Bytes, SHORTCARD 1 Byte. 


^^Entspricht dem Platz, den eine Variable diesen Typs im Speicher belegt. 
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Operatoren: 




5 


5 55 


, „DIV”, „MOD’ 


(Zu DIV und MOD s. a. 
Tabelle 3.1 auf Seite 17) und die Vergleichsoperatoren: „<“ 
(kleiner), „<=“ (kleiner gleich), „=“ (gleich), „>=“ (größer 
gleich), „>“ (größer), „#“ (ungleich). 


Beschreibung: CARDINAL und LONGCARD sind die einfachsten Va¬ 
riablentypen in Cluster und haben, wie Sie unschwer an der 
Grundmenge erkennen können, wenig mit kirchlichen Wür¬ 
denträgern zu tun, obwohl sich dieser Gedanke natürlich 
aufdrängt. 

Wann immer es möglich ist, sollte CARDINAL dem Typ LONG¬ 
CARD vorgezogen werden, da Rechnungen mit LONGCARD-Zah- 
len immer mehr Rechenzeit und Speicher vom Gomputer ver¬ 
langen. 

Darum überlegen Sie sich vorher, welche Grundmenge für 
Ihr Problem wirklich notwendig ist. 


3.5.2.2 INTEGER / LONGINT / SHORTINT 

Grundmenge: Positive und negative ganze Zahlen im Bereich 
von -32768 bis 32767 (INTEGER) bzw. von -2147483648 bis 
2147483647 (LONGINT). Auch hier gibt es noch einen Typ 
SHORTINT, dessen Variablen Werte zwischen -128 bis 127 
aufnehmen können. 

Länge: INTEGER 2 Bytes, LONGINT 4 Bytes, SHORTINT 1 Byte. 
Operatoren: „DIV”, „MOD” und die Vergleichsope- 

T’Qtorp'n' 

idlUitül. , „ , „y' , „y' , „«• . 
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Beschreibung: Auch hier gilt, was schon bei CARDINAL / LONG- 
CARD / SHORTCARD gesagt wurde: Rechnen mit LONGINT- 
Zahlen ist zeitaufwendiger als mit der INTEGER-Variante. 


Mit DIV wird eine ganzzahlige Division durchgeführt, die nur die 
Vorkommastelle ausgibt. Berechnet man also z. B. 16 DIV 5, 
dann wird der Wert 3 ausgegeben, denn die 5 „paßt” dreimal in die 
16. Mit MOD wird der ganzzahlige Rest einer DIV-Operation aus¬ 
gegeben. Bei unserem Beispiel würde diese Operation den Wert 
1 liefern. Wie in der Grundschule gelehrt wird: 3 mal 5 sind 15, 
Rest 1. 

Zur weiteren Verdeutlichung der Operatoren DIV und MOD dient 
die kleine Beispieltabelle, die Ihnen diese Funktionen nochmals 
eingängig machen soll (Tabelle 3.1) 


16 

DIV 

4 = 

4 

16 

MOD 

4 = 

0 

5 

DIV 

15 = 

0 

5 

MOD 

15 = 

5 

15 

DIV 

4 = 

3 

15 

MOD 

4 = 

3 

10 

DIV 

4 = 

2 

10 

MOD 

4 = 

2 

-14 

DIV 

3 = 

-4 

-14 

MOD 

3 = 

-2 

-10 

DIV 

-4 = 

2 

-10 

MOD 

-4 = 

-2 

10 

DIV 

-4 = 

-2 

10 

MOD 

-4 = 

2 


Tabelle 3.1: Beispiele für DIV und MOD 

Der eine oder andere Leser dürfte jetzt etwas verwirrt sein. Die 
Vielzahl der ganzzahligen Datentypen ist in Cluster nicht gerade 
gering. Nun, wofür braucht man so viele Datentypen: 
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Bevor man eine Variable im Programm verwendet, sollte man 
drüber nachdenken, wie die zu speichernden Zahlen beschaffen 
sind. Sollen negative Zahlen verarbeitet werden, so muß man 
den Datentyp INTEGER verwenden. Je nachdem wie groß nun die 
Zahlen werden können, verwendet man SHORTINT, INTEGER oder 
LONGINT. Nun könnte man erwiedern, nehme ich halt den größen 
Datentyp. Hier spricht dagegen, daß damit mitunter wertvoller 
Speicher verschwendet wird. Der größte Datentyp nimmt vier¬ 
mal so viel Speicher ein, wie der kleinste Datentyp. Außerdem 
benötigt eine Rechnung mit einem größeren Datentyp mehr Zeit, 
als mit einem kleineren Datentyp. 

Sind Sie jedoch sicher, daß Sie nur positive Zahlen verwenden 
werden, so legen Sie besser eine Variable vom Typ CARDINAL an. 
Hier hat man den Vorteil über einen größeren Zahlenbereich zu 
verfügen, denn der Speicherplatz kann nun vollständig für die po¬ 
sitiven Zahlen verwendet werden. Außerdem führt der Compiler 
einen Check durch, ob nicht aus Versehen einer solchen Variable 
ein negativer Wert zugewiesen wird. 

3.5.2.3 REAL / LONGREAL 

Grundmenge: Praktisch jede rationale Zahl, deren Mantisse (die 
Erklärung hierzu folgt gleich) eine Genauigkeit von 8 Stellen 
(REAIp^ bzw. 15 Stellen (LONGREAL) und einen Exponenten 
hat, der Werte zwischen -23 und 23 (REAL) bzw. zwischen 
-308 und 308 annehmen kann. Zur rechnerinternen Dars¬ 
tellung von REAL- / LONGREAL-Zahlen mittels Mantisse und 
Exponent s. a. die hierzu gehörige Beschreibung. 

Länge: REAL 4 Bytes, LONGREAL 8 Byte. 

^^REAL kann erst ab Kickstart 2.0 benutzt werden. Siehe FFP 
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Operatoren: ” (Potenz) und die Ver¬ 

gleichsoperatoren: 

Beschreibung: Um die Frage zu beantworten, warum auch REAL 
bzw. LONGREAL eine eingeschränkte Grundmenge besitzen, 
muß man etwas ausholen und ein wenig in die Gedärme des 
Gomputers eindringen. Wen das ekelt oder wer sich für die 
mathematischen Feinheiten des Lebens wenig interessiert, 
der kann getrost ein paar Sätze überspringen und sich an 
den Beispielen gütlich tun. 

Nun denn: Weil sich der Gomputer sehr große Zahlen mit 
möglichst wenig Speicheraufwand merken möchte er ist 
schon sparsam, unser Gomputer und sie dadurch auch 
schneller verarbeiten kann, trennt er jede REAL- und LONG- 
REAL-Zahl in Mantisse und Exponent auf. Das ist die ma¬ 
thematische Darstellung. Die Mantisse ist eine Dezimalzahl, 
deren Betrag größer oder gleich 1 und kleiner 10 mit ei¬ 
ner beschränkten Anzahl von Stellen hinter dem Komma ist 
(bei REAL sind das, wie oben erwähnt, 8 Stellen). Der Ex¬ 
ponent ist eine positive oder negative ganze Zahl, die die 
Anzahl der Stellen angibt, um die die Mantisse gegenüber 
der tatsächlichen Zahl verschoben ist. 

Damit ergibt sich folgende Darstellung: 

Zahl = Mantisse * 10 " Exponent. 

Zu kompliziert? Hier ein paar Beispiele: 

Zahl = Mantisse 

1737524.0000 = 1.737524 

-101.3537 = -1.013537 

5.13 = 5.13 


* 10 '' Exponent 

* 10 '' 6 

* 10 '' 2 

* 10 ^ 0 
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0.05243 = 5.243 * 10 '' -2 

-0.00004254 = -4.254 * 10 '' -5 

Eine Zahl, die einer REAL- oder LONGREAL- Variablen zugewiesen 
werden soll, kann wahlweise eine normale Darstellung (z. B. 33651, 
65.873 oder 0.761) haben, oder aber in Exponentendarstellung 
erscheinen. Bei der Exponentendarstellung wird zuerst die Man¬ 
tisse geschrieben, gefolgt von einem großen oder kleinen „E” für 
Exponent (hier wird nicht zwischen Groß- und Kleinschreibung 
unterschieden) und dem Exponenten (z. B. 3.365 le4, 107.25E-3 
oder -0.15e-7). 

Noch einmal zur Verdeutlichung: Eolgende Zuweisungen in 
Cluster sind äquivalent d. h. gleichwertig: 


reall:=15142.22l4^reall:=1.514221e44^reall:=151.4221E2 
real2:=—0.006252<tt>real2:=—6.252E—3<tt>real2:=—0.6252e—2 


3.5.2.4 FFP 

Grundmenge: Die gleiche wie Real. 

Länge: 4 Bytes. 

Operatoren: „+”, ” (Potenz) und die Ver¬ 

gleichsoperatoren: „<“, „<=“, „=“, 

Beschreibung: Falls Sie nur Kickstart 1.3 besitzen, können Sie 
keine REAL-Zahlen benutzen, da erst ab 2.0 die entsprechende 
Library dazugekommen ist. Dafür existiert jedoch ein ande¬ 
rer Zahlentyp, der von einem MC68000 auch ohne Library 
verarbeitet werden kann. Dies ist FFP. Auf einem normalen 
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68000 wird dieser Typ auch schneller verarbeitet, als REAL. 
Besitzt man jedoch eine Turbokarte mit FPB^^, dann sollte 


man REAL verwenden, da dieser Typ dann schneller verar¬ 
beitet wird. 


Besitzt man nur Kickstart 1.3, und möchte ein Programm, das 
REAL verwendet, muß man nicht jedes REAL durch FFP ersetzen. 
Folgende Typdefinition am Programmanfang reicht vollkommen 
aus: 


TYPE 

REAL = FFP 


Also noch mal, FFP immer dann, wenn das Programm unter 1.3 
laufen soll, sonst immer REAL. 


3.5.2.5 BOOLEAN 

Grundmenge: Die Wahrheitswerte „wahr” (TRUE) und „falsch” 
(FALSE). 

Länge: 1 Byte. 

Operatoren: „AND”, „OR”, „NOT” 

Beschreibung: Hier dringen wir ein bißchen in die Boolesche 
Algebra vor, die grundlegend für die Funktionsweise eines 
Computers ist. Das ist jetzt einmal eine ganz andere Welt 
der Mathematik, die mit Aussagelogik zu tun hat. Hier kön¬ 
nen Ausdrücke nur wahr oder falsch sein. Boolesche Va¬ 
riablen haben in Programmen oft Schalterfunktion, d. h. sie 

Mathematischer Coprozessor 
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verkörpern den Zustand eines angeschalteten oder abgeschal¬ 
teten Knopfes. 

Wie sich die Operatoren AND, OR und NOT auf die Varia¬ 
blen auswirken, machen die nun folgenden Tabellen, die man 
ihres Inhalts wegen auch Wahrheitstabellen nennt, deutlich: 


Ausdruckl 

Ausdruck2 

Ausdruckl AND Ausdruck2 

TRUE 

TRUE 

TRUE 

FALSE 

TRUE 

FALSE 

TRUE 

FALSE 

FALSE 

FALSE 

FALSE 

FALSE 


Ausdruckl 

Ausdruck2 

Ausdruckl OR Ausdruck2 

TRUE 

TRUE 

TRUE 

FALSE 

TRUE 

TRUE 

TRUE 

FALSE 

TRUE 

FALSE 

FALSE 

FALSE 


Ausdruck 

NOT Ausdruck 

TRUE 

FALSE 

FALSE 

TRUE 


BOOLEAN-Werte können miteinander auf Gleichheit und Unglei¬ 
chheit überprüft werden. Dies geschieht mit „=“ für Gleichheit und 
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„#“ für Ungleichheit. Beachten Sie auch, daß Ergebnisse von Re¬ 
lationen (z. B. a = 1) immer vom Typ BOOLEAN sind. Beispiele 
hierzu werden weiter unten folgen. 
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3.5.2.6 CHAR 

Grundmenge: Alle auf Ihrem Computer darstellbaren Zeichen 
(siehe ASCII(ISO)-Tabelle im Anhang), also Klein- und Groß¬ 
buchstaben, die Ziffern 0 bis 9 sowie Sonderzeichen wie z. B. 
?, *, 7 ^ usw. Eine Variable des Typs CHAR kann immer nur 
ein Zeichen aufnehmen. 


Länge: 1 Byte. 

Operatoren: Nur bedingt vorhanden: z. B. die Vergleichsope¬ 
ratoren „=” (gleich) und „#” (ungleich), die in Booleschen 
Ausdrücken verwendet werden können. Außerdem <, <=, >= 
und >. 


Beschreibung: „CHAR” ist eine Abkürzung für „character” (Zei¬ 
chen). Dieser Variablentyp wird immer dann benutzt, wenn 
man Eingaben, die z. B. nur aus „j” (Ja) oder „n” (Nein) bes¬ 
tehen, abprüfen oder eine Datei zeichenweise parsen möchte. 
Besonders wichtig wird dieser Typ im Zusammenhang mit 
dem Typ STRING, der sich aus einzelnen Zeichen zusammen¬ 
setzt. Er wird unter 13.14.51 ab Seite IIOOI beschrieben. 


3.5.2.7 Typenkonvertierung 

In einem Ausdruck darf bei Cluster immer nur ein Variablentyp 
Vorkommen, was in bestimmten Eällen die Notwendigkeit einer 
Typenkonvertierung hervorruft. Schließlich will man ja mal eine 
REAL-Zahl mit einer INTEGER-Zahl multiplizieren o. ä. 

Ein Beispiel: Sie wollen die INTEGER-Variable a mit der REAL- 
Variablen b multiplizieren und das Ergebnis einer REAL-Variablen 
c zuweisen. Es muß also a in eine REAL-Zahl verwandelt werden. 
Das geschieht einfach so: 
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VAR 


a : INTEGER; 

b,c : REAL; 

1 Variablendeklaration 

c:=REAL(a)*b; | 

INTEGER-"a" wird nach 

1 

REAL konvertiert 


Sie haben es gesehen? Nur die Variable (oder den Ausdruck), die 
(der) konvertiert werden soll, in Klammern setzen und den neuen 
Typ davorschreiben. 

Bei der Konvertierung ist darauf zu achten, daß bei der Ver¬ 
wandlung von REAL nach INTEGER die Nachkommastellen einfach 
abgeschnitten werden. Wundern Sie sich also nicht über Rundung¬ 
sfehler, die Sie jedoch mit Hilfe von geeigneten Standardfunktio¬ 
nen umgehen können. 

Im Prinzip ist jede Typenkonvertierung einfach möglich, sollte 
dies mal nicht der Fall sein, macht sich der Compiler in seiner 
ihm eigenen Art bemerkbar. Keine Angst also davor, daß Sie was 
verpassen könnten. 

Neben dieser Art der Typkonvertierung existiert noch eine 
zweite, nämlich durch CAST. Der unterschied zu der oben bes¬ 
chriebenen Konvertierung ist der, das CAST nur auf gleichlange 
Typen anwendbar ist, und wirklich nur eine Änderung des Typs 
vornimmt, ohne eine eigenliche Konvertierung des Wertes im Spei¬ 
cher vorzunehmen. Wandelt man also mit CAST eine REAL- in eine 
LONGINT-Zahl, wird man kaum etwas vernünftiges erhalten, da der 
Aufbau der Zahlen komplett verschieden sind. In manchen Fällen, 
kann allerdings auch ein solches Ergebnis erwünscht sein. 
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Im Prinzip kann man alle gleichlangen Typen, egal wie sie sich 
zusammensetzen mit CAST in einander umwandeln, mehr Beispiele 
ßnden sich auch im Kapitel über harwarenahe Programmierung. 
Die Verwendung von CAST sieht folgendermaßen aus: 

CAST(<Typ>,<Variable>) 

3.5.3 Variablendeklaration 

Die Variablendeklaration ist nicht zwingend notwendig, doch gibt 
es nur sehr wenige Module, die ohne sie auskommen. Beispiels¬ 
weise wäre ein Modul denkbar, welches nur eine bestimmte Warn¬ 
meldung ausgibt, für die keine Variablen benötigt werden 

Die Deklaration beginnt mit dem Schlüsselwort „VAR” (s. u.). 
Ihm folgen alle globalen Variablen (was es damit auf sich hat, 
wird weiter unten erklärt) zusammen mit dem gewünschten Typ. 
Zwischen Variable und Variablentyp steht ein der Deklara¬ 
tionsoperator. Sollen mehrere Variablen vom selben Typ sein, 
so können sie durch Kommata getrennt aufgelistet und dann ge¬ 
meinsam durch ihrem Typ zugeordnet werden. Die einzelnen 
Deklaration werden durch Semikola getrennt. Ein Beispiel macht 
das alles klarer: 

Außerdem gibt es noch die Definitions- und Implementationsmodule, die 
ohne Variablendeklaration auskommen und auf die gegen Ende dieses Kapitels 
noch ausführlich eingegangen wird. 
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MODULE Beispiel_fuer_Variablendeklaration; 

VAR 

X 

INTEGER; 

y,y0,yi 

REAL; 

Zeichen 

CHAR; 

Wohnort 

STRING (30); 

j aOderNein,absage 

BOOLEAN; 

MeinString 

String4711; |selbstdefinier- 
Iter Typ 


Die Einrückungen dienen nur der Übersichtlichkeit und Lesbarkeit; 
für den Programmablauf sind sie unerheblich. Man nennt diese 
Eigenschaft von Cluster, die in „Besonderheiten von Cluster” 
noch näher erläutert werden wird, Eormatfreiheit. 

Als Besonderheit von Cluster kann bei der Variablendeklara¬ 
tion ein Wert direkt mitgegeben werden, welches wie folgt ausse- 
hen kann: 

VAR 

heute : INTEGER := 10; 
morgen : REAL := 123.56; 

Dies erspart Ihnen eine spätere Initialisierung^ der Variablen. 


^^Erstmalige Belegung von Variablen mit Werten 
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• • 

Übungen 1: 

Unter dieser Rubrik sind Aufgaben zur Selbstkontrolle zusammen¬ 
gefaßt. Nicht, daß wir Sie mit Hausaufgaben überlasten wollen, 
denn Sie können ja schließlich selbst entscheiden, ob Sie diese lösen 
wollen. Bedenken Sie jedoch, daß es ein gutes Zeichen ist, wenn 
Sie die Aufgaben lösen konnten. Ansonsten sollten Sie lieber den 
einen oder anderen Abschnitt nochmals durcharbeiten. 

Im übrigen, die Lösungen zu den Fragen ünden Sie im Anhang 
dieses Handbuchs. 

1. Welche der folgenden Variablennamen sind in Cluster gültig? 

(a) Erster-Name 

(b) zaehler 

(c) ErsatzWert 

(d) Y991 

(e) VornameSNachname 

(f) Durch_Schlag 

2. Welche zehn elementaren Datentypen existieren in Cluster? 

3. Welcher Unterschied besteht zwischen DIV und /? 

4. Betrachten Sie folgende Variablenerklärungen: 

VAR 

ch : CHAR; 

I : INTEGER; 

Ist folgender Befehl gültig? 
ch := I; 
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3.6 Das erste Programm 

Damit Sie auch gleich schon sozusagen live am Computer mitma¬ 
chen und die hier aufgeführten Beispiele eingeben können, kurz 
ein paar Worte zur Bedienung des Editors und seiner für Sie im 
Moment relevanten Funktionen, die Ihnen teilweise aus diesem 
Handbuch bekannt sein sollten. 


MODULE Addition; 

FROM InOut IMPORT Writeint; 

VAR a,b,c : INTEGER; 

BEGIN 

a:=10; 
b:=23; 
c:=a+b; 

Writelnt(c); |mit "Write" und Konsorten werden 

I Bildschirmausgaben veranlaßt. 

END Addition. 


Verwenden Sie die untenstehende Gebrauchsanleitung für das ganze 
Kapitel. 

Fangen wir am besten gleich an. Den Editor sollten Sie nach 
Anleitung bereits gestartet haben und nun den fast leeren Bild¬ 
schirm vor sich haben. Geben Sie, möglichst in derselben Form 
wie angegeben, den aufgeführten Programmtext ein. 

Achten Sie bei der Eingabe auf Groß- und Kleinschreibung! Sind 
Sie mit der Eingabe fertig, öffnen Sie das Cluster-Menu am un¬ 
teren Bildschirmrand, indem Sie es mit dem Mauszeiger an der 
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linken Lasche „packen”, die Maustaste gedrückt lassen und nach 
oben ziehen. 


Speichern^® Sie das Programm durch Klicken auf (SAVE) in 
das Verzeichnis „Cluster:Work/TXT“ unter dem Namen „Addi¬ 
tion. mod‘0 ab. 

Klicken Sie das Feld (COMPIL) an. Der Cluster-Compiler 
nimmt nun seine Arbeit auf. Warten Sie’s ab! Entweder gibt er 
eine Fehlermeldung aus oder Sie bekommen ein blinkendes ( EXIT ) 
präsentiert. Eventuelle Fehler korrigieren Sie bitte nach Anleitung 
des Compilers da muß man durch und lernt eine ganze Menge 
dabei, wie Ihnen jeder Programmierer bestätigen kann. 

Ist alles o.k., klicken Sie auf (RUN) . Der Rechner legt nun 

die benötigten Module (siehe weiter 
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wieder los und importiert 
unten). Dann startet das Programm (in unserem Fall werden zwei 
Zahlen addiert nicht so besonders aufregend, schon klar.). Ist 
das Programm fertig, können Sie mit der RETURN-Taste in den 
Editor zurückkehren. 

Wollen Sie sich später das Programm einmal zurückholen, so 
geschieht dies mittels Mausklick auf den Knopf (LOAD) . Den Edi¬ 
tor verläßt man mit (EXIT) . Wurde das zuletzt bearbeitete Pro¬ 
gramm noch nicht gesichert, so wird nachgefragt das ist ein 
Service, nicht wahr? 

Das obenstehende Programm ist wie bereits gesagt sehr, 
sehr einfach. Es addiert zwei Zahlen und gibt das Ergebnis aus. 
Was Ihnen hoffentlich als erstes auffällt^^, sind die fettge- 


^^Das regelmäßige Speichern des Textes gehört zu den wichtigsten Regeln 
im Umgang mit einem Computer, egal mit welchem Programm Sie arbeiten. 

^^Vorerst achten Sie sich bitte darauf, daß jedes ihrer Programme beim 
Abspeichern ein „ .mod“ angehängt bekommt. 

^°lädt sie von Diskette oder Festplatte in den Speicher des Rechners 
^^wenn nicht, sollten Sie erst mal ’ne Tasse Kaffee trinken und einen Moment 
die Augen schließen 
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druckten Wörter. Die erscheinen nicht nur hier im Druckbild so, 
sondern werden vom Editor erkannt und automatisch fett darges¬ 
tellt probieren Sie das am besten gleich einmal aus. Das soll ein 
Zeichen dafür sein, daß er sie verstanden hat. Diese Wörter nennt 
man Schlüsselwörter. Sie müssen ausschließlich GROSS geschrie¬ 
ben werden! 

Jedes Programm fängt für uns zuerst einmal mit dem Schlüsselwort 
„MODULE” an, gefolgt vom Namen des Programms, denn wir wollen 
ja auch ein bißchen Ordnung haben und zudem erfahren, welchen 
Zweck ein vorliegendes Programm erfüllt, was nicht selten aus sei¬ 
nem Namen ersichtlich wird. Der Name „MODULE” deutet schon 
auf den modularen Aufbau eines Cluster-Programmes und somit 
auf die gesamte Programmierungsphilosophie dieser Sprache hin. 

Enden tut das Ganze wie sollte es anders sein mit einem 
fetten „END”, dem nochmals der Programmname und dann ein 
Punkt folgt. Das wäre der äußere Rahmen. Ganz einfach eigent¬ 
lich, denken Sie jetzt? Nun ja, es soll Ihnen wirklich nicht der 
Wind aus den Segeln genommen werden, schließlich haben auch 
andere diese Sprache verstanden, aber es nutzt alles nichts: Es muß 
immer wieder auf die Pingeligkeit des Rechners hinwiesen werden. 
Schreiben Sie „MODULE” nicht klein! Der Gompiler erschreckt Sie 
dann mit Worten wie "Schwerer Fehler aufgetretenI ", wenn 
Sie Ihr Programm compilieren. 

3.6.1 Konstantendeklaration 

Die Konstantendeklaration kann innerhalb eines Programms weg¬ 
fallen und tut dies auch öfter als die Variablendeklaration. Begon¬ 
nen wird sie mit dem Schlüsselwort „CONST” , gefolgt vom Konstan- 
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tennamen, dem Zuweisungsoperator „=”^ und dem zuzuweisen¬ 
den Wert. Die einzelnen Deklarationen werden wiederum durch 
Semikola getrennt. Das Ende der Konstantendeklaration ist dann 
erreicht, wenn die Variablendeklaration (s. o.), eine Prozedur (s. 
„Prozeduren” unter 3.13.1 ab Seite 75) oder das Hauptprogramm 


beginnt. Auch hier ist die Hoffnung groß, daß das nachfolgende 
Beispiel alle Unklarheiten aus der Welt schafft und offene Fragen 
fest verschließt. 


MODULE Beispiel_fuer_Konstantendeklaration; 


CONST 

Pi 

Mehrwertsteuer 

Chef 

Wahr 


3.14; 

15; 

"Arnold Schwarzenegger"; 
TRUE; 


VAR 

Gehalt : LONGREAL; |Mit der Variablendeklaration 

I endet die Konstanten- 
Ideklaration 


Hierbei handelt es sich eigenlich um keine Zuweisung wie bei Variablen, 
vielmehr soll durch das Gleichheitszeichen ausgedrückt werden, daß die Kons¬ 
tante und ihr Wert identisch sind. An jeder Stelle, an der die Konstante 
verwendet wird, würde sonst dieser Wert stehen. 
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3.7 Typdeklaration 

Sie wissen ja nun von oben, was Typen sind. Die Deklaration 
von Typen unter Verwendung von Standardtypen kann in einem 
Programm ebenfalls wahlweise erfolgen. Sie wird begonnen mit 
dem Schlüsselwort „TYPE”, gefolgt von der Deklaration der Typen. 


MODULE Beispiel_fuer_Typendeklaration; 
TYPE 

String32 = STRING(32); 

Newint = INTEGER; 

Tester = BOOLEAN; 

CONST 

Pi = 3.14; 


Will man andere als die Standardtypen verwenden, so muß man 
die gewünschten Typen selber deünieren. Dies kommt im folgen¬ 
den Abschnitt zur Sprache. 

3.7.1 Selbstdefinierte Typen 

Für einfache Programme reichen die eingebauten elementaren Da¬ 
tentypen meist aus. Bei komplexeren Projekten sind aber Daten 
erforderlich, die mit keinem dieser Standardtypen übereinstimmen. 
Für solche Fälle ist es mit Cluster möglich, eigene benutzerdefi¬ 
nierte Datentype zu erstellen. 

Dies kann auf zwei verschiedene Arten geschehen: Entweder 
durch eine Typdeklaration mittels „TYPE”, oder durch Angabe der 
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Typdeklaration hinter dem Doppelpunkt in der Variablendeklara¬ 
tion. 

Mit 

TYPE 

INDEX = CARDINAL; 

SALDO = REAL; 

ZAEHLER = INDEX; 

I Beachten Sie, daß ZAEHLER vom Typ INDEX ist, 

I das selbst wieder vom Typ CARDINAL ist 

werden drei neue Typen erzeugt: INDEX, SALDO und ZAEHLER. 

Wurde ein neuer Typ dehniert, so kann sein Name überall dort 
benutzt werden, wo ein Typbezeichner erforderlich ist. Beispiels¬ 
weise ist die folgende Variablenerklärung in Verbindung mit einer 
zuvor erfolgten Typerklärung richtig: 

VAR 

i: INDEX; 

j: INDEX; 

k: INDEX; 

Ueberfaellig. Angemahnt: SALDO; 
zaehl : ZAEHLER; 

Hierbei sind i, j , k und zaehl vom Typ CARDINAL und 
Ueberf aellig und Angemahnt vom Typ REAL. 

Nun werden Sie sich vielleicht fragen, worin der Vorteil bes¬ 
teht, i, j, k und zaehl vom Typ INDEX statt CARDINAL und 
Ueberf aellig und Angemahnt vom Typ SALDO statt REAL zu erklären 
warum erstellt man scheinbar unnötige Typen, wenn die ein¬ 
gebauten doch ausreichend sind? Die Antwort lautet, daß es 
jetzt viel einfacher ist, die Typerklärungen anzupassen, sobald sie 
geändert werden sollen. Falls beispielsweise für i, j , k nega¬ 
tive Werte benötigt werden, muß nur die Deünition von INDEX auf 
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INTEGER geändert werden. Es sind keine weiteren Eingriffe not¬ 
wendig. Bei großen Programmen kann das eine beträchtliche Eins¬ 
parung an Editierzeit bedeuten. Außerdem kann eine sinnvolle ei¬ 
gene Bezeichnung zur Dokumentation eines Programms beitragen. 

3.7.1.1 Der Unterbereichstyp 

Am einfachsten erzeugt man einen neuen Typ, indem man ei¬ 
nen vorhandenen einschränkt. Dies ist bei allen zählbaren Ty¬ 
pen möglich. Zählbar sind Typen wie CHAR oder INTEGER, sowie 
Aufzählungstypen (dazu später mehr), nicht jedoch z. B. REAL, da 
die in dieser Menge enthaltenen Elemente unzählbar sind. Ei¬ 
nigen müßte noch der Begriff reelle Zahlen geläuüg sein. Die 
Unzählbarkeit ergibt sich daraus, daß zwischen jeweils zwei reel¬ 
len Zahlen z. B. 4.2 und 4.3 beliebig viele Zahlen liegen, nämlich 
4.21, 4.211, 4.2111 usw. Da dies immer so ist, egal welche zwei 
reelle Zahlen genommen werden, sind sie nicht abzählbar. Mathe¬ 
matisch sagt man auch, reelle Zahlen sind nicht diskret, oder auch 
überabzählbar. Aber nun wieder auf die Erde zurück. 

Der gewünschte (eingeschränkte) Bereich wird einfach in ecki¬ 
gen Klammern angegeben. 

Unterbereichstypen repräsentieren eine Untermenge der Ele¬ 
mente eines einfachen Typs. Die Grenzen werden in eckigen Klam¬ 
mern getrennt durch „ . . “ gegeben. Wird nur ein Wert angegeben, 
bedeutet dies einen Unterbereich von null an mit sovielen Elemen¬ 
ten. 

Beispiel: 

[1..10], [-200..200], ["A".."Z"], [10], [gruen..blau] 
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Beispiel: Definition eines Unterbereichstyps 


TYPE 

GrossBuchstaben = ["A".."Z"]; 
Monate = [1..12]; 


Die auf diese Weise neu erzeugten Typen bleiben zuweisungs- 


kompatibej^zu ihren Basistypen. Wird einer Variablen des neuen 
Typs ein Wert zugewiesen, der nicht im angegebenen Bereich en¬ 


thalten ist, wird von der Laufzeitumgebung ein Laufzeitfehlei^"^ 
ausgegeben. 

Sie sehen, Unterbereichstypen sind besonders beim Testen von 
Programmen hilfreich, denn es wird ja eine Laufzeitfehlermeldung 
ausgegeben, wenn der eingeschränkte Zahlenbereich unter- oder 
überschritten wurde. Somit sollte man an allen Stellen, an denen 
man von vornherein weiß, daß nur bestimmte Werte zugewiesen 
werden dürfen, Unterbereichstypen verwenden, damit eine falsche 
Zuweisung sofort erkannt wird. 


3.7.1.2 Der Aufzählungstyp 

Eine weitere Möglichkeit, Typen selber zu erzeugen, besteht darin, 
zusätzliche abzählbare Typen zu erzeugen, indem man eine be- 

^^kompatibel: Die Variablen dieser Typen können ohne große Probleme 
einander zngewiesen werden 

^'^Lanfzeitfehler: Dies ist ein Fehler, welcher bei der Lanfzeit des Pro¬ 
grammes anftritt nnd gemeldet wird 
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schränkte Anzahl von Bezeichnern als Wertebereich angibt. Diese 
Bezeichner werden intern der Reihe nach durchnumeriert. 
Allgemein sieht das so aus: 

TYPE <Bezeichner> = (<Bezeichner> {,<Bezeichner>}); 
Beispiel: Definition eines Aufzählungstyps: 


TYPE 

Monate = (Januar, Februar, Maerz, April, Mai, 
Juni,Juli, August, September, 
Oktober, November, Dezember); 


Diese Deklaration erzeugt einen Typen, dessen Wertebereich die 
Werte Januar, Februar, ... enthält. Dies sind jedoch keine Text¬ 
stücke (STRINGS), sondern Werte, die diesen Namen tragen. Es ist 
möglich. Variablen dieses Typs miteinander zu vergleichen, einen 
Wert vor- oder zurückzugehen oder als Laufvariable in einer FOR- 
Schleife zu verwenden (s. u.). 

Die Numerierung der Elemente eines Aufzählungstyps kann unter¬ 
brochen und mit einem neuen Wert fortgesetzt werden: 

FileAccess=(readWrite=1004,read0nly=1005,newFile=1006); 
oder auch: 

FileAccess=(readWrite=1004,read0nly,newFile); 

Von derartigen Typen lassen sich auch Unterbereiche bilden: 

TYPE {<Bezeichner> = [ <KonstAusdruck>..<KonstAusdruck> ]} 
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Beispiel: 


TYPE 

Monate = (Januar, Februar, Maerz, April, Mai, 
Juni,Juli, August, September, 
Oktober, November,Dezember); 

Sommer = [Juli..September]; 

Winter = [Januar..Maerz] ; 


VAR 

m 

Monate; 

s 

Sommer; 

w 

Winter; 


Diese Typen erleichtern dem Programmierer das Leben dadurch, 
daß er selbst weniger Überprüfungen vornehmen muß, da diese 
zum großen Teil das Laufzeitsystemdes Compilers übernimmt. 

Ist also bei einer Variablen klar, daß sie während des Pro¬ 
gramms nur bestimmte Werte annehmen kann, sollte man einen 
Unterbereichstyp verwenden, da das Laufzeitsystem eine Bereichs¬ 
verletzung (Stichwort RangeCheck) meldet, falls versehentlich ein 
falscher Wert zugewiesen wird. 

Aufzählungstypen erhöhen vor allem die Lesbarkeit eines Pro¬ 
gramms. Außerdem kann durch sie sichergestellt werden, daß 
nur bestimmte Konstanten verwendet werden, z. B. Parameter 
für Prozeduren (Stichwörter OpenFile, Accessmode). 


^®Das Laufzeitsystem ist ein spezielles Programm, welches vom Compiler 
zum fertigen Programm hinzugefügt wird. Es hat u. a. die Aufgabe, Fehler, 
welche während der Ausführung des Programmes auftreten, abzufangen (z. B. 
„Division durch Null”) 
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3.8 Kommentare und Anmerkungen 


In jeden Quelltext gehören Kommentare, damit man später noch 
weiß, was man sich an dieser oder jener Stelle einmal gedacht 
hat. Kommentare lassen sich in Cluster an jeder Stelle in be¬ 
liebiger Länge einfügen und können auf zwei verschiedene Arten 
in den Programmtext eingefügt werden. In der einen Art läutet 
man einen Kommentar mit der Zeichenfolge „(*” ein, wobei man 
anschließend durch „*)” dem Compiler mitteilen muß, wo die Be¬ 
merkung wieder beendet ist. So ein Kommentar kann zwischen 
zwei Anweisungen geschoben werden, sich aber auch über meh¬ 
rere Zeilen erstrecken. Außerdem können Kommentare, anders als 
in C, geschachtelt werden, um damit Programmteile zu Testzwe¬ 
cken auszuklammern. In anderen Programmiersprachen steht man 
dann oft vor einem großen Stück Arbeit. 

Bei der anderen Art setzt man ein „|” und zeigt damit an, daß 
man von hier bis zum Ende der Zeile einen Kommentar setzen 
möchte. Kommentare werden vom Compiler ignoriert, haben also 
keinerlei Einfluß auf den Verlauf des Programms. 

Diejenigen, welche schon Erfahrung in BASIC gesammelt ha¬ 
ben, dürfen zur Erleichterung feststellen, daß eventuell vorhandene 
Kommentare im Gegensatz zu interpretiertem BASIC die Gesch¬ 
windigkeit des Programmes nicht herabsetzen. Also sollte man die 
Möglichkeit der Kommentargebung reichlich in Anspruch nehmen. 

Ein kleines Programm soll Ihnen die richtige Anwendung der 


Kommentierungszeichen sichtbar machen (siehe Abbildung 3.1) 


Natürlich braucht man nicht allem und jedem einen Kommen¬ 
tar an die Seite zu stellen. Einden Sie selber das richtige Maß und 
schrecken Sie nicht davor zurück, lieber zu viele als zu wenige Be¬ 
merkungen in Ihrem Text unterzubringen. Denken Sie aber daran, 
daß Sie ein Programm und keinen Roman schreiben. 
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MODULE Addition; 

FROM InOut IMPORT Writeint, WriteLn; 

VAR a,b,c : INTEGER; 

1 hier werden drei Variablen deklariert 
BEGIN 

a:=10; [hier wird ’a’ der Wert 10 zugewiesen 
b:=23; [der Variablen b wird der Wert 23 zugewiesen 
c:=a+b; (* a und b werden addiert *) 

(* 

Dies ist ein mehrzeiliger 
Kommentar 

*) 

Writeint(c); (* das Ergebnis wird ausgegeben *) 

(* Geschachtelte Kommentare (* Hallo *) sind 
auch möglich *) 

WriteLn; 

END Addition. 

Abbildung 3.1: Beipiele für Kommentierung 


Kommentare sind Lesehilfen und haben dokumentarischen Cha¬ 
rakter. 
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3.9 Was sind Schlüsselwörter? 


In fast allen Programmiersprachen sind Zeichenfolgen deüniert, 
die eine in der Sprache genau fest gelegte Bedeutung haben, wie 
z. B. die Zeichenfolgen MODULE, VAR, BEGIN usw., die Sie bereits in 
den Beispielprogrammen gesehen haben. 

Solche Zeichenfolgen bezeichnet man als Schlüsselwörter der 
Programmiersprache. Sie dürfen i. d. R., so auch bei Cluster, 
nicht als Bezeichnei in Programmen verwendet werden. Man 
spricht in diesem Fall auch von „reservierten Wörtern” der Pro¬ 
grammiersprache . 


^®Bezeichner (engl, identifier): sind z. B. Namen für Variablen, Konstanten 
nnd Prozednren, wobei wir anf letztere noch zn sprechen kommen 
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3.10 Aufbau eines Cluster-Programms 


Sie haben es sicher schon vermutet 
Schemata in Abbildung 


3.2 


Strukturiert natürlich! Die 
sollen Ihnen eine kleine Übersicht über 


die Grobstruktur eines Cluster-Programms geben. 


MODULE ... 

FROM ... IMPORT 

TYPE 

CONST 

VAR 

BEGIN 

END ... . 


Abbildung 3.2: Programm-Schemata 

Die Reihenfolge der einzelnen Deklarationsteile kann beliebig va¬ 
riiert werden. Ein mehrfaches Auftauchen einzelner Teile ist eben¬ 
falls möglich. In anderen Worten, CONST-Deklarationen könnten 
beispielsweise auch nach den VAR-Deklarationen erfolgen. 

Etwas ausführlicher sieht dieses Schema wie folgt aus: 


©1992/93 by StoneWare 





3.10. AUFBAU EINES CLVSTEK-PROGRAMMS 


43 


MODULE <Prograinmname>; 

{FROM <Bibliotheksmodul> IMPORT <Bezeichner> 
{,<Bezeichner>};} 

[VAR <Variablennaine>: <Variablentyp>; 
{<Variablenname>: <Variablentyp>; }] 

{PROCEDURE <Prozedurnaine>; 

[VAR <Variablennaine>: <Variablentyp>; 
{<Variablennaine>: <Variablentyp>;}] 

BEGIN 

<Anweisungsfolge> 

END <Prozedurname>;} 

BEGIN 

<AnweisungsfoIge> 

[CLOSE 

<AnweisungsfoIge>] 

END <Prograinmname>. 


Hier soll Ihnen kurz die hier verwendete Schreibweise mit den ver¬ 
schiedenen Klammerarten erläutert werden, welche im Programm¬ 
text dann natürlich nicht (!) erscheinen: Die spitzen Klammern 
(< >) umschließen Modul- oder andere Namen, die benutzerdeü- 
niert bzw. in der Bibliothek der Standardmodule festgelegt sind. 
Geschweifte Klammern ({ }) stehen für keine oder beliebig häuüge 
Wiederholung des geklammerten Inhalts. Eckige Klammern ([ ]) 
bedeuten, daß der entsprechende Text weggelassen werden kann. 

Dieses Schema braucht Sie nicht in Verwirrung zu stürzen. Es 
ist einfacher, als Sie vielleicht denken mögen. 
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3.10.1 Der BEGIN-Teil 

Mit dem Schlüsselwort „BEGIN” beginnt nun im wahrsten Sinne 
des Wortes das eigentliche Programm der Hauptteil. In ihm sind 
die Anweisungen, die zur Lösung des betroffenen Problems not¬ 
wendig sind, nacheinander aufgelistet. Dieser Teil wird beim Pro¬ 
grammstart ausgeführt. Er endet entweder mit dem Schlüsselwort 
„CLOSE” (s. „Der CLOSE-Teil” unter 
„END”, welches das Programm abschließt. 

3.10.2 Der CLOSE-Teil 

Dieser Programmteil gelangt dann zur Ausführung, wenn das ei¬ 
gentliche Programm beendet wird. Sei es wegen der abgeschlosse¬ 
nen Abarbeitung des BEGIN-Teils, sei es wegen eines Programma- 
bruchs durch den Benutzer oder aufgrund eines Eehlers. Üblicherweise 
befinden sich hier spezielle Anweisungen, die reservierten Speicher 
wieder freigeben o. ä., die uns im Moment nicht interessieren sol¬ 
len. 

Eingeleitet wird dieser Teil mit dem Schlüsselwort „CLOSE”, 
beendet wird er durch „END”. 


3.10.2) oder mit dem Schlüsselwort 


3.10.3 Die IMPORT-Zeilen 


Die Programmiersprache Cluster unterstützt wie auch Modula 2, 
Cluster stammt ja davon ab das Zerlegen von Programmen in 
Module (s. Was versteht man unter „strukturierter Programmie¬ 


rung”? unter 3.4.1). 


Der Vorteil daran ist, wie bereits oben angedeutet, daß nicht 
nur ein, sondern viele verschiedene Programme auf solche ausge¬ 
lagerten Programmteile zugreifen und sie nutzen können. Stellen 
Sie sich z. B. vor. Sie müssen in Ihren Programmen immer wieder 
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Kreise zeichnen. Dann wäre es sinnvoll, diesen Programmteil in 
ein Modul auszulagern und bei Bedarf zu IMPORTieren. Jetzt 
können alle Programme, die einen Kreis zeichnen sollen oder wol¬ 
len, auf dieses Modul zugreifen, und Sie sparen sich eine Menge 
Arbeit, indem Sie nicht immer wieder dasselbe neu programmieren 
müssen. Ist doch gut, oder? 

Sie sollten bei der Gestaltung der Schnittstelle, d. h. der Deü- 
nition jener Variablen, die jeweils übergeben werden müssen, auf 
eine sinnvolle Lösung achten. Sie sollte allgemein gültig und somit 
für viele Fälle verwendbar sein. Ferner macht es Sinn, Programm¬ 
teile, die z. B. jeweils graphische Funktionen übernehmen, in einem 
Modul zusammenzufassen. 

Für den hier genannten Fall des Kreisezeichnens ist es aller¬ 
dings nicht mehr notwendig, eine solche Prozedur (Programm¬ 
teil) selber zu basteln. Cluster kommt mit einer ganzen Reihe 
von Standardmodulen ins Haus, auf die direkt zugegriffen werden 
kann. Die Beschreibung dieser Programmteile finden Sie weiter 
hinten in diesem Handbuch unter Kapitel Also: einfach nur 
zugreifen! 

Wie macht man das nun? Der Compiler muß ja wissen, welche 
Typen, Variablen und Prozeduren ein Programm benutzen will 
und in welchen Modulen sie zu finden sind. Dazu gibt es die 
IMPORT-Zeilen, deren Syntax so aussieht: 

FROM <Modulnaine> IMPORT <0bj ektname> {, <0bj ektnaine>}; 

Sie können durch Wiederholung dieser Anweisung von beliebig 
vielen weiteren Modulen Prozeduren, Konstanten, Variablen und 
Typen importieren ohne Ende sozusagen. 

Sollen aus einem Modul alle Prozeduren oder Konstanten, Va¬ 
riablen usw. importiert werden, so schreibt man einfach: 



46 


KAPITEL 3. EINFÜHRUNG IN CLUSTER 


IMPORT <Modulname> {, <Modulnaine>}; 

Da dies zu Namenskonflikteij^ führen kann, spricht man hier von 
einem unqualiüzierten Import. Das bedeutet, daß auf die impor¬ 
tierten Module nicht direkt über ihren Namen zugegriffen werden 
kann, sondern über den Modulnamen in Verbindung mit dem Ob¬ 
jektnamen, womit Namenskonflikte vermieden werden können. 

Gibt es im Modul „Graph” z. B. ein Objekt „DrawPixel”, so 
kann mit „Graph.DrawPixel” darauf zugegriffen werden. 

Sie können sich denken, daß das bei der Länge mancher Modul- 
und Objektnamen schnell zur Hölle werden kann. Deshalb kann 
der Name beim Import wie folgt geändert werden: 

IMPORT <Modulname> [AS <NeuerNaine>] ; 

Man sollte noch wissen, daß bei einem qualifizierenden Import 
alle nicht genannten Objekte automatisch unqualiüziert importiert 
werden. Auch dabei ist es möglich, den Modulnamen nach eigenen 
Wünschen zu ändern: 

FROM <Modulname> [AS <NeuerName>] IMPORT ... ; 

Beispiel: 

Aus dem Modul „InOut” werden die Objekte „WriteString” (Tex¬ 
tausgabe) und „WriteLn” (Zeilenvorschub) qualiüzierend, alle an¬ 
deren Prozeduren (z. B. „Readint” (Eingabe einer Integerzahl), 
„Writeint” (Ausgabe einer Integerzahl) usw.) unqualifiziert im¬ 
portiert: 

^^Wenn zwei oder mehrere Bezeichner, Prozedurnamen, Variablen usw. die 
gleiche Bezeichnung haben, kommt es zu s. g. Namenskonfiikten 
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FROM InOut AS io IMPORT WriteString, 
WriteLn; 


Auf diese Objekte kann nun auf verschiedene Weisen zugegriffen 
werden: 


WriteString 

WriteLn 

io.WriteStringCTest") I(io. ist hier überflüssig, 

I aber möglich) 

io.Readint(i) 
io.Writeint(5) 


Nicht erlaubt ist 


Read(c) 
Write("a") 


weil der Compiler hier nicht weiß, wo er Read oder Write herholen 
soll! 
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Übungen 2: 

1. Was erreicht folgende Codezeile? 

WriteStringC"Ich liebe \Cluster{}!"); 

2. Schreiben Sie ein kurzes Programm, welches zwei INTEGER- 
Zahlen einliest und die Summe von beiden ausgibt. 

3. Wofür ist der CLOSE-Teil eines Programmes oder Moduls 
gut? 

4. Welchen Unterschied gibt es zwischen einem CARDINAL 
und einem INTEGER-Wert? 

5. Welchen Typ haben die folgenden Konstanten? 

(a) FALSE 

(b) -50000 

(c) 45.78 

(d) 200 

(e) ’L’ 

(f) "Hallihallo" 

6. Wie deklariert man eine Konstante TestWert von 70000? 

7. Welcher der folgenden Ausdrücke ist wahr (TRUE)? 

(a) 25 < 25 

(b) NOT (7 < 9) 

(c) (5 = 4) OR (5 = 5) 

(d) 40 = 40 
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8. Schreiben Sie ein Programm, welches eine REAL-Zahl nach 
INTEGER wandelt und dann wieder zurück. Eine Bild¬ 
schirmausgabe muß nicht unbedingt erfolgen. 
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3.11 Besonderheiten von Cluster 

Neben der Case-Sensitivität , die eine strikte Unterscheidung zwi¬ 
schen Groß- und Kleinschreibung in der Interpretation durch den 
Compiler bedeutet, ist eine weitere Besonderheit von Cluster die 
Formatfreiheit . Diese besagt, daß die Form, in welcher ein Pro¬ 
gramm geschrieben ist, seinen Inhalt nicht beeinflußt. An den 
Beispielen, die noch folgen werden, ist diese Eigenschaft gut zu 
erkennen. 

3.11.1 Das Semikolon 

An dieser Stelle noch eine Bemerkung zum Semikolon: Ein Se¬ 
mikolon trennt Anweisungen voneinander. Daher ist vor einem 
abschließenden END ein Semikolon nicht erforderlich, denn END ist 
ja keine Anweisung, sondern ein Schlüsselwort. Sollten Sie dort 
trotzdem ein Semikolon setzen, ist das nicht weiter tragisch, da 
es in Cluster die sogenannte Leeranweisung gibt, die sofern 
überhaupt aus keinem Befehl besteht. Klingt komisch und di¬ 
rekt unheimlich, darum hier einige Beispiele: 

Eolgende (korrekte) Anweisungsfolgen enthalten Leeranweisungen: 

BEGIN END (enthält 1 Leeranweisung) 

BEGIN 

a:=b; (beinhaltet ebenfalls 1 Leeranweisung) 

END 

BEGIN ; ; END (3 (!) Leeranweisungen) 

3.11.2 Eingabe von Steuerzeichen 

Zeichen wie "A", "9", .. .sind allesamt Zeichen, welche über Tas¬ 
tatur eingegeben werden können. Sie gehören zu den sogenannten 
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druckbaren Zeichen. Es gibt aber eine Zahl von Zeichen, die nicht 
einfach von Tastatur eingegeben werden können. Hierfür kann 
eine besondere Eingabeform von Cluster verwendet werden: 

&XXX 


Jedes Zeichen kann durch seinen ASCII-Code mit vorgestelltem 
erreicht werden, beispielsweise „&27” für Escape' 
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3.12 Die ersten Schlüsselwörter 

3.12.1 Einfache Strukturen in Cluster 

Die grundlegende Struktur in Cluster ist die Anweisungssequenz, 
d. h. eine Eolge von Anweisungen, die durch Semikola voneinander 
getrennt werden. 

Anweisungen können z. B. einfache Zuweisungen, Schleifen 
oder Prozeduraufrufe sein. Wenden wir uns zunächst den Schleifen 
zu: 

3.12.2 Schleifenstrukturen: Was eine Schleife ist 

Eine Schleife erlaubt es, eine Eolge von Anweisungen mehrmals 
aufzurufen bzw. zu wiederholen. Am Anfang oder am Ende der 
Schleife ist die Kontrollinformation für die Anzahl der Schleifen¬ 
durchläufe enthalten. Die folgenden Erläuterungen werden dies 
verdeutlichen: 

^^Escape oder ESC wird häufig für Druckeransteuerungen benötigt 
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3.12.2.1 Die REPEAT..UNTIL-Struktur 

Dies ist die einfachste Schleifenstruktur in Cluster. Die Syntax 
dieser Struktur sieht wie folgt aus: 

Syntax: 


REPEAT 

<Anweisungsfolge> 

UNTIL <Boolausdruck>; | (Wahrheitswert) 


Beschreibung: 

Der von REPEAT und UNTIL eingeschlossene Programmteil (Schlei¬ 
fenkörper), wird solange wiederholt, bis der Boolesche Ausdruck 
wahr (TRUE) wird. In jedem Fall wird der Programmteil einmal 
durchlaufen, da die Abbruchbedingung erst am Ende der Schleife 
steht. Beachten Sie bitte, daß der boolesche Ausdruck erst am 
Ende der Schleife berechnet wird. 

Dieser Umstand kann bei manchen Schleifen u. U. sehr wich¬ 
tig sein. Besteht der Boolausdruck aus der Überprüfung einer Va¬ 
riablen auf einen bestimmten Wert, so sollte man darauf achten, 
daß diese Variable ihren Wert innerhalb der Schleife auch ändert, 
da es ansonsten Vorkommen kann, daß die Abbruchbedingung nie 
erfüllt und die Schleife somit unendlich oft ausgeführt wird (End¬ 
losschleife). Zum besseren Verständnis wieder ein Beispiel: 

Beispiel: 

Anzahl:=5; 

Wert:=12; 

Potenz:=1; 

REPEAT I korrekte Schleife! 
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Potenz:=Potenz*Wert; 

Anzahl:=Anzahl-l 

UNTIL Anzahl=0;I Abbruchbedingung 


REPEAT I korrekte Schleife! 
a:=a+2; 
b:=b*0.5; 
s:=a+b 

UNTIL s>Grenze; 


REPEAT 

I Diese Schleife kann zur Endlosschleife werden! 
s:=s*2; 

I (je nach Wert von s und gesamtwert bei Beginn 
1 der Schleife) 
c: =gesaintwert/s 
UNTIL OlO; 

REPEAT 

c:=c-4; | wird zur Endlosschleife, wenn b nicht 
a:=a+2 | von Anfang an 5 ist! 

UNTIL b=5; 


Anmerkung: Es ist üblich, die Anweisungsfolge innerhalb der Schleife 
einzurücken, um sie deutlicher hervorzuheben. Das unterstreicht 
die Struktur Ihres Programms und erhöht die Übersichtlichkeit. 

Wie sie an den Beispielen sehen, ist es nicht unbedingt not¬ 
wendig, vor dem UNTIL ein Semikolon zu setzen, da das REPEAT 
UNTIL der Rahmen ist, der die Anweisungssequenz umgibt; es ist 
aber natürlich nicht verboten, da es ja noch die leere Anweisung 
gibt. 
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3.12.2.2 Die WHILE..DO..END-Struktur 
Syntax: 


WHILE <Boolausdruck> DO 
<Anweisungsfolge> 

END 


Beschreibung: 

Im Gegensatz zur REPEAT-Struktur steht bei der WHILE-Konstruk- 
tion die Abbruchbedingung am Anfang der Schleife. Darum kann 
die Schleife einfach übersprungen werden, wenn die Abbruchbedin¬ 
gung erfüllt ist, und braucht nicht ein einziges Mal zur Ausführung 
zu kommen. Die WHILE-Schleife wird solange ausgeführt wie die 
Bedingung erfüllt ist. Die Schleife wird dann nicht mehr erneut 
ausgeführt, wenn die Auswertung der Bedingung (Boolausdruck) 
ein FALSE ergibt. 

Beispiel: 


I an dieser Stelle erfolgt die Eingabe von ’Anzahl’ 
WHILE Anzahl # 0 DO 
c:=a*b+2; 

DEC(Anzahl) 

END; 


WHILE c # 1 DO I kann zur Endlosschleife werden, 
c:=c/2; | wenn c zu Beginn negativ ist. 
s:=s+c 


END; 
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3.12.2.3 Die FOR..DO..END-Struktur 
Syntax: 


FÜR <Variable>:=<Ausdruck> TO <Ausdruck> 
[BY <Konstante>] DO 
<Anweisungsfolge> 

END 


Beschreibung: 

Auch diese Struktur ist eine Schleifenstruktur. Im Unterschied zu 
den beiden vorherigen Konstrukten steht hier jedoch bereits vor 
Ausführung der Schleife fest, wie oft sie wiederholt werden soll. 
Falls Sie bisher in BASIC programmiert haben, so sollte Ihnen 
die FOR-Schleife vertraut sein, denn sie ist sehr ähnlich wie die 
FOR/NEXT-Schleife in BASIC aufgebaut. 

Wenn Sie noch einmal die allgemeine Form oben betrachten, 
dann bedeutet <Variable> die Schleifensteuerungsvariable vom 
Typ CARDINAL oder INTEGER (natürlich auch die kürzeren und 
längeren Formen), sowie Aufzählungstypen und CHAR. <Ausdruck> 
ist ein CARDINAL- oder INTEGER- Ausdruck und <Anweisungsf olge> 
sind ein oder mehrere zu wiederholdende Befehle. Die Befehle, 
die wiederholt ausgeführt werden, heißen Schleifenkörper. Der 
BY-Abschnitt ist optional. Im allgemeinen wiederholt die FOR- 
Schleife ihren Code, bis der Wert der Steuerungsvariablen größer 
dem Wert des Zielausdrucks ist. Falls BY fehlt, wächst die Steue¬ 
rungsvariable bei jedem Schleifendurchlauf um eins. Ansonsten 
nimmt die Steuerungsvariable um den Wert des BY-Ausdrucks zu 
oder ab, falls die Konstante hinter BY negativ ist. Der erste Aus¬ 
druck gibt den Startwert wieder, der zweite Ausdruck den Endwert 
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der Schleifenzählung. Sind Startwert und Endwert gleich, wird die 
Schleife einmal durchlaufen. Ist der Startwert größer als der End¬ 
wert, und keine negative Schrittweite gewählt, wird die Schleife 
nie durchlaufen. Genauso bei negativer Schrittweite und einem 
Startwert der kleiner als der Endwert ist. Wichtig: Der Wert hin¬ 
ter BY muß eine Konstante sein. Die Werte für den Start- und 
Endwert können Variablen sein. 

Beispiel: Berechnung der Summe der ersten n natürlichen Zah¬ 
len: 

Readlnt(n); | Einlesen von n 

summe:=0; 

FÜR i:=l TO n DO 
summe:=summe+i 

END; 

I Berechnung der Summe der natürlichen, 

1 ungeraden Zahlen bis n 

Readint(n); 

summe:=0; 

FOR i:=l TO n BY 2 (* Schrittweite +2 *) DO 
summe:=summe+i 

END; 

I Berechnung von n! (Fakultät) 

Readint(n); 

Produkt:=1; 

FOR i:=n TO 2 BY -1 (* Schrittweite -1 *) DO 
Produkt:=produkt*i 

END; 
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3.12.3 Verzweigungsstrukturen: 

Die IF..THEN..ELSE - Struktur 


Syntax: 


IF <Boolausdruck> THEN 
<Anweisungsf olge1> 
ELSE 

<Anweisungsfolge2> 

END 


Beschreibung: 

Bei dieser Struktur wird über den Booleschen Ausdruck entschie¬ 
den, welcher Programmteil im folgenden weiterbearbeitet werden 
soll. In der einfachsten Form dieser Struktur existiert nur eine ein¬ 
zige Anweisungsfolge, die dann ausgeführt wird, wenn der Bool- 
ausdruck TRUE wird. In diesem Fall fällt der ELSE-Zweig weg. 
Beispiel: 

IF GehaltOOOO THEN 
Gehalt:=Gehalt+100 
END; 

Hier wird z. B. einem Angestellten ein Sonderzuschlag gewährt, 
wenn er monatlich weniger als DM 3000.— verdient. 

Diesen Vorgang könnte man mit Hilfe eines ELSE- Zweiges noch 
weiter differenzieren: 

IF GehaltOOOO THEN 
Gehalt:=Gehalt+100 
ELSE 

Gehalt:=Gehalt+50 
END; 
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Wer nicht in den Genuß einer Gehaltserhöhung von DM 100,— 
kommt, weil er DM 3000,— oder mehr verdient, muß mit einem 
Zuschlag von nur DM 50,— vorliebnehmen. 

Für die IF..THEN-Struktur existiert auch die folgende Variante: 


IF <Boolausdruck> THEN <Anweisungsfolge> 
{0R_IF <Boolausdruck> THEN <Anweisungsfolge>} 
[ELSE <Anweisungsfolge>] 

END 


Zu kompliziert? Überhaupt nicht. Zur Erinnerung, die ges¬ 
chweiften Klammern deuten an, daß ihr Inhalt beliebig oft wiede¬ 
rholt, aber auch ganz fort gelassen werden kann. Die eckigen Klam¬ 
mern stehen um einen Text, den man beliebig aussparen kann; in 
diesem Beispiel das ELSE. 

Nun jedoch zum eigentlichen Thema: Die oben dargestellte Va¬ 
riante ist für den Fall gedacht, daß nicht nur ein oder zwei, sondern 
viele verschiedene Fälle abgeprüft werden sollen. Beim Ausführen 
der Struktur wird jeder <Boolausdruck> der Reihe nach geprüft, 
bis einer TRUE ergibt. 

Wurde ein solcher Ausdruck gefunden, wird die nachfolgende 
<Anweisungsf olge> ausgeführt, sonst der ELSE-Teil. 

Beispiel: 

Angenommen, alle Mitarbeiter von oben sollen DM 100,— mehr 
Gehalt bekommen, wenn 24 sind, DM 200,—, wenn sie 25 Jahre 
alt sind, und DM 300,— mehr, wenn sie über 25 Jahre alt sind. 
Alle anderen müssen sich mit DM 50,— zufrieden geben (das ist 
nicht gerade ein Beispiel, welches aus dem Leben gegriffen ist, aber 
trotzdem... Schicken Sie uns ein schöneres, wenn Ihnen zufällig 
eines über den Weg läuft). Im Programmtext sähe das so aus: 
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IF Alter = 24 THEN Gehalt:=Gehalt+100 
OR_IF Alter = 25 THEN Gehalt:=Gehalt+200 
OR_IF Alter > 25 THEN Gehalt:=Gehalt+300 
ELSE 

Gehalt:=Gehalt+50 
END; 


Natürlich gibt es nicht nur OR_IF, sondern auch dazu passend 
ein AND_IF. Mit dessen Hilfe ist es möglich, einen komplizierten 
Boolean-Ausruck in mehrere Fähe aufzugliedern. Weiterhin er¬ 
gibt sich hiermit oft auch eine Beschleunigung des Programms. 
Wird eine Konstruktion der Form 


IF <Bool 1> AND.IF <Bool 1.1> ... 


verwendet, so muß der zweite IF-Fah nur überprüft werden, wenn 
der erste TRUE ist. Dies führt wie bei AND, zu Geschwindigkeitss¬ 
teigerungen, insbesondere dann, wenn diese Abfragen innerhalb 
einer Schleife ausgeführt werden müssen. 

Bedenken Sie, daß bei AND_IF- und 0R_IF-, wie auch bei der 
normalen IF-Schleife, ein ELSE- Zweig möglich ist. Hiermit sind 
diese Strukturen sehr üexibel einsetzbar und es lassen sich so sehr 
übersichtliche Eintscheidungsabläufe aufstehen. Im Gegensatz zu 
einem einfachen AND ist mit AND_IF folgende Konstruktion möglich: 
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IF a=l 

AND.IF b>3 THEN 

WriteStringC"Beide Bedingungen erfüllt"); 

WriteLn; 

ELSE 

WriteStringC"b<=3"); 

END 

ELSE 

WriteString{"a#l"); 

END 

Man sieht, abhängig davon, welche Bedingung nicht zutrifft, wird 
ein anderer ELSE- Teil ausgeführt. 

Statt langer Worte werden Ihnen nun einige weitere Beispiele 
mit kurzen Erläuterungen gezeigt, die Ihnen die Funktionsweise 
und die Anwendungsmöglichkeiten dieser Struktur veranschauli¬ 
chen sollen. 

Beipiele: 

In folgendem Beispiel wird der Fall dargestellt, daß ein Wert, der 
ein Eingabe- oder auch ein berechneter Wert sein kann, als eine 
Art von Schlüssel für bestimmte auszuführende Operationen dient. 
Dies kann auf verschiedene Art und Weisen formuliert werden, was 
je nach dem zu besserem oder schlechterem Code führt, den der 
Compiler erzeugt, und zudem in Übersichtlichkeit und Geschwin¬ 
digkeit verschieden ist. 

IF (a=l) OR (a>=-10) AND (a<=-5) THEN ... 

0R_IF (a>=2) AND (a<=10)THEN ... 

0R_IF (a=ll) 0R(a=20)THEN ... 

ELSE ... 

END; 

Diese Version ist sehr aufwendig und führt daneben auch zu schlech¬ 
tem Objektcode, da der Compiler noch nicht erkennen kann, daß 
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hier sehr häufig nur mit dem a geprüft wird. Eine sinnvolle Verein¬ 
fachung stellt der OF-Vergleichsoperator dar. Mit diesem Operator 
kann eine ganze Werteliste angegeben werden, mit welchen vergli¬ 
chen werden soll. 


<Ausdruck> OF <Ausdruck> [..<Ausdruck>] 

,<Ausdruck> [..<Ausdruck>] 


Hierzu zwei Beispiele: 


IF c OF "a","b","c" THEN 
IF i OF 1,3,4..6 THEN 

Im ersten Beispiel ist die Bedingung erfüllt, wenn c den Wert 
„a“,„b“ oder „c“ hat. Im zweiten wenn i den Wert 1 oder 3 
hat oder zwischen 4 und 6 hegt. Will man eine Bedingung so 
formulieren, das sie dann wr sein soll, wenn eine Variable keiner der 
folgenden Werte entspricht, kann dies folgendermaßen geschehen: 


IF c NOT OF "a","b","c" THEN 


Außerdem können Variablen in einer OF-Liste angegeben werden. 


... X OF a..b, c ... 
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Das Beispiel von oben sieht nun so aus: 

IF a OF 1,-10..-5 THEN ... 

0R_IF a OF 2..10 THEN ... 

0R_IF a OF 11,20 THEN ... 

ELSE ... 

END; 


Der Term (a OF 1,-10. .-5) ist dabei ein boolscher Ausdruck. 
Er läst sich also bei Bedarf auch mittels boolscher Verknüpfungen 
mit anderen boolschen Ausdrücken kombinieren. 

Aber auch diese Version ist dann noch nicht vollkommen be¬ 
friedigend, wenn viele verschiedene Fälle mit einem Schlüssel zu 
prüfen sind. Deshalb bietet Cluster die Möglichkeit, den Aus¬ 
druck als Schlüssel zu erklären, mit welchem dann mehrere Listen 
geprüft werden können: 


IF KEY <Ausdruck> 


OF <0fListel> THEN ... 

END 

OF <0fListe2> THEN ... 

END 

OF <0fListe3> THEN ... 

END 

ELSE ... 


END; 



Es besteht weiterhin die Möglichkeit, einen solchen Schlüssel in 
einem OR_IF-Fall zu verwenden. Anstelle des THEN kann eine wei¬ 
tere Fallunterscheidung mit AND_IF folgen: 
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OR_IF KEY <Ausdruck> 

OF <0fListe> AND_IF <Ausdruckl> THEN ... 

0R_IF <Ausdruck2> THEN ... 
0R_IF KEY ... 

ELSE ... 

END 

OF . . . 

0R_IF ... 


Das Beispiel von oben sieht dann so aus: 
IF KEY a 

OF 1,-10..-5 THEN ... END 
OF 2. . 10 THEN ... END 

OF 11..20 THEN ... END 

ELSE ... 

END; 


Das sieht nun doch wesentlich übersichtlicher und schöner aus als 
oben. 

Folgendes Programm prüft, ob ein Zeichen in c ein großer bzw. 
kleiner Buchstabe oder eine Zahl ist: 
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IF KEY c 

OF "a".."z","ä","ö","ü","ß" THEN 
WriteStringC'Kleiner Buchstabe"); 
(* —> gibt einen Text aus *) 
WriteLn 

(* —> Zeilenvorschub *) 

END 

OF "A".."Z","Ä","Ö","Ü" THEN 

WriteStringC"Großer Buchstabe"); 
WriteLn 
END 

OF "0".."9" THEN 

WriteStringC"Zahl"); 

WriteLn 

END 

ELSE 

WriteStringC"Unklares Zeichen"); 
WriteLn 
END; 


Sie sehen es: Mit IF..THEN hat man eine sehr mächtige und viel¬ 
fältige Kontrollstruktur in der Hand, die einem sehr viele Mög¬ 
lichkeiten bietet. Probieren Sie es aus. Wie Sie Zeichen eingeben 
können, die nicht darstellbar sind, lesen Sie bitte unter 3.11.2 auf 
Seite [Ml nach. 
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3.12.4 Weitere Schleifenarten 

3.12.4.1 Zum zweiten Male: Die WHILE-Struktur 

Syntax: 


WHILE <Boolausdruck> DO ... 
OR.WHILE <Boolausdruck> DO ... 
OR-WHILE <Boolausdruck> DO ... 
END; 


Beschreibung: 

Wie man sieht, ist die WHILE-Struktur mächtiger, als sie zuerst 
oben angegeben wurde. In Wirklichkeit verfügt sie über alle Fähigkeiten, 
die auch die IF-Struktur besitzt. 

Nacheinander werden alle Boolausdrücke geprüft, bis einer TRUE 
wird. Die dazugehörige Anweisungsfolge wird ausgeführt; an¬ 
schließend wird die Schleife beim obersten Vergleich wieder be¬ 
gonnen. Ist keiner der Boolausdrücke wahr, wird die Schleife ver¬ 
lassen. 

Auch hier ist ein ELSE-Zweig vorhanden, welcher dann aus¬ 
geführt wird, wenn keiner der angegebenen Ausdrücke wahr ist. 
Zusätzlich wird die WHILE- Schleife anschließend verlassen. Dies ist 
sehr wichtig. 

Überdies ist auch hier entsprechend der AND_IF-Konstruktion 
die Verwendung von AND_WHILE und von KEY möglich. 
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Syntax: 


WHILE <BoolAusdruckl> 

AND.WHILE <BoolAusdruck2> DO 
Anweisungl 
ELSE 

Anweisung2 

END 

ELSE 

AnweisungS 

END 


Bei einer solchen Schleife geschieht folgendes: Anweisungl wird 
solange ausgeführt, wie BoolAusdruckl und BoolAusdruck2 wahr 
sind. Wird die Schleife aufgrund von BoolAusdruckl verlassen, 
wird der ELSE-Teil mit der AnweisungS ausgeführt. Wird sie 
über den BoolAusdruck2 verlassen, wird Anweisung2 ausgeführt. 
Sie sehen, im Gegensatz zu einer WH ILE- Schleife mit durch AND 
verknüpften Boolausdrücken, muß man in diesem Eall nicht nach 
der Schleife mit einer IF-Abfrage herausünden, wodurch die Schleife 
abgebrochen worden ist. 

Selbstverständlich läßt sich ein AND_WHILE-Zweig auch wieder 
mit beliebig vielen OR.WHILEs oder mit einem KEY versehen. 
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Syntax für WHILE KEY: 


WHILE KEY <Ausdruck> 

OF <Ausdruckl> DO 

<Anweisungl> 

END 

OF <Ausdruck2> DO 

<Anweisung2> 

END 

ELSE 

<Anweisung3> 

END 


Diese Schleife wird solange durchlaufen, wie einer der OF-Fälle 
zutrifft. Trifft keiner zu, wird der ELSE-Teil durchlaufen, und die 
Schleife verlassen. 

Auch hier läßt sich jeder OF-Fall mit einem AND.WHILE kombinie¬ 
ren: 


WHILE KEY <Ausdruck> 

OF <Ausdruckl> AND_WHILE <BoolAusdruck> DO 

<Anweisungl> 

END 

OF <Ausdruck2> DO 

<Anweisung2> 

END 

ELSE 

<Anweisung3> 

END 





68 


KAPITEL 3. EINFÜHRUNG IN CLUSTER 


Warscheinlich erkennen Sie nun die Mächtigkeit dieser Schleife, 
normalerweise sollte es damit nie notwendig sein, LOOP (s. u.) zu 
verwenden. Im gesammten Compiler wurde nicht ein einziges Mal 
LOOP verwendet. 


3.12.4.2 Der Notnagel: LOOP 

LOOP ist eines von den unfeinen Dingen in der Welt der Soft¬ 
ware, und ein guter Programmierer rümpft beim Anblick dieses 
Konstruktes die Nase. Die Verwendung dieser Schleife sollte sich 
auf absolute Notfälle beschränken. In der Programmiersprache C 
wird diese Art von Schleifenform eher häuüg verwendet. Erst im 
Zusammenhang mit Exceptions (siehe unter 3.20.2 ab Seite 126) 
erhält LOOP wieder eine Berechtigung. 

Syntax: 


LOOP 

<Anweisungsfolge> 
END; 


Beschreibung: 

Hier steht die Abbruchbedingung nicht am Anfang oder am Ende 
des Schleifenkörpers, sondern innerhalb desselben. Die Schleife 
kann also jederzeit (mittels EX IT) verlassen werden, was zwar 
kaum der Philosophie der strukturierten Programmierung ents¬ 
pricht, aber der Einfachheit wegen leider manchmal zur Anwen¬ 
dung verleitet. 

Vermeiden Sie bitte diese Möglichkeit (das geht ohne Pro¬ 
bleme), und nehmen Sie folgende Darstellung als abschreckendes 
Beispiel: 
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a : = 0; 

LOOP 
INC(a); 

IF a = b THEN EXIT END; 
DEC(b); 

END; 


3.12.5 Die WITH-Struktur 

Neben den bisher aufgeführten Strukturen gibt es noch eine, die 
dem Programmierer die Arbeit erleichtern soll: die WITH-Struk- 
tur. Mit der WITH-Struktur kann einer tiefliegenden Struktur für 
einen Programmbereich ein eigener Name zugeordnet werden. 

Vorsicht für alle, die „WITH” schon von Pascal oder Modula 2 
her kennen. In Cluster ist die Funktion verändert und gleichzei¬ 
tig verbessert worden: Durch die Umbenennung mit AS ist es nun 
nämlich möglich innerhalb eines WITH auch auf zwei Recordvaria¬ 
blen des gleichen Typs vereinfacht zugreifen zu können. Dies war 
in Modula 2 noch nicht möglich. 


WITH <VarAusdruck> [AS <NeuerName>] , 
<VarAusdruck> [AS <NeuerName>] DO 
<Anweisungsfolge> 

END 


Sie können mit „WITH” also längere Variablennamen abkürzen. 
Wird anstelle des Ausdrucks „<VarAusdruck>” ein Typ angege¬ 
ben, so wird eine neue Variable erzeugt. 
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Weiterhin kann der Compiler Optimierungen durchführen, da 
er Variablen, soweit möglich, in den Prozessor-Registern läßt und 
Adreßausdrücke nur einmal berechnen muß. 

Ein Hinweis für alle fortgeschrittenen Programmierer: Nicht 
nur Elemente von Record oder Arrays können umbenannt wer¬ 
den, sondern dank AS auch solche, die nur über mehrere Pointer 
dereferenziert erhältlich wären. 

Beispiel: 

WITH 

Dieser_wunderbar_lange_Variablenname AS wVl, 
Dieser_ebenso_schoene_Variablenname AS wV2, 
rec.array[6] AS i, 

Ptr''. f ield [i]. elem'' AS c DO 

END; 

Wie man aus dem Listing leicht sehen kann, wird die Schrei¬ 
barbeit hiermit sehr vereinfacht. Eür alle, die die den Teil ab 
rec . array [6] nicht verstanden haben, sei zur Beruhigung gesagt, 
dies war nur ein Beispiel für die Proüs, und muß zu diesem Zeit¬ 
punkt noch nicht verstanden werden. Wenn Sie dieses Handbuch 
durchgearbeitet haben, werden Sie es warscheinlich auch verste¬ 
hen. 
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• • 

Übungen 3: 

1. Erstellen Sie ein Programm mittels FOR-Schleife, welches 
die Zahlen zwischen 1 und N zusammenzählt. N ist eine 
ganze Zahl, welche vom Benutzer eingegeben wird. 

2. Erklären Sie den wesentlichen Unterschied zwischen WHILE.. .DO 
und REPEAT.. .UNTIL-Schleifen. 

3. Welche Scheifenarten gibt es in Cluster? (Ein Tip, es sind 
vier) 

4. Wie oft wird die nachfolgende Schelfe ausgeführt? 

X := 1; 

REPEAT 

X := X + 2 

UNTIL X > 100; 
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5. Bestimmen Sie bitte für folgendes Beispiel, welche Anwei¬ 
sungsfolge ausgeführt wird, wenn a=-10, b=TRUE, c—"d" 
ist, bzw. für welche Variablenwerte die einzelnen Anweisung¬ 
steile ausgeführt werden. 


IF (a>0) OR (NOT b AND (c OF "a".."z") THEN 
Anweisungl; 

0R_IF KEY c 

OF "A" AND_IF b THEN 

Anweisung2; 

ELSE 

AnweisungS 

END 

OF THEN 

Anweisung4; 

END 

ELSE 

AnweisungS; 

END 
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3.13 Standardfunktionen 


Wie bei einem Taschenrechner verschiedene mathematische Funk¬ 
tionen fest eingebaut sind, so kommt auch Cluster mit einer Reihe 
von vordeünierten Standardfunktionen ins Haus. 

Sie folgen nun in tabellarischer Form, wobei für Sie als ange¬ 
henden Programmierer vor allem von Bedeutung ist, auf welchen 
Typ von Zahl diese Funktionen wirken, d. h. aus welcher Grund¬ 
menge eine als Argument der Funktion verwendete Variable stam¬ 
men darf, und welchen Zahlentyp sie als Ergebnis liefern. Ferner 
enthält die Tabelle eine kurze Beschreibung, was eigentlich berech¬ 
net wird. 


Die Standardfunktionen SUCC und PRED liefern bei Integern 
etc. den Wert -F/ — 1, bei Zeigern auf Strukturen einen Zeiger des 
selben Typs, dessen Zieladresse um die Größe eines Zielelements 
erhöht ist^^ Über Zeiger und dynamische Strukturen lesen Sie 
bitte im Kapitel für fortgeschrittene Programmierer weiter. 

Beispiel: 


SUCC(3) = 4 

PREDC'B") = "A" 


Neben diesen Standardfunktionen gibt es auch noch sogenannte 
Standardprozeduren (was eine Prozedur ist, folgt anschließend), 
die nicht wie eine Funktion einen Wert zurückliefern, sondern 
das Argument verändern (also keinen anderen Typ als den Typ 
des Arguments erzeugen): 

^®Ein Hinweis für C-Programmierer: Mithilfe dieser Funktionen läßt sich 
dasselbe erreichen wie wenn unter C ein Zeiger um eins erhöht oder erniedrigt 
wird. Der Zeiger wird auf das nächste Element gesetzt. Zeigt der Zeiger 
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Funktion 

wirkt auf 

erzeugt 

berechnet 

SIN(x) 

REAL 

REAL 

Sinus von x 

COS(x) 

REAL 

REAL 

Cosinus von x 

TAN(x) 

REAL 

REAL 

Tangens von x 

ASIN(x) 

REAL 

REAL 

Arcussinus von x 

ACOS(x) 

REAL 

REAL 

Arcuscosinus von x 

ATAN(x) 

REAL 

REAL 

Arcustangens von x 

SINH(x) 

REAL 

REAL 

Sinushyperbolicus von x 

COSH(x) 

REAL 

REAL 

Cosinushyperbolicus von x 

TANH(x) 

REAL 

REAL 

Tangenshyperbolicus von x 

SQRT(x) 

REAL 

REAL 

Quadratwurzel von x 

EXP(x) 

REAL 

REAL 

Eulersche Zahl hoch x 

LN(x) 

REAL 

REAL 

Natürlicher Logarithmus von 

X 

LOG(x) 

REAL 

REAL 

Dekadischer Logarithmus von 

X 

ABS(x) 

REAL 

REAL 

Betrag von x 

ODD(x) 

CARDINAL 

BOOLEAN 

liefert true/false, falls x 
ungerade / gerade 

PRED(x) 

zählbar 

zählbar 

Wert von x, um eins 
vermindert 

SUCC(x) 

zählbar 

zählbar 

Wert von x, um eins erhöht 

CEIL(x) 

REAL 

REAL 

Kleinste ganze Zahl >= x 

FLOOR(x) 

REAL 

REAL 

Größte ganze Zahl <= x 


Tabelle 3.2: Standardfunktionen von Cluster 
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Prozedur 

wirkt auf 

Ergebnis 

INC(x) 

INTEGER 

erhöht x um 1 

INC(x,y) 

INTEGER 

erhöht x um y 

DEC(x) 

INTEGER 

erniedrigt x um 1 

DEC(x,y) 

INTEGER 

erniedrigt x um y 

EVEN(x) 

INTEGER 

rundet x auf die nächste 
gerade Zahl ab 


Tabelle 3.3: Standardprozeduren von Cluster 


3.13.1 Prozeduren 


Das Prozedurkonzept ist eines der mächtigsten Konzepte imperati¬ 
ver Programmiersprachen: Hierdurch kann jede als Programm for¬ 
mulierte Vorschrift zu einer elementaren Anweisung in einem an¬ 
deren Programm werden. Darüberhinaus dienen Prozeduren der 
Zerlegung und Strukturierung umfangreicher Programme, und sie 


erlauben die Verwendung rekursiver Techniken (siehe unter 3.16 


ab Seite 113 


fach verwenc 


. Nebenbei sparen sie, falls ein Programmteil mehr¬ 
et werden soll, Tipparbeit und Speicherplatz. 


beispielsweise auf ein Element eines Arrays von RECORDs, so wird der Zeiger 
auf den nächsten Record des Arrays gesetzt 
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PROCEDURE <Bezeichner> [<Liste von formalen Parametern>];(1) 
[<Variablendeklarationen>](2) 

BEGIN 

<Anweisungen> 

END; 


Eine Prozedur besteht aus dem Schlüsselwort PROCEDURE gefolgt 
von einem Bezeichner (dem Namen der Prozedur), aus einer Liste 
von formalen Parametern (wahlfrei), aus einer Folge von Deklara¬ 
tionen (Variablen- und/oder Typdeklarationen, ebenfalls wahlfrei) 
und aus einer Folge von Anweisungen. 

Der Bezeichner und die Liste der formalen Parameter bilden 
den Prozedurkopf (1), die Deklarationen und Anweisungen den 
Prozedurrumpf {2). Der Prozedurrumpf ist in der Regel ein Bloclj^ 

Aus einem Programm heraus wird die Prozedur mit ihrem Na¬ 
men aufgerufen, der Prozedurname wird also zu einer selbstdefi¬ 
nierten Anweisung. 

Beispiel: 

PROCEDURE GutenTagSagen; 

BEGIN 

WriteStringC'Guten Tag!"); 

END GutenTagSagen; 

BEGIN (* HauptProgramm *) 

IF a=l THEN GutenTagSagen END; 

1 Die Prozedur wird mit ihrem Namen aufgerufen 


^'^Das heißt, in ihm können alle Elemente anftreten, die auch zwischen 
MODULE und CLOSE anftreten können 
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Variablen, die innerhalb einer Prozedur definiert wurden, gelten 
auch nur innerhalb dieser Prozedur. Solche Variablen werden 
als lokale Variablen bezeichnet. Globale Variablen dagegen sind 
solche, die im Hauptprogramm, das heißt außerhalb der Prozedur, 
deklariert worden sind. Sie sind überall im Programm und somit 
auch in Prozeduren verfügbar. 

Zwar ist es denkbar, alle in einem Programm benötigten Varia¬ 
blen global zu deünieren. Dabei jedoch geht ein beträchtlicher Teil 
an Übersichtlichkeit verloren. Zum anderen ist sichergestellt, daß 
auf eine lokale Variable keine andere Prozedur außerhalb zugreifen 
kann. 

Wird in einer Prozedur eine Variable deüniert, die denselben 
Namen hat wie eine Variable des Hauptprogramms, so gilt in¬ 
nerhalb einer Prozedur die dort deünierte Variable. Nach Abar¬ 
beitung des Unterprogramms gelangt die globale Variable dann 
wieder „an die Macht”, hierbei spricht man auch von Sichtbar- 
keitsbereichen. Ein Sichbarkeitsbereich ist die Deünintionsebene 
eines Moduls oder einer Prozedur. In einem Sichbarkeitsbereich 
kann man immer auf die Elemente, die in ihm deüniert worden 
sind sowie auf die Elemente der über ihm hegenden Sichbarkeits- 
bereiche zugreifen (über ihm soll heißen in Richtung Modulebene). 

Im Gegensatz zu „G“ kann man in Cluster auch innerhalb 
einer Prozedur weitere Prozeduren definieren, die lokale Prozedu¬ 
ren genannt werden. Diese lokalen Prozeduren können nur von 
den Prozeduren aus aufgerufen werden, innerhalb derer sie defi¬ 
niert wurden. Der Vorteil dieser Prozeduren, sie können auf die 
Variablen und Ubergabeparameter (s. u.) der sie umgebenden Pro¬ 
zeduren zugreifen. Außerdem können Sie auf diese Weise mehre¬ 
ren Prozeduren den gleichen Namen geben, solange sie sich nicht 
im gleichen Sichtbarkeitsbereich befinden. Existiert eine globale 
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Prozedur mit gleichem Namen, kann innerhalb des Sichbarkeits- 
bereiches der Prozedur nur auf die lokale zugegriffen werden. Bei 
geschickter Verwendung kann das zur besseren Lesbarkeit des Pro¬ 
gramms stark beitragen. Bei wiederkehrenden Anweisungssequen- 
cen die nur innerhalb einer Funktion verwendet werden sollte man 
auf alle Fälle eine lokale Prozedur verwenden und keine modulglo¬ 
bale. Lokale Prozeduren können also immer auf die Elemente der 
über ihnen hegenden Porzeduren zugreifen, doch nie eine Prozedur 
auf die einer zu ihr lokalen Prozedur. Eine lokale Prozedur kann 
an jeder Stelle zwischen dem Prozedurkopf der sie umgebenden 
Prozedur und deren BEGIN-Teil deüniert werden. Lokale Prozedu¬ 
ren können selbstverständlich auch selbst wieder lokale Prozeduren 
enthalten, und das nahezu beliebig tief. 

Es ist auch möglich, innerhalb einer Prozedur weitere Module 
zu importieren oder von einem bereits importierten Modul weitere 
Bezeichner zu importieren. Dies geschieht wie im Modul durch 
eine IMPORT-Anweisung nach dem Prozedurkopf. 

Oft ist es notwendig, einer Prozedur einige Werte mit auf den 
Weg zu geben. Man spricht in diesem Eall von Prozeduren mit 
Übergabewerten. Z. B. wäre es sinnvoll, einer Prozedur, die einen 
Punkt auf den Bildschirm zeichnen soll, die x- und y-Koordinaten 
des Punktes zu übermitteln. Dadurch kann die Prozedur durch die 
Ubergabewerte zu unterschiedlichem Verhalten veranlaßt werden, 
der Punkt wird dadurch an die gewünschte Stelle gezeichnet. 

Bei den Prozeduren mit Übergabewerten (Parametern) unter¬ 
scheidet man Werteparameter (call by value) und Variablenpara¬ 
meter (call by reference). Vom Aufbau her gesehen unterschei¬ 
den sich die beiden nur dadurch, daß beim Variablenparameter vor 
der Liste der Ubergabewerte ein VAR steht. Inhaltlich ergibt sich 
folgender Unterschied: Ein Werteparameter wird in der Prozedur 
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selbst nicht verändert, von ihm wird beim Prozeduraufruf eine Ko¬ 
pie erstellt, mit der dann innerhalb der Prozedur gearbeitet wird. 
Die übergebene Variable bleibt dabei unverändert. Erfährt dage¬ 
gen ein Variablenparameter in der Prozedur eine Manipulation, so 
ist diese über die Prozedurgrenzen hinaus gültig, da in diesem Fall 
die übergebene Variable selbst verändert wird. Ein Beispiel soll 
dies verdeutlichen: 

Die beiden Beispiele sind fast identisch und unterscheiden sich 
nur durch das VAR im zweiten Programm, was auf einen Varia¬ 
blenparameter hinweist. 

MODULE Werteparaineter_Test; 

FROM InOut IMPORT Readint, Writeint, WriteLn; 

VAR globall, global2 : INTEGER; 

PROCEDURE Werteparameter .Demo(i,j:INTEGER); 

BEGIN 
i:=i+10; 
j:=j+20; 

END Werteparameter_Demo; 

BEGIN 

Readint(globall); 

Readint(globaI2); 

Werteparameter JDemo(globall,global2); 

Writeint(globall); 

WriteLn; 

Writeint(global2); 

END Werteparameter.Test. 

Als Ausgabe ergeben sich hier die ursprünglich eingelesenen Werte. 
Anders jedoch beim zweiten Programm: 
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MODULE Variablenparameter.Test; 

FROM InOut IMPORT Readint, Writeint, WriteLn; 

VAR global1, global2 : INTEGER; 

PROCEDURE Variablenparaineter_Demo(VAR i, j : INTEGER) ; 

BEGIN 

i:=i+10; 

j:=j+20; 

END Variablenparaineter_Demo; 

BEGIN 

Readint(globall); 

Readint(global2); 

Variablenparameter_Demo(globall,global2); 

Writeint(globall); 

WriteLn; 

Writeint(global2); 

END Variablenparaineter_Test. 

Die übergebenen Parameter werden in der Prozedur verändert und 
modifiziert an den aufrufenden Programmteil zurückgegeben. 

Eine weitere Möglichkeit ergibt sich durch die Verwendung von 
„REF” . Hierbei wird sichergestellt, im Gegensatz zu „VAR”, daß 
der übergebene Wert nicht verändert wird. Wird innerhalb der 
Prozedur versucht, den übergebenen Wert zu verändern, so meldet 
sich der Compiler in seiner eigenen Art mit einer Fehlermeldung. 

Nun wird der eine oder andere fragen, wofür das gut sein soll. 
Diese Übergabeart lohnt sich für größere Typen (Arrays oder Re¬ 
cords), denn bei der ersten Methode wird der übergebene Wert 
kopiert und mit der Kopie innerhalb der Prozedur weitergearbei¬ 
tet. 

Sie werden vielleicht sagen, man kann ja für größere Typen, die 
innerhalb der Prozedur nicht verändert werden sollen, die zweite 
Methode verwenden. Dies ist richtig, allerdings wird hierbei nicht 
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sichergestellt, daß der übergebene Wert nicht verändert wird. So¬ 
lange Sie alleine an einem Projekt arbeiten, mag dies nicht ent¬ 
scheidend sein, bei Gruppenarbeit gibt aber erst Methode drei die 
nötige Sicherheit. 

Einige zusätzliche Hinweise: Wollen Sie mehrere Variablen des 
gleichen Typs übergeben, so können Sie diese durch Komma tren¬ 
nen und den Typ nach einem Doppelpunkt anfügen: 

PROCEDURE Name(i,j,k,1:INTEGER); 

Wollen Sie hingegen mehrere verschiedene Variablentypen übergeben, 
so werden diese durch Semikolon getrennt. Ein eventuell vorhan¬ 
dener REF- oder VAR-Parameter gilt nur bis zum nächsten Semiko¬ 
lon: 

PROCEDURE Name(i,j:INTEGER; 00 ,pp:REAL); 

PROCEDURE NeuerName (VAR help:CHAR;zaehler:CARDINAL); 
PROCEDURE Pro3(REF k:BOOLEAN; VAR kaelte:REAL); 

Ebenso können sogenannte Defaultwerte deüniert werden. Diese 
Werte werden automatisch eingesetzt, wenn die Übergabeparameter 
weggelassen wurden. Somit lassen sich sehr flexible Programme 
und Prozeduren erstellen. 

PROCEDURE DefwerteCval : LONGINT;breite : INTEGER:=0); 

Diese Prozedur kann aufgerufen werden mit 

Defwerte (10,4) oder aber auch mit Defwerte (41). 

Hat eine Prozedur viele Parameter, kann nicht immer davon aus¬ 
gegangen werden, daß die zu überspringenden Parameter am Ende 
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liegen. In diesem Fall muß die Zuweisung durch Schlüsselwörter 
(die Namen der Parameter) vorgenommen werden 


PROCEDURE DefNeu(wert : INTEGER; 

flagl,flag2 : BOOLEAN:=FALSE; 

breite : INTEGER:=640; 

hoehe : CARDINAL:=512); 


DefNeu(10,TRUE,FALSE,320,256); 

DefNeu(5»breite:=320); 

DefNeu(8 »breite:=320 »hoehe:=250); 


Sehr wichtig ist, daß die Reihenfolge der Parameter eingehalten 
werden muß. 


^^C++-Programmierer sollten spätestens jetzt begeistert sein oder zumin¬ 
dest erstaunt aufschauen 
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3.13.1.1 STATIC-Variablen 

Das Schlüsselwort STATIC kann nur bei Variablendeklarationen 
innerhalb von Prozeduren verwendet werden. Diese Variablen 
überleben ihre Prozedur, und haben beim nächsten Aufruf noch 
den selben Wert wie beim Verlassen. Werden sie vorinitialisiert, 
so geschieht dies nur einmal am Programmanfang. 

Beispiel: 

PROCEDURE statictestO ; 

VAR 

testl STATIC: INTEGER; 
test2 STATIC:= 10; 

BEGIN 

END statictest; 


Vielleicht werden Sie sich jetzt fragen, was dann der Vorteil ge¬ 
genüber einer globalen Variablen sein soll? Ganz einfach, eine 
STATIC- Variable ist nur innerhalb der Prozedur sichtbar. Das 
heißt, sie kann ohne Probleme auch den gleichen Namen wie eine 
bereits deünierte globale Variable haben, ohne daß es zu einem 
Namenskonflikt kommt. 

3.13.1.2 FORWARD-Prozeduren 

Wie Sie mittlerweile wissen, muß eine Prozedur vor ihrem ersten 
Aufruf deklariert sein. 

Soll eine Prozedur verwendet werden, bevor ihr Prozedurrumpf 
implementiert werden kann, wenn sich also z. B. zwei Prozeduren 
gegenseitig aufrufen, muß sie mit dem Schlüsselwort FORWARD im 
voraus deklariert werden. 
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Dies ist erforderlich, da es ich bei Cluster um einen Single- 
Pass-Compiler handeltp^ 

Um eine Prozedur FORWARD zu deklarieren, schreibt man vor 
den Prozedurkopf das Schlüsselwort FORWARD. Der Prozedurkopf 
wird dann an den Anfang des Moduls gestellt und zwar vor die 
Stelle, an der die Prozedur zum ersten Male aufgerufen wird. Zu 
beachten ist, daß der eigentliche Prozedur köpf nicht entfernt wird 
und auch kein Schlüsselwort vorangestellt bekommt: 

FORWARD PROCEDURE fortest (VAR a: INTEGER); 

PROCEDURE fortestCVAR a: INTEGER); 

3.13.2 Funktionsprozeduren 

Bisher können wir Prozeduren zwar Parameter übergeben, und 
mittels VAR-Parametern auch Ergebnisse zurückgeben, jedoch ist 
es nicht möglich ein solches Ergebnis direkt in mathematischen 
Ausdrücken zu verwenden oder sie direkt an eine andere Prozedur 
zu übergeben. Man mußte immer eine Variable übergeben, und 
danach dann diese Variable verwenden, auch wenn man den Wert 
nach der einmaligen Verwendung nicht mehr gebraucht wurde. 

Dieses Problem lösen Eunktionsprozeduren. Das sind Prozedu¬ 
ren, die direkt ein Ergebnis zurückgeben können, und daher direkt 
an Stelle einer Variablen oder Konstanten des Rückgabetyps ver¬ 
wendet werden können. Im Prinzip waren alle zuvor beschriebenen 
Standardfunktionen wie „SIN“ oder „COS“ Eunktionsprozeduren. 

Welchen Typ eine Eunktion zurückgibt, muß bei deren Deüni- 
tion fest gelegt werden, indem man hinter der Parameterliste statt 

^^Single-Pass= Der Compiler geht nur einmal über der Programmtext, im 
Gegensatz zu Multi-Pass-Compilern 
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des einen Doppelpunkt gefolgt von dem gewünschten Typ und 
einem abschließenden Semikolon schreibt. 

Innerhalb der Prozedur wird der Wert, den man als Ergebnis 
zurückgeben will, an das aufrufende Programm mittels RETURN 
zurückgegeben. 

Als einfaches Beispiel soll ein kleines Programm mit der Funk¬ 
tionsprozedur Quadratwurzel zur Wurzelberechnung dienen. 

Beispiel: 


MODULE Quadratwurzel_berechnen; 

FROM InOut IMPORT ReadReal, WriteLn, WriteString, 

WriteReal; 

VAR i : REAL; 

PROCEDURE Quadratwurzel(a:REAL):REAL; 

(* Der Ergebnistyp muß 
in einer Funktions¬ 
prozedur separat 
ausgewiesen werden *) 

BEGIN 

RETURN SQRT(a) 

I Der Funktionswert wird zurückgegeben 
END Quadratwurzel; 

BEGIN 

WriteStringC'Bitte geben Sie eine positive 
Zahl ein: "); 

ReadReal(i); 

WriteLn; 

WriteReal(Quadratwurzel(i),10,3); 

(* Der Funktionsname *) 

END Quadratwurzel.berechnen. 

(* beinhaltet den Funktionswert *) 


Ein „RETURN” ohne Rückgabewert innerhalb von Funktionsproze¬ 
duren ist nicht möglich. Wird jedoch „RETURN“ innerhalb von nor¬ 
malen Prozeduren verwendet, so wird die Prozedur auf der Stelle 
verlassen. 
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Hat eine Funktion nur einen Rückgabetyp, jedoch keine Para¬ 
meter, muß man sie folgender Maßen definieren: 

PROCEDURE TestO :B00LEAN; 

Beim Aufruf muß man dann entsprechend schreiben 
IF TestO THEN 


Ohne die folgenden Klammern würde der Compiler im letzten Bei¬ 
spiel den Term TestO nicht als BOOLEAN, sondern als Proze¬ 
durtyp (s. u.) interpretieren und einen Fehler melden, da eine 
IF-Abfrage eine boolsche Bedingung erwartet. 

Funktionen sollte nach Möglichkeit keine Nebeneffekte haben, 
d. h. sie sollten nur einen Wert zurückliefern, und keine anderen 
Variablen verändern. Eine Ausnahme machen hier Prozeduren, 
deren Rückgabewert etwas darüber aussagt, ob die Prozedur er¬ 
folgreich ausgeführt werden konnte. Jedoch sollte man für diesen 
Zweck keine Funktionen verwenden, sondern Fehler durch Excep- 
tions (s .u.) anzeigen. 

Bei manchen Funktion kann es sein, daß der Rückgabewert 
nur ein Nebenprodukt ist, und man ihn gar nicht immer benötigt. 
Statt ihn nun einer Dummy variablerj^ zuzuweisen, ist es sinnvol¬ 
ler, explizit anzugeben, daß man darauf verzichten will, dies kann 
mit FORGET geschehen. Besonders bei einigen Betriebssystemrou¬ 
tinen kann dies sinnvoll sein. 

FORGET TestO 


^^Eine Variable, deren Inhalt niemals verwendet wird, praktisch ein „Pla¬ 
cebo“ für den Compiler 
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3.14 Felder und Mengen 

3.14.1 Die Menge 

Eine Menge kann beliebige Elemente aus einer Grundmenge en¬ 
thalten oder leer sein (leere Menge). Jedes Element darf höchstens 
einmal, nicht jedoch doppelt oder noch häuüger Vorkommen. Ent¬ 
hält eine Menge, wie dies meistens der Eall ist, nicht alle Ele¬ 
mente, die in der Grundmenge vorhanden sind, so nennt man sie 
Teilmenge der Grundmenge. 

In Cluster ist der Typ einer Menge die Grundmenge. Diese 
muß ein zählbarer Typ mit maximal 32 Elementen, also ein Unter¬ 
bereichs- oder Aufzählungstyp sein. 

Beispiel: 


TYPE 

Monate = (Januar, Februar, Maerz, April, Mai, 

Juni, Juli, August, September, Oktober, 
November, Dezember); 

MonSet = SET OF Monate; 


Eine Konstante dieses Typs wird durch Aufzählen der enthaltenen 
Elemente gebildet: 

Beispiel: 

CONST SommerMonate = MonSet:{Juli,August,September}; 


Um zu prüfen, ob ein bestimmtes Element in einer Menge vorhan¬ 
den ist, kann man den Operator IN benutzen: 


VAR Mons : MonSet; 
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IF Juni IN Mons THEN ... END ; 


Ein einzelnes Element kann mit INCL bzw. EXCL in eine Menge 
eingefügt bzw. aus einer Menge entfernt werden. 

INCL(Mons,Jnni); Ifügt in die Menge "Mons" den Juni ein 

EXCL(Mons,Januar); |entfernt den Januar aus der Menge "Mons" 

Außerdem sind folgende Mengenoperationen möglich: 


Vereinigungsmenge 

+” 

Schnittmenge 

>{<55 

V 

Mengendifferenz 

55 

55 

symmetrische Differenz 

/” 

11! 


Möchte man die Elemente einer Menge einer anderen hinzufügen, 
oder genau diese aus einer anderen Menge entfernen, kann man 


die Standardprozeduren UNI/SEC 
UNI(Mons,{Juni,August}); 

SEC(Mons,{Januar,Mai,Dezember}) 


verwenden. 

I fügt in die Menge "Mons" die 
I Menge {Juni»August} ein. 

;I entfernt den Januar, den Mai 
I un den Dezember aus der 
I Menge "Mons" 


Ein etwas größeres Beispiel sollte den Sachverhalt klarer darstellen: 
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MODULE bll; 

FROM InOut IMPORT WriteString, WriteLn; 

TYPE 

Oktal= [0 . . 7] ; 

OktSet = SET OF Oktal; 

VAR 

tief, hoch: OktSet; 

BEGIN 

tief := OktSet:{l,2}; 

IF 1 IN tief THEN 

WriteStringC'l ist enthalten") 

END; 

WriteLn; 

INCLCtief,4); 

IF 4 IN tief THEN 

WriteStringC"4 ist enthalten") 

END; 

WriteLn; 

EXCL(hoch,2); 

IF (2 NOT IN hoch) THEN 

WriteStringC"2 ist nicht in hoch enthalten") 
END 

END bll. 


Eigentlich sind INCL nnd EXCL Spezialfälle von + und Beispielsweise 
bedeutet 

INCL(hoch,1); 

EXCL(hoch,4); 

das gleiche wie 

hoch := hoch + {1}; 
hoch := hoch - {4}; 


Weitere Beispiele: 
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Gegeben sind die Mengen: 

[ A = {a, b, c, d} ] 

[ B = {d, e, f, g} ] 

Dabei bedeutet: 

[ A + B = {a, b, c, d, e, f, g} ] [ A * B = {d} ] [ A - B = {a, b, c} ] 
[ A / B = {a, b, c, e, f, g} ] 

Da doppelte Elemente in einer Menge nicht erlaubt sind, wird d im ersten 
Beipiel nicht doppelt eingefügt. 
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3.14.2 Das Array 

In den meisten Programmiersprachen existiert die Möglichkeit, Variablen 
gleichen Typs in einer Variablen znsammenznfassen, die man sich als ein- 
oder mehrdimensionale Tabelle vorstellen kann. Man spricht hier von 
Arrays, Vektoren oder Feldern. Mittels eines Index können die einzelnen 
Elemente eines Arrays angesprochen werden. 

Allgemein wird ein Array so fest gelegt: 


TYPE <Bezeichner> = ARRAY <TypDeklaration> OF 

<TypDeklaration>; 


Beispiel: 

TYPE IntArray = ARRAY [1..10] OF INTEGER; 


Hiermit wird eine eindimensionale Tabelle definiert, welche 10 INTEGER- 
Zahlen anfnehmen kann (10 Zeilen x 1 Spalte = 10 Elemente). Die 
„Zellen” sind von 1 bis 10 durchnnmeriert. 

Nnn kann eine Variable dieses Typs deklariert werden: 

VAR int : IntArray; 

Die einzelnen Elemente dieser Variablen sind über die Indizes 1 bis 10 
ansprechbar. Z. B. ließe sich dem ersten Eeld des Arrays der Wert 100 
wie folgt znordnen: 

int[1]:=100; 


Auch Operationen wie die folgenden sind möglich: 
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int [1] : =int [2] ; 

int [3] : =int [1] +int [7] ; 

int [4] : =int [a+1] *int [int [8] ] ; 

Wie man am letzten Beispiel sieht, kann der Wert eines Feldes als Index 
für ein anderes Feld verwendet werden. 

Probieren Sie diese Dinge auch selber aus und spielen Sie ein wenig 
herum. Aus den eigenen Fehlern lernt man bekanntlich am meisten. 

Man kann auch Arrays von Arrays bilden, also zwei- oder mehrdi¬ 
mensionale Tabellen erstellen. Für ein zweidimensionales Array könnte 
das so aussehen: 

TYPE 

Matrix = ARRAY [1..10] OF ARRAY [1..10] OF INTEGER; 

VAR mat : Matrix; 

Dieses Array besteht aus 10 Zeilen je 10 Spalten, also 100 indizierbaren 
Feldern. Vereinfacht kann man auch folgende Schreibweise nutzen: 

TYPE 

Matrix = ARRAY [1..10], [1••10] OF INTEGER; 

VAR mat : Matrix; 

Zugegriffen werden kann auf die Elemente auf zwei verschiedene Arten, 
die die gleiche Bedeutung haben: 

Mat [2,7] ist gleichbedeutend mit Mat [2] [7]. 

In Cluster darf man beliebig dimensionale Arrays deklarieren. Ein vier¬ 
dimensionales Eeld könnte so aussehen: 

TYPE 

Matrix = ARRAY [1..10], [1..5], [1..7], [1..7] OF INTEGER; 

VAR mat : Matrix; 
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Um ein Array zu verarbeiten, wird meistens die FOR-Struktur gebraucht. 
Im folgenden Beispiel wird ein Array mit Nullen belegt: 


VÄR feld : ARRAY [0..9] OF INTEGER; 
i: INTEGER; 

FÖR i:=0 TO 9 DO 
feldfi]:=0 
END; 


Man kann zwei Arrays einander zuweisen, wenn sie den gleichen Typ ha¬ 
ben, nicht jedoch, wenn sie nur aus den gleichen Typen zusammengesetzt 
sind. Folgendes Beispiel verdeutlicht dies: 

TYPE Field = ARRAY [0..10] OF INTEGER; 

VAR fl,f2 : Field; 

f3: ARRAY [0..10] OF INTEGER; 
f4: Field; 


Zulässige Zuweisungen wären hier: 


fl:=f2; 
f3:=f3; 
fl:=f4; 
f3[4] :=fl[5] ; 


Fehlerhafte und damit falsche Zuweisungen wären: 


fl:=f3; 
f3:=f4; 
fl [4] :=f2; 
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Man kann übrigens die Grenzen einer Arrayvariablen auch dann ermit¬ 
teln, wenn die Typdeklaration unbekannt ist. Programme können damit 
unabhängiger gestaltet werden, d. h., daß sich alle Programmroutinen 
automatisch anpassen, wenn die Typdeklaration modifiziert wird. Die 
Grenzen eines Array sind in Form von Attributen verfügbar und können 


mit den nachgestellten Attributnamen ermittelt werden 


field’MIN 
field’MAX 
field’RANGE 


liefert den kleinsten Index des Arrays 
liefert den größten Index des Arrays 
liefert die Anzahl der Elemente im Array 


Beispiel: 

Löschen eines Arrays „Feld”, d. h. Auffüllen desselben mit Nullen: 


FÜR i:=Feld’MIN TO Feld’MAX DO 
Feldfi]:=0 
END; 


Man kann auch einen Arraytypen festlegen, dessen Größe noch nicht 
feststeht. In diesem Fall spricht man von einem „offenen Array”. Bei 
der Variablendeklaration ist dies allerdings nicht möglich. Hier muß 
bei der Erzeugung eine feste Länge angegeben werden. Es ist jedoch 
möglich, den offenen Typen als Ubergabeparametertypen zu verwenden. 
An diesen lassen sich dann alle Arrays fester Länge zuweisen, die über 
diesen offenen Typen definiert worden sind. Innerhalb der Prozedur läßt 
sich dann mittels der oben beschriebenen Attribute feststellen, wieviele 
Elemente das übergebene Array wirklich hat. 

Hochkomma „ ’ ” erreicht man durch Betätigen der Tastenkombina¬ 
tion (Alt ) -(ä) 
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Beispiel: 


TYPE Vector = ARRAY OF REAL; |offenes Array 

VAR vec3: Vector(3); 

I bei der Variablendeklaration muß 
veclO : Vector(lO); 

I eine feste Länge angegeben werden 


Der kleinste Index eines offenen Arrays ist Nnll, kann also niemals ne¬ 
gativ werden. 


Wichtig im Znsammenhang mit Fnnktionsprozeduren ist, daß diese 
komplexe Rückgabetypen haben können, n. a. auch Arrays. Diese wer¬ 
den dann mit RESULT zurückgegeben. Bei RESULT handelt es sich um 
eine Pseudovariable, die den Typ des Rückgabewertes hat und wie eine 
normale Variable verwendet werden kann: 


TYPE 

Vector3 = ARRAY [1..3] OF REAL; 

PROCEDURE VAddCVAR a,b: Vector3): Vector3; 
VAR 

i: INTEGER; 

BEGIN 

FÜR i := 1 TO 3 DO 

RESULT [i] := a[i] + b[i] 

END 

END VAdd; 


Hierbei ist es wichtig zu wissen, daß die Funktionsprozedur erst verlassen 
wird, wenn das Ende der Prozedur erreicht ist, oder ein Return ohne 
folgenden Wert auftritt. 
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3.14.3 LIST OF 

Sie haben die Möglichkeit eine variable Anzahl von Parametern an Pro- 
zednren zu übergeben. Voraussetzung dafür ist, daß die Prozedur als 
letzten Parameter einen vom Typ „LIST OF Type“ hat, s. u. . 

Beim Aufruf kann man dann für diesen Parameter beliebig viele Ar¬ 
gumente diesen Typs übergeben. 

In der Prozedur wird ein solcher Parameter wie ein offenes Arrajj^ 
behandelt. Mit ’ RANGEp^ erhält man die Anzahl der übergebenen Para¬ 
meter. Man kann auch einfach überhaupt nichts an dieser Stelle übergeben. 

Das nachfolgende Beispiel sollte den Sachverhalt deutlicher machen: 


MODULE ListOfTest; 

FROM InOutlMPORT All; 

FROM ConversionsIMPORT IntToString; 

PROCEDURE WriteLineCREF str : LIST OF STRING); 

VAR 

i : INTEGER; 

BEGIN 

FOR i:=0 TO str’MAX DO 
WriteStringCstr[i]); 

END 

END WriteLine; 

BEGIN 

WriteLineC'Dies"," ist eine Zahl ", 

IntToString(12)," als Test"); 

WriteLn; 

END ListOfTest. 


Werden überhaupt keine Parameter übergeben, ist str’MAX = -1, das 
heißt, die Schleife wird nie durchlaufen, str’RANGE ist in diesem Fall 
Null. 


^®Mehr zu offenen Arrays erfahren Sie im Kapitel für Fortgeschrittene Pro¬ 
grammierer. Im Moment reicht es zu wissen, daß man darauf wie auf ein 


normales Array zugreifen kann. 
^®Über RANGE mehr auf Seite 
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3.14.4 Der Record 

Die zweite Struktur, mit welcher mehrere verschiedene Datentypen zu 
einem neuen zusammengefaßt werden können, ist der Record. Im Un¬ 
terschied zum Array müssen die hier gebündelten Typen jedoch nicht 
unbedingt vom selben Typ sein. Außerdem erfolgt hier der Zugriff nicht 
über einen Index, sondern über einen zusätzlichen Bezeichner. 


TYPE <Bezeichner> = RECORD 




<Bezeichner> 

{. 



<Bezeichner> 

}: 

<TypDeklaration> 

{; 

<Bezeichner> 

{. 



<Bezeichner> 

}: 

<TypDeklaration> 

} 

END; 





Für eine Adressenkartei könnten z. B. folgende Personendaten zu einem 
Record zusammengefaßt werden: 


TYPE Adresse = RECORD 

Name, 

Vorname : STRING(32); 
Telefon : STRING(10); 
Alter: INTEGER; 

PLZ: STRING(5); 

END; 

VAR adr : Adresse; 


Um hier auf ein bestimmtes Element zuzugreifen, muß man es - wie bei 
einem unqualifizierten Import; erinnern Sie sich? - mit einem zusätzlichen 
Punkt qualifizieren: 


adr.Name:="Richter"; 
adr.Vorname:="Tom"; 
adr.Telefon:="095165873"; 
usw. 




98 


KAPITEL 3. EINFÜHRUNG IN CLUSTER 


Man kann zwei Records desselben Typs einander zuweisen. Das erlaubt 
ein einfacheres Arbeiten, da man nicht, wie bei anderen Programmiers¬ 
prachen, jedes Element einzeln dem anderen zuweisen muß. 

Wegen des geschlossenen Typkonzepts in Cluster können Records 
auch in Arrays gesammelt werden oder in anderen Records auftauchen. 
Somit eignen sich Records in idealer Weise als Datensammler, die ein 
Objekt genau beschreiben. 

Beim Amiga finden diese objektbeschreibenden Records einen großen 
Anwendungsbereich. So wird zum Beispiel jedes Fenster durch einen 
eigenen Record des Typs „Window” beschrieben. Mehr dazu an einer 
anderen Stelle in diesem Handbuch. 

Wollen Sie einen Record von einer Funktionsprozedur zurückgeben 
lassen, müssen Sie wie bei Arrays RESULT verwenden. 

Lassen Sie uns die Adressenkartei noch einmal betrachten. Wol¬ 
len Sie eine Adressendatei programmieren, in der Sie die Daten Ihrer 
Freunde und Bekannten ablegen wollen, läge doch nichts näher, als ein 
Array von Records zu verwenden: 

VAR AdressKartei : ARRAY [1..100] OF Adresse; 

(* Platz für 100 Adressen *) 


Es wäre jedoch günstiger, wenn Sie wissen würden, wieviele Elemente 
wirklich im Array enthalten sind. Nachstehende Zeilen berücksichtigen 
dies: 

VAR AdressKartei : RECORD 

NumEintrag : INTEGER; 

Daten: ARRAY [1..100] OF Adresse; 
END; 
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Um einen weiteren Eintrag („NeuePerson”) anznhängen, sind folgende 
Zeilen notwendig: 

INC(AdressKartei.NumEintrag); 

(* Zähler um eins erhöhen *) 

AdressKartei.Daten[AdressKartei.NumEintrag]:=NeuePerson; 

(* Neuen Eintrag zuweisen *) 

Soll eine bestimmte Person nach ihrem Namen („SuchName”) gesucht 
werden, benötigt man die Funktion „Equal” aus dem Modul „Strings”. 

Sie liefert TRUE, wenn zwei Zeichenketten gleich sind. 

i:=l; 

WHILE (i<=AdressKartei.NumEintrag) | Letztes Element erreicht? 
AND_WH1LE NOT Equal(AdressKartei.Daten[i].Name,SuchName) DO 
I Beide Zeichenketten gleich? 

INC(i); 

ELSE 

WriteStringC"Gefunden");WriteLn; 

END 

ELSE 

WriteStringC"Ende des Feldes erreicht");WriteLn; 

END; 


Bitte nehmen Sie die hier aufgeführten Beispiele als Anregung für Ihre 
eigenen Programme, schreiben Sie sie ab, verändern und erweitern Sie 


sie. 
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3.14.5 STRING 


Bei Strings handelt es sich in Cluster um einen besonderen Datentyp. 

Grundmenge: Beliebige Zeichenkettemp^ die sich aus der Grundmenge 
der für den Typ CHAR zulässigen Zeichen zusammensetzen. 

Operatoren: Zusammenfügen von Zeichenketten (Konkatenation), 

ist nur für Stringkonstanten definiert. 


Beschreibung: Einer Variablen vom Typ STRING kann eine Zeichen¬ 
kette zugewiesen werden, deren maximale Länge in der Varia¬ 
blendeklaration angegeben werden muß. Es ist empfehlenswert, 
diese Länge etwas größer als nötig zu wählen. C-Programmierer 
sollte nun ein Licht aufgehen, warum. Allen anderen sei hier 
nur kurz erwähnt, daß unter bestimmten Umständen ein Zeichen 
mehr als nötig verwendet wird. Außerdem läßt sich ein großzügig 
bemessener String, falls erforderlich, leicht mit zusätzlichen Zei- 




chen „bestücken 


Allerdings sollte man auch hierbei an den 
verfügbaren Speicherplatz denken und die Dimensionierung vernünftig 
vornehmen. 


Es gibt mehrere Möglichkeiten, Informationen über einen String heraus¬ 
zubekommen: 


Attribut 

Beschreibung 

RANGE 

Anzahl der Elemente eines Arrays 

MIN 

Kleinstes Element eines einfachen Typs oder 
kleinster Index eines Arrays 

MAX 

Größtes Element eines einfachen Typs oder 
gröster Index eines Arrays 


^^einfach gesagt, eine Aneinanderreihung von beliebigen Zeichen 
^^Noch ein Wort an die C-Programmierer: Cluster verwaltet die Strings 
in einer Art struct (hier RECORD). Hierbei wird die Länge des Strings ex¬ 
plizit in einem Datenfeld eingetragen. Außerdem wird der String zusätzlich 
nullterminiert, um das Arbeiten mit Betriebssystemroutinen zu erleichtern 
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Weitere Attribute existieren, welche auch im Zusammenhang mit ande¬ 
ren Objekten Verwendung finden können: 


Attribut 

Beschreibung 

SIZE 

Größe eines Objektes in Bytes 

PTR 

Zeiger auf das Objekt (Erklärung an einer an¬ 
deren Stelle dieses Handbuchs 

ADR 

Adresse des Objektes 


Nachfolgendes Beispiel sollte den Einsatz dieser Attribute deutlich ma¬ 
chen: 


TYPE 

Array = ARRAY [7..22] OF INTEGER; 


VAR 

a: Array; 

Dies bedeutet dami^ 


a’MIN = Array’MIN = 7 
a’MAX = Array’MAX = 22 
a’RANGE = Array’RANGE =16 


Zur Bearbeitung von STRING-Variablen stellt das Modul „Strings“ 
zahlreiche Operationen zur Verfügung, mit denen Zeichenketten verbun¬ 
den, zertrennt oder Teile von ihnen ausgeschnitten werden können (siehe 
Kapitel Beschreibung der Standardmodule). 

Auf die einzelnen Elemente eines Strings kann auf eine bestimmte Weise 
zugegriffen werden. Angenommen die Variable Str ist mit Str: STRING (32) 
als String mit 32 Elementen definiert. Dies entspricht dann etwa: 

^®Das Hochkomma „ ’ ” erreicht man durch Betätigen der Tastenkombina¬ 
tion (Alt ) -(ä) 
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Str : RECORD 

len : INTEGER; 
data : ARRAY [0..31] OF CHAR 
END; 


Nun kann im Programm die Länge des Strings mit Str. len und ein bes¬ 
timmtes Element des Strings mit Str.data erfahren werden. Achtung, 
solange man einem String nur Konstanten zuweist, oder die Funktionen 
aus Str und Strings verwendet, ist sichergestellt, daß str. len immer 
richtig gesetzt ist, und daß der String ein Nullbyte angehängt hat. Wenn 
Sie selbst auf das Datenfeld eines Strings zugreifen, sind Sie dazu ver- 
plichtet, danach len entsprechend Ihrer Änderung zu setzen und ein 
Nullbyte hinten anzufügen. 

Das schon mehrfach erwähnte Nullbyte am Stringende dient dazu, 
Clusterstrings einfacher an Betriebssystemroutinen übergeben zu können, 
da das Betriebssystem keine Strings mit einem Längeneintrag kennt, son¬ 
dern nur solche, die mit einem Nullbyte (&0) terminiert sind. Außerdem 
gibt es Ausnahmen, bei denen die Verwendung des Nullbytes anstatt 
der Länge Geschwindigkeitsvorteile bietet. Z. B. wenn man einen String 
zeichenweise durchgeht, ist es unnötig auch noch die augenblickliche Po¬ 
sition mit der Länge zu vergleichen, wenn man sowieso auf das Nullbyte 
stoßen wird. Umgekehrt ist es sinnvoll, wenn man z. B. einen String 
kopieren will, dies mit einer FOR-Schleife über die Länge zu machen. 

Wichtig ist im Zusammenhang mit dem Nullbyte ist, daß dieses Zei¬ 
chen bei der maximalen Stringlänge bei der Stringdefinition, sowie bei 
str’RANGE, berücksichtigt wird. In str.len dagegen ist es nicht enthal¬ 
ten. 

Nun noch ein Beispiel für die konstante Stringaddition. Sie kann be¬ 
nutzt werden, wenn man eine Stringkonstante definieren will, die länger 
als eine Zeile im Editor ist, oder wenn man nichtdruckbare Steuerzeichen 
in einen String einfügen möchte. 

CONST 

Strl = "Dies ist ein Beispiel für ein Steuerzeichen"+&10+ 
"in diesem Fall ein Zeilenvorschub". 


©1992/93 by StoneWare 



3.14. FELDER UND MENGEN 


103 


Weitere Informationen zur Stringverarbeitung finden Sie in der Beschrei¬ 
bung des Moduls Strings Kapitel 


3.14.6 Typisierte Konstanten 

Wie Sie einfache Konstanten deklarieren und verwenden konnten, wurde 


unter |3.6.1| ab Seite schon besprochen. Nachfolgend wird gezeigt, 
wie Sie konstante Arrays oder Records erzeugen können. Eine derar¬ 
tige Konstante kann an einer beliebigen Stelle im Programm auftauchen. 
Dies ist eine Eigenschaft von Cluster, welche Sie in vergleichbaren Pro¬ 
grammiersprachen wie Pascal oder Modula 2, nicht finden werden. 

Um ein konstantes Arrajj^zu deklarieren und zu initialisieren, geben 
Sie einfach 


TYPE 

Matrix = ARRAY 


[0..2], [0..2] OF REAL; 


CONST 

StdMatrix = Matrix:((5,3,2), 

( 1 , 0 , 2 ), 

(3,3,3)); 


ein. Nachfolgendes Beispiel deklariert ein konstantes Record: 


Matrix; 

INTEGER; 

INTEGER; 

REAL 


TYPE 

Wertemenge = RECORD 

richtung 
xposition 
yposition 
fractal: 

END; 

CONST 

Werte = Wertemenge:(richtung=((0,1,1), 

( 1 , 1 , 1 ), 
( 0 , 0 , 0 )), 
xposition=10, 
yposition=20, 
fractal=22.5); 


I Siehe oben 


40 


Feld 
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Läßt man bei der Definition eines konstanten Records ein Element aus, 
wird dieses mit „0“ initialisiert. Es besteht auch die Möglichkeit, die Ele¬ 
mentbezeichner wegzulassen, und die einzelnen Werte durch Kommata 
getrennt anzugeben. Allerdings darf man dann keine Elemente weglas¬ 
sen. Da diese Schreibweise wesentlich weniger aussagekräftig ist als die 
mit Bezeichnern, sollte man sie nur in Ausnahmefällen, z. B. bei großen 
Mengen solcher Records verwenden. 

Mit derartigen Konstanten kann man natürlich auch Variablen und Pa¬ 
rameter vor definieren: 

VAR 

V : Matrix:=Matrix:((1,0,1)» 

( 0 , 1 , 0 ), 

( 1 , 0 , 1 )); 

Um das zweimalige Schreiben des Typs zu vermeiden, existiert für typi¬ 
sierte Konstanten auch folgende Schreibweise: 

VAR 

V :=Matrix:((1,0,1), 

( 0 , 1 , 0 ), 

( 1 , 0 , 1 )); 
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Übungen 4: 

1. Worin unterscheiden sich Unterbereichs- von Aufzählungstypen? 

2. Was ist der Unterschied zwischen einer Menge und einer Aufzählung? 

3. Was ist bei folgendem Codefragment falsch? 

TYPE 

T = [1..10]; 

VAR 

X: INTEGER; 

Y: T; 

BEGIN 
X := 11; 

Y := X; 


4. Bestimmen Sie mit den angegebenen Mengen 

A = {a, b, c, d} 

B = {d, e, f, g} 

die Ergebnisse von A + B, A * B, A - B, A / B. 

5. Ist eine PROCEDURE ein Programm? 

6. Welche Variablen im nachfolgenden Programm sind bezüglich der 
Prozedur A global und welche lokal? 

MODULE T; 

VAR 

B,C: REAL; 

PROCEDURE A(X:REAL); 

VAR 

ZAEHLER: INTEGER; 

BEGIN 


END A; 
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BEGIN 
END T. 


7. Erklären Sie ein dreidimensionales Integerfeld Willi mit den Di¬ 
mensionen 10, 100 nnd 9. Setzen Sie den Anfangsindex für alle 
Dimensionen anf 0. 

8. Was ist am folgenden Codefragment falsch? 

VAR 

A: ARRAY [1..10] OF CHAR; 

B: ARRAY [0..9] OF CHAR; 

BEGIN 


A := B; 

9. Wieviele Byte Speicher belegen die folgenden Felder? Nehmen Sie 
an, daß ein CH AR-Wert ein Byte lang ist. 

(a) ARRAY [0. . 100] , [0 . . 1] OF CHAR; 

(b) ARRAY [0..10], [0..1], [1..10] OF CHAR; 

(c) ARRAY [0. .1] OF CHAR; 

10. Welcher Unterschied besteht zwischen einem ARRAY nnd einem 
RECORD? 

11. Definieren Sie einen Triebwerke, die Anzahl der Passagiere, die 
Reichweite nnd den Namen. 

12. Schreiben Sie znr vorigen Ubnng eine Prozednr, die die Inhalte 
des Records anf dem Bildschirm ausgibt. 
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3.15 Das Modul / Das Modulkonzept 

Cluster erlaubt, ähnlich wie Modula 2, ein Programm in mehrere Mo- 
dule zu unterteilen. Dies ist sinnvoll, da bei großen Projekten ein ein¬ 
zelnes Modul doch bald unübersichtlich wird. Was hegt also näher, als 
alle von ihrer Funktion zusammengehörigen Prozeduren in ein Modul zu 
kapseln. Dies bringt neben der größeren Übersichtlichkeit den Vorteil der 
Wiederverwendbarkeit mit sich, da von jetzt an auch bei anderen Pro¬ 
jekten einfach auf die schon bestehenden Prozeduren zugegriffen werden 
kann. Mit der Zeit kann man sich so eine eigene Bibliothek von Modulen 
zusammenstellen, aus der man sich nur noch bedienen, sprich importie¬ 
ren muß. Zuletzt läßt sich bei der Arbeit im Team durch Module eine 
sehr gute Aufgabentrennung erreichen, wobei die SchnittstellerJ^ über 
die die einzelnen Module Zusammenarbeiten, genau definiert sind. 

3.15.1 Das einfache Modul (Hauptprogrammodul) 

Dieses Modul wird durch das Schlüsselwort „MODULE” eingeleitet. Es 
enthält immer das Hauptprogramm. Aus diesem Modul kann nichts 
importiert werden. Beim Abspeichern muß dem Text des Hauptmoduls 
ein „ .mod“ an den Dateinamen gehängt werden. 

3.15.2 Das Bibliotheksmodul 

Was eine Bibliothek ist, dürfte jedem klar sein. Die hier gemeinte jedoch 
beherbergt nicht Bücher, sondern Standardmodule, die feste Funktionen 
beinhalten, die von jedem Programm verwendet werden können - eben 
die Bibliotheksmodule. 

In Kapitel finden Sie alle Standardmodule aufgelistet, die zusam¬ 
men mit Cluster ins Haus kommen. Der Zugriff erfolgt über die IMPORT- 
Zeilen im Programm. Selbstverständlich können auch Sie Ihre eigenen 
Prozeduren in Bibliotheksmodulen zusammenfassen und diese dann in 
Ihren Programmen verwenden. 

Damit ist gemeint, welche Prozeduren importiert werden können, und 
welche Parameter diese haben. 
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3.15.3 Das Definitionsmodul 

Im Definitionsmodul wird die Schnittstelle zwischen einem Bibliotheks- 
modul und dem übergeordneten, aufrufenden Modul definiert. Varia¬ 
blen, Typen und Konstanten werden hier genauso wie in anderen Mo¬ 
dulen deklariert, lediglich bei Prozeduren erscheint nur der zugehörige 
Prozedurkopf. 

Beispiel Standardmodul InOut: 

DEFINITION MODULE InOut; 

PROCEDURE Write(c:CHAR); 

PROCEDURE WriteStringCVAR s:STRING); 

PROCEDURE WriteLn; 

END InOut. 


Die im Definitionsmodul enthaltenen Objekte können von anderen Mo¬ 
dulen importiert werden. Dazu gehören auch alle Objekte, die in diesem 
Definitionsmodul importiert werden. Beim Abspeichern des Textes eines 
Definitionsmoduls muß ein „ .def“ an Stelle des „ .mod“ angehängt wer¬ 
den. 


3.15.4 Das Implementationsmodul 

Im Implementationsmodul findet sich das zu einem Definitionsmodul 


gehörige Programm. Alle Prozeduren werden hier implementiert^^ Da 


ein Implementationsmodul ebenfalls einen BEGIN- und/oder CLOSE-Teil 
haben kann, können auch Initialisierungen vorgenommen werden, bzw. 
in diesem Modul allozierte (belegte) Resourcen (Speicher, Fenster, etc.) 
wieder freigegeben werden. Auf Variablen, Konstanten, Exceptions und 
Typen, die im Definitionsmodul definiert worden sind, kann innerhalb 
des Implementationsmodules direkt zugegriffen werden. Um die Pro¬ 
zeduren, die im Definitionsmodul definiert wurden, zu implementieren. 


42 


Die eigentliche Programmierung der Prozeduren geschieht hier. 
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schreibt man die komplette Prozedur einschließlich des Prozedurkopfes 
innerhalb des Implementationsmoduls. Dabei ist darauf zu achten, daß 
der Prozedur köpf identisch zu dem im Definitionsmodul ist. Implemen- 
tationsmodule müssen beim Abspeichern wie Hauptmodule ein „. mod“ 
an den Dateinamen gehängt bekommen. 

Beispiel: 


IMPLEMENTATION MODULE InOut; 

PROCEDURE Write(c:CHAR); 

BEGIN 

(Betriebssystemaufruf) 

END Write; 

PROCEDURE WriteStringCVAR s:STRING); 

VAR i:INTEGER; 

BEGIN 

FOR i:=0 TO s.Ien-1 DO 
Write (s . data [i] ) 

END; 

END WriteString; 

PROCEDURE WriteLn; 

BEGIN 

Write(&10); 

END WriteLn; 

BEGIN 

... (* Consolenfenster öffnen *) 

CLOSE 

... (* Consolenfenster schließen *) 

END InOut. 
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3.15.5 Das Modulkonzept 


Die importierten Module werden beim Linkenzu einem lauffähigen 
Programm verbunden. Dabei werden die BEGIN- und CLOSE-Teile so 
geschachtelt, daß der BEGIN-Teil eines importierten Moduls vor, der 
GLOSE-Teil nach dem des importierenden Moduls aufgerufen wird. Da¬ 
mit wird sichergestellt, daß alle Strukturen vor ihrem Zugriff initialisiert 
werden. Andererseits wird am Programmende zuerst der GLOSE-Teil des 
Haupmoduls, und als letzter der des Moduls, das von allen anderen Mo¬ 
dulen direkt oder indirekt über ein anderes Modul importiert wird, aus¬ 
geführt. Somit ist sichergestellt, daß keine Resource aus einem Modul 
freigegeben wird, solange ein anderes Modul sie noch benötigt. 


Der Definitionsteil eines Moduls muß immer vor dem Implemen¬ 
tationsteil compiliert werden, da dieses Informationen aus dem ersten 
benötigt. 


Um ein Programm compilieren zu können, muß bei allen importier¬ 
ten Modulen der Definitionsteil bereits übersetzt sein. Der Implemen¬ 
tationsteil hingegen muß nicht unbedingt in übersetzter Eorm vorhegen, 
da zum Gompilieren daraus keine Informationen benötigt werden. 

Bei der Übersetzung eines Implementationsmoduls muß man kein 
anderes Modul neu compilieren, das Programm muß lediglich neu ge¬ 
bunden (gelinkt) werden. Hierbei sieht man schon einen Vorteil eines 

'^^linken, Linker: Bei der Erstellung von Programmen sind nur selten alle zur 
Ausführung des Programms erforderlichen Prozeduren und Funktionsprozedu¬ 
ren auch in diesem Hauptmodul enthalten. Vielmehr werden in der Regel eine 
Anzahl von Standardprozeduren und -funktionen verwendet. Diese sind häufig 
schon übersetzt und in speziellen Dateien (Objektdateien) abgespeichert. Das 
gleiche gilt für Module, die getrennt erstellt und übersetzt wurden. Benutzt 
daher ein Programm Standardfunktionen oder Standardprozeduren, so wird 
bei der Übersetzung im Objektcode vermerkt, daß an bestimmten Stellen die 
Adressen der anderen Prozeduren eingesetzt werden müssen. Die Aufgabe des 
Linkers besteht nun darin, die Objektcodes verschiedener Programme zu ei¬ 
nem Programm zusammenzufassen und dabei die Adressen der sonstigen und 
Standardprozeduren in die einzelnen Objektcodes einzusetzen. 
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Definitionsmoduls, man kann beliebig viele Änderungen an der Imple¬ 
mentation vornehmen, ohne dabei immer auch die abhängigen Module 
compilieren zu müssen. 

Wird dagegen ein Definitionsmodul geändert, müssen auch alle Mo¬ 
dule, die darauf zurückgreifen, sowie der eigene Implementationsteil neu 
compiliert werden. Würde das nicht geschehen, käme es zu Inkonsisten¬ 
zen zwischen den Modulen. Man stelle sich nur einmal vor was passieren 
würde wenn man eine Prozedur um einen Parameter erweitert, aber alle 
Module die diese benützen noch einen Parameter zu wenig übergeben. 
Um derartige Probleme zu verhindern, erzwingt der Compiler nach einer 
Änderung im Definitionsmodul die Compilierung aller abhängigen Mo¬ 
dule. Unterläßt man dies, erhält man schon bald eine Fehlermeldung, in 
der einem ein Versionkonfiikt gemeldet wird. Handelt es sich dann nur 
um wenige Module, kann man nun das Compilieren von Hand vorneh¬ 
men. Sind es jedoch sehr viele mit vielen Abhängigkeiten, dann empfielt 
es sich, das Make zu verwenden, welches feststellt, welche Module neu 
übersetzt werden müssen, und dann alle nötigen Module in der richtigen 
Reihenfolge compiliert. 

Ein weiterer Vorteil der Verwendung eines Definitionsmoduls ist die 
übersichtliche Inhaltangabe eines Moduls, sowie einer klar definierten 
Schnittstelle zur Benutzung der darin definierten Prozeduren. Außer¬ 
dem kommt dieses Konzept mehr dem Geheimprinzip entgegen, d. h. 
der Programmierer, der ein Modul benutzt, braucht von dessen Imple¬ 
mentation nichts mehr zu sehen, er kann die Objekte einfach benutzen, 
ohne sich darum zu kümmern, wie sie funktionieren. Arbeitet man mit 
einer Gruppe an einem Projekt, tauscht man nur die Texte der Defini- 
tionsmodule und die Symbol- und Objektdateien der Module unterei¬ 
nander aus. So ist sichergestellt, daß immer nur ein Programmierer an 
der Implementation etwas verändert, die anderen aber trotzdem die Mo¬ 
dule verwenden können. Desweiteren stellt eine solche Trennung auch 
einen „Kow How“-Schutz dar, denn schließlich will man nicht immer alle 
eigenen Algorithmen preisgeben. 

Das Kapitel für fortgeschrittene Programmierer beschäftigt sich mit 
abstrakten Typen, die dazu dienen, Definitionsmodule möglichst imple¬ 
mentationsunabhängig zu machen. Dazu werden Zeigervariablen benötigt 
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Näheres schlagen Sie bitte dort nach. 

3.15.6 Importgruppen 

Cluster bietet die Möglichkeit, Importgrnppen zn verwenden, nm die 
Schreibarbeit beim Importieren von vielen Elementen eines Moduls zu 
verringern. 

Diese werden durch das Schlüsselwort GROUP eingeleitet, gefolgt von 
den Bezeichnern, die zu einer Importgruppe zusammengefaßt werden 
sollen. Schauen Sie einfach einmal in das Modul „InOut“, speziell die 
Datei „InOut.def“. Hier existiert eine „WriteGrp“: 

WriteGrp = WriteString, WriteMString, WriteEsc, 

WriteLn, WriteBuffer, Writeint, 

WriteHex, WriteReal, WriteExpReal; 

Um einige oder alle Bezeichner dieser Gruppe in Ihrem Programm ver¬ 
wenden zu können, importieren Sie einfach den Bezeichner der Gruppe. 
In diesem Beispiel ist es „WriteGrp“: 

FROM InOut IMPORT WriteGrp; 

Eine Importgruppe kann aus anderen Gruppen bestehen. Sie kann auch 
Bezeichner oder Importgruppen aus anderen Modulen enthalten. 

Außer den einzelnen Gruppen eines Moduls existiert noch eine Gruppe 
mit der Bezeichnung „All“, welche alle Bezeichner dieses Moduls enthält 
und ebenso importiert werden kann. 

Werden zwei Importgruppen mit gleichem Namen importiert, so gibt 
dies keine Namenskonflikte, solange nicht zwei gleiche Bezeichner inne¬ 
rhalb der Gruppen existieren. 
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3.16 Rekursion 

Rekursion ist das Verfahren, etwas durch sich selbst zu definieren, was 
manchmal auch Kreisdefinition genannt wird und auch im täglichen Le¬ 
ben sehr verbreitet ist. Beispielsweise ist die natürliche Sprache rekursiv, 
da in einem Wörterbuch die meisten Wörter durch andere Wörter defi¬ 
niert sind, die selbst wieder mit den ursprünglichen Wörtern beschrieben 
sind. Weiterhin gibt es optische Rekursionen: In einer Zeitung sehen wir 
eine Werbeanzeige einer Computerfirma. Eine (hübsche?) Frau (sorry 
an alle Programmiererinnen, aber es ist nun mal so) beugt sich über 
einen Computermonitor, in diesem Monitor ist das Bild einer Frau zu 
sehen, welche sich über einen Computermonitor beugt, in diesem ist das 
Bild .... 

Sind nun dann unendlich viele Frauen mit Computermonitoren (im¬ 
mer kleiner werdend) auf dem Bild? Natürlich nicht. Denn irgend¬ 
wann ist das Auflösungsvermögen des Monitors und der Druckmaschine, 
welche diese Anzeige gedruckt hat, erschöpft und es ist nur ein Punkt zu 
erkennen. 

In der Computersprache bedeutet Rekursion, daß eine Funktion oder 
Prozedur sich selbst aufruft. Man spricht in diesem Fall von einer rekur¬ 
siven Funktion bzw. Prozedur. Diese Vorgehensweise ist natürlich nur 
von Fall zu Fall sinnvoll. Nicht alle Sprachen ermöglichen Rekursionen, 
so kennen bespielweise BASIC oder FORTRAN keine Rekursion. 

Rekursionen sind sehr mächtige Programmierwerkzeuge, wenn sie 
richtig eingesetzt werden. Nachfolgend ein einfaches Beispiel zum Thema 
Rekursion, welches in die Materie einführen soll: 

PROCEDURE R(i:INTEGER):INTEGER; 

BEGIN 

IF i=0 THEN RETURN i END; 

R(i-l); 

Writeint(i,5) 

END R; 


Diese Prozedur gibt die Zahlen 1 bis i auf dem Bildschirm aus. Beim 
Aufruf von R wird der Wert von i auf 0 geprüft. Falls i gleich 0 ist. 
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springt R zurück und nichts weiter geschieht. Wenn jedoch i größer 
0 ist, wird R erneut mit i-1 aufgerufen, bis i schließlich den Wert 0 
hat. Dann beginnt sich die Kette von Aufrufen zu lösen, indem jeder 
zum vorherigen Aufruf zurückspringt, wobei dann die Zahlen auf dem 
Bildschirm ausgegeben werden. 

Der Schlüssel zu dieser rekursiven Prozedur lautet: Der zweite Au¬ 
fruf von R beendet den ersten Aufruf nicht, sondern unterbricht seine 
Ausführung nur zeitlich. Deshalb geht der Wert der lokalen Varia¬ 
blen i nicht verloren und bleibt gespeichert, bis die Ausführung fort¬ 
gesetzt wird. Das zweite R erstellt ein neues, eigenes i und die Variablen 
überschreiben ihre Werte nicht. 

Nun ein weiteres Beispiel: 

MODULE Wasjnacht.das; 

FROM InOut IMPORT Read, Write; 

PROCEDURE Zeichen; 

VAR 

ch: CHAR; 

BEGIN 

Read(ch); 

IF ch # " " THEN 
Zeichen 

END; 

Write(ch) 

END Zeichen; 

BEGIN 

Zeichen 

END Was_macht_das. 


Daß es sich hierbei um eine Rekursion handelt, kann man an dem Aufruf 
der Prozedur „Zeichen” innerhalb der Prozedur „Zeichen” sehen. Die 
Prozedur ruft sich also selbst auf. 

Angenommen, wir geben die Buchstaben „abcd” ein und danach eine 
Leerstelle. Die Eingabe eines Zeichens wird solange fortgesetzt, bis ein 
Leerzeichen eingegeben wurde, danach werden alle Zeichen rückwärts 
wieder ausgegeben. 
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Nun die Programmbeschreibung: Bei Eingabe von „a” ist „ch” kein 
Leerzeichen, also wird die Prozedur „Zeichen” erneut aufgerufen, „ch” 
ist nicht leer („b”, also erneuter Aufruf von „Zeichen”. Dies geschieht 
solange, bis ein Leerzeichen eingegeben wurde, dann ist ja „ch” = „" "” 
und die Bedingung wird wahr. Nun werden in umgekehrter Reihenfolge 
die „Write” -Anweisungen ausgeführt. 

In dieser Art ist die Rekursion natürlich nur dann möglich, wenn 
bei jedem Aufruf der Prozedur „Zeichen” eine neue Variable „ch” be¬ 
reitgestellt wird. Dies ist dadurch gewährleistet, daß „ch” eine lokale 
Variable und somit nur innerhalb der Prozedur definiert ist. Obwohl die 
Variablen gleiche Namen haben, sind sie doch unterschiedlich. 

Wälzt man die Fachliteratur, so findet man häufig zum Thema Re¬ 
kursion ein Beispielprogramm, welches sich mit der Berechnung der Fa¬ 
kultät beschäftigt. Es ist bisher offensichtlich nicht gelungen, ein ähnlich 
anschaulich und zugleich übersichtliches Beispiel ausfindig zu machen. 
Der Klassiker wird hier einfach übernommen. 

Er ist einfach zu schön! Das soll jedoch nicht darüber hinwegtäuschen, 
daß die Rekursion ein mächtiges Programmierwerkzeug ist, was anderen 
Lösungen an Geschwindigkeit meistens in nichts nachsteht, jedoch vom 
Speichervolumen der Basismaschine oft eine Menge abverlangt. 

Das folgende Beispiel ist ein komplettes Cluster-Programm zur Be¬ 
rechnung der Fakultät auf rekursivem Wege. Geben Sie es auf Ihrem 
Rechner ein, probieren Sie es aus, verbessern Sie es: 

Denkbar wäre eine einfache Abfrage am Ende, ob eine weitere Fa¬ 
kultät berechnet werden soll. Benutzen Sie dazu z. B. die REPEAT. .. 
UNTIL-Struktur. 
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MODULE Fakultaet_rekursiv; 

FROM InOut IMPORT ClearWindow, WriteString, Readint, 

Writeint, WriteLn; 

VAR n:INTEGER; 

PROCEDURE fak(n:INTEGER):INTEGER; 

I Dies ist die Funktionsprozedur 
BEGIN 

IF n=0 THEN RETURN 1 | Funktionswerte werden mit 
ELSE RETURN n*fak(n-l) | RETURN an den aufrufenden 
END I Programmteil zurückgegeben 
END fak; 

BEGIN I Hier beginnt das Hauptprogramm 
ClearWindow; 

WriteStringC'Eine natürliche Zahl eingeben: "); 
Readint(n); 

WriteLn; 

WriteString("Fakultät: "); 

Writeint(fak(n)); 

I Hier wird die Funktion aufgerufen 
END Fakultaet_rekursiv. 


Zum Abschluß uoch eiu Programm für uusere Uugeduldigeu, bzw. die 
Graphikfreuude uuter Ihueu. Probiereu Sie uuter auderem die Werte (5, 
121, 2) oder (10, 89, 1) aus. 

MODULE Spirale; 

FROM GfxScreen IMPORT OpenScreen, CloseScreen, Screen; 

FROM GfxTurtle IMPORT Start, Down, Forward, Left; 

FROM Gfxinput IMPORT WaitUser, UserAct, UserActions; 

FROM InOut IMPORT ReadFFP, WriteLn, WriteString; 

VAR 

l,w,z: FFP; 
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meinSchirm: Screen; 

Action: UserAct; 

PROCEDURE Seitedang, Winkel, Zunahme: FFP) ; 
BEGIN 

IF lang < 200.0 THEN 
Forward (lang); 

Left(winkel); 

lang := lang + Zunahme; 

Seite(lang, winkel, Zunahme) 

END 

END Seite; 

BEGIN 

Action := userMouse; 

WriteStringC'Spiralen - Demo für Rekursion"); 
WriteLn; 

WriteLn; 

WriteString("Eingabe der Anfangsseite: "); 
ReadFFP(l); 

WriteLn; 

WriteString("Eingabe der Winkeldrehung: "); 
ReadFFP(w); 

WriteLn; 

WriteString("Eingabe der Seitenzunahme: "); 
ReadFFP(z); 

OpenScreen(meinSchirm,2,TRUE,FALSE); 

Start(meinSchirm,320.0,128.0,0.0,3); 

Down; 

Seite(l,w,z); 

WaitUser(meinSchirm,Action); 

CLOSE 

CloseScreen(meinSchirm) 

END Spirale. 


In dem Programm werden einige Prozednren der Standardmodnle ver- 
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wendet, deren Beschreibnng Sie im Kapitel finden können. 

Das Programm wartet nach Ausführnng der Zeichenoperationen auf 
einen Klick mit der linken Maustaste. Weitere Erläuterungen sollen 
zu dem Programm nicht gegeben werden. Probieren Sie es aus und 
veränderen Sie es. 

Der Sinn und Einsatz von Rekursionen sollte nun erheblich klarer 
als vorher sein. 

Wichtig bei rekursiven Algorithmen ist, daß die Rekursion irgendwann 
abgebrochen wird. Sonst würde sich die Prozedur immer weiter selbst 
aufrufen, bis ihr der Speicher zur Einrichtung von neuen lokalen Varia¬ 
blen ausgeht. Dies führt zu einem Laufzeitfehler wegen „Stacküberlauf“. 
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Übungen 5: 

1. Was ist an der folgenden reknrsiven Rontine falsch? 

PROCEDURE A(I: INTEGER): INTEGER; 

BEGIN 

RETURN A(I-l); 

Writeint(I,5); 

END A; 

2. Geben Sie zwei Gründe an, warnm getrennte Gompiliernng nützlich 
ist. 

3. Erklären Sie den Unterschied zwischen einem Definitons- nnd ei¬ 
nem Implementationsmodnl. 

4. Was ist bei dem angegebenen Godefragment falsch? 

MODULE BSPl; I Das ist falsch! 

IMPORT InOut; 

BEGIN 

WriteStringCCluster la vista!"); 

WriteLn; 

END A. 
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3.17 Pointer 

Neben dem offenen Array, das wir bisher als einzige dynamische Datens¬ 
truktur, d. h. eine Datenstruktur mit variabler Größe, kennengelernt 
haben, gibt es ferner auch die sogenannten Zeiger (Pointer). Hier zeigt 
eine Zeigervariable, z. B. x, auf einen Wert, der mittels „x''“ angespro¬ 
chen wird. Der Computer reserviert also nicht einen bestimmten Spei¬ 
cherbereich für die Daten, sondern legt evtl, anfallende Daten dort ab, 
wo zuvor vom System Platz angefordert wurde. 

Weitere Informationen zu diesem Thema finden Sie im Kapitel für 
den fortgeschrittenen Programmierer. 

3.18 Methoden 

Hat man mehrere Prozeduren, die die gleiche Funktion für verschiedene 
Typen erfüllen, ist es unangenehm, jeder Prozedur einen anderen Namen 
geben zu müssen. Daher besteht die Möglichkeit, beliebig viele Metho¬ 
den mit dem gleichen Namen zu definieren, wenn Sie einen RECORD oder 
einen Zeiger auf einen RECORD als ersten Parameter erwarten. C++- 
Programmierer sollten spätestens jetzt glänzende Augen bekommen. 

Hier einige Beispiele aus dem Modul DosSupport: 

METHOD GetCVAR data: FileData; 

REF path: STRING) 

METHOD GetCVAR list: DirList; 

REF path: STRING; 

REF pattem: STRING: = ; 

type:= DirSelectType:{selectDirs,selectFiles}; 

context: ContextPtr := NIL); 

Diese Methoden werden nicht direkt importiert und aufgerufen, sondern 
sie werden qualifiziert über eine Variable des Typs des ersten Parameters 
benutzt z. B.: 
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VAR 

Dir : DirList; 

Fileinfo : FileData; 

BEGIN 

Fileinfo.Get("s:startup-sequence"); 
Dir.GetC'DHO: ") ; 


3.19 Prozedurtypen, Prozedurvariablen 

Neben den bisher beschriebenen Typen gibt es noch einen weiteren, 
nämlich den Prozednrtypen. Einer Variablen eines solchen Typs kann 
man eine Prozednr znweisen, nnd von da an diese Prozednr über die 
Variable anfrnfen. 

Wahrscheinlich werden Sie sich nnn fragen, wozn das gnt sein soll, 
man kann die Prozedur doch auch direkt anfrnfen. Damit haben Sie 
natürlich recht, aber denken Sie doch einmal an folgendes Problem: An 
mehreren Stellen in Ihrem Programm wird eine bestimmte Prozedur auf¬ 
gerufen. Nun soll abhängig von einer Benutzereingabe anstelle dieser 
Prozedur eine andere aufgerufen werden. Mit dem was Sie bisher kennen, 
würden Sie wahrscheinlich ein Bool-Flag definieren, dieses abhängig von 
der Eingabe setzen, und dann bei jedem Aufruf durch eine IE-Abfrage 
dieses Elag auswerten und die richtige Prozedur anfrnfen. 

Das heißt bei jedem Aufruf wäre ein zusätzlicher Vergleich nötig. 
Falls es mehr als nur zwei mögliche Prozeduren geben soll, wird das 
ganze dann schnell aufwendig. Viel einfacher wäre es hier doch, bei 
jedem Aufruf eine Prozedurvariable zu verwenden, und dieser nach der 
Benutzereingabe die richige Prozedur zuzuweisen. Danach wird dann 
immer diese Prozedur aufgerufen. Wichtig: Prozedurvariablen können 
nur globale Prozeduren zugewiesen werden, keine Prozedurlokalen. 

Eine anderes Anwendungsbeispiel wäre ein ARRAY von Prozedurva¬ 
riablen, so daß man abhängig von einer Zahl als Index eine bestimmte 
Prozedur anfrnfen kann. 

Der einfachste Prozedurtyp ist PROC, der im Modul System definiert 
ist. Ihm können alle Prozeduren, die keine Parameter erwarten, und 
keinen Rückgabewert haben zugewiesen werden. 
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Formale Prozedurparameter werden folgendermaßen definiert: 

TYPE 

NewProc = PROCEDURE(VAR a : INTEGER;b : CHAR); 

Proc2 = PROCEDURECr : REAL):B00LEAN; 

Dabei können als Übergabe- und Rückgabeparameter alle Typen ver¬ 
wendet werden, die auch sonst bei Prozeduren möglich sind. Einer Va¬ 
riablen vom Typ NewProc kann man alle Prozeduren zuweisen, die als 
ersten Parameter einen Varparameter vom Typen INTEGER und als zwei¬ 
ten einen Werteparameter vom Typen CHAR haben. Einer Variablen 
vom Typ Proc2 kann man alle Prozeduren zuweisen, die als ersten Pa¬ 
rameter einen Parameter vom Typen REAL haben, und einen Boolwert 
zurückgeben. Die Parameternamen haben dabei keine Bedeutung, sie 
dienen lediglich der besseren Lesbarkeit und der Dokumentation. 

Da sichergestellt ist, daß an eine Prozedurvariable nur Prozeduren 
zugewiesen werden können, die der Typdefinition entsprechen, erweitert 
sich deren Anwendungsgebiet noch einmal. Denn nun kann man davon 
ausgehen, daß der Benutzer der Prozedurvariablen beim Aufruf die rich¬ 
tigen Parameter übergeben, bzw. ihr nur richtige Prozeduren zuweisen 
wird, da sonst der Compiler einen Eehler meldet. 

Damit eignen sich Prozedurtypen auch ideal als Ubergabeparameter 
für Prozeduren. Man kann der Prozedur beim Aufruf eine Prozedur 
mitgeben, mit der diese dann arbeiten kann. Ein Beispiel ist im Modul 
DosSupport zu finden, die Prozedur WorkOnFiles. Diese bekommt eine 
Prozedur bestimmten Typs übergeben, die sie dann nacheinander mit 
alle Dateinamen eines Verzeichnises aufruft. 

Bei der Verwendung von Prozedurvariablen als Ubergabeparameter 
haben Sie in Cluster sogar die Möglichkeit, eine lokale Prozedur zu 
übergeben, dies geht bei keiner anderen Sprache. Der Vorteil hier ist 
dadurch gegeben, daß die lokale Prozedur auch auf die lokalen Varia¬ 
blen und Ubergabeparameter der ihr übergeordneten Prozedur zugreifen 
kann, was bei der Übergabe einer globalen Prozedur nicht möglich wäre. 
Hierzu als Beispiel ein Ausschnitt aus dem Modul DosSupport: 

PROCEDURE DeleteCREF name : STRING;all : BOOLEAN); 
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VAR list : DirList; 

path : STRING(120); 

PatternStr : STRING(32); 
deleteRoot : BOOLEAN:=FALSE; 
c : CHAR; 

PROCEDURE KiII2(REF path,name : STRING;data : FileData); 

BEGIN 

TRY 

DosDeleteFile(path,name); 

EXCEPT 

OF DirectoryNotEmpty THEN 

WorkOnFiles(SubDir(path,name),"", 

KiII2,TRUE, 

{selectDirs,selectFiles}jTRUE); 
DosDeleteFile(path,name); 

END; 

END 

END KiII2; 

PROCEDURE KilKREF path,name : STRING;data : FileData); 

BEGIN 

TRY 

DosDeleteFile(path,name) 

EXCEPT 

OF DirectoryNotEmpty THEN 

IF all THEN | Achtung hier ist die interessante Stelle 
WorkOnFiles(SubDir(path,name),, 

KiII2,TRUE, 

{selectDirs,selectFiles},TRUE); 
DosDeleteFile(path,name); 

END; 

END; 

END 

END Kill; 
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BEGIN 


WorkOnFiles(name,"",Kill,FALSE,{selectDirs,selectFiles},TRUE) 


END Delete; 

Im BEGIN-Teil wird der Prozedur WorkOnFiles die Prozedur Kill übergeben. 
Da die Prozedur Kill eine lokale Prozedur ist, kann Sie auf den Parame¬ 
ter all der Prozedur Delete zugreifen. Die Konstruktion TRY. . .EXCEPT 
wird nun im nächsten Kapitel erklärt. 


3.20 Ausnahmebehandlung, Exceptions 

Um anzuzeigen, ob eine Prozdur ihre Aufgabe ordnungsgemäß verrich¬ 
tet hat, hatte man in Modula 2 nur die Möglichkeit, einen Boolwert 
zurückzugeben. Dieses Verfahren geht solange gut, wie man alleine ar¬ 
beitet, und man sich selbst dazu zwingt, diesen Boolwert auch immer 
abzufragen, und ihn nicht im Vertrauen darauf, daß es schon gut gehen 
wird, einer Dummy variablen zuweist oder ein FORGET davor schreibt. 
Sonst kann es nämlich leicht passieren, daß eine Fehlermeldung verloren 
geht und dadurch großer Schaden angerichtet wird. 

Um derart versteckte Fehler von vornherein auszuschließen, sollte 
man im Falle eines Fehlers eine Exception auslösen. Bei diesem Kon¬ 
zept hat nämlich das Nichtbeachten einer möglichen Fehlermeldung ei¬ 
nen Programmabbruch mit Meldung zur Folge. 

Bevor man eine Exception benützen kann, muß man sie definieren. 
Dies kann an jeder Stell^^ des Programms geschehen. Eingeleitet wird 
diese Definition durch das Schlüsselwort EXCEPTION. Darauf folgt der 
Bezeichner, unter dem man in Zukunft auf diese Exception zugreifen 

Außer innerhalb eines BEGIN-Teils. 
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möchte und, durch einen Doppelpunkt getrennt, ein String oder eine 
Nummer. Im Falle, daß diese Exception ausgelöst und nicht behandelt 
wird, wird dieser String bzw. die Nummer als Laufzeitfehlermeldung aus¬ 
gegeben. Dabei sollte man immer Strings verwenden. Die Nummern fin¬ 
den lediglich in Verbindung mit Dos-Fehlermelungen eine Verwendeung, 
da diese als Zahlen definiert sind. 

EXCEPTION 

UngueltigerName : "Es wurde ein ungültiger Name eingegeben"; 
Fehlerl : 1; 

Die Exceptiondefinition wird durch das Auftreten eines anderen Pro¬ 
grammelements beendet, wie z. B. eine Variablen- oder Typdefinition. 
Nachdem Sie nun wissen, wie man Exceptions definiert, fragen Sie sich 
warscheinlch, was man nun damit machen kann. Eine Anwendungsmöglichkeit 
ist ASSERT. 

3.20.1 ASSERT 

Mit der Prozedur ASSERT wird eine Bedingung kontrolliert, die für das 
korrekte Weiterlaufen des Programms unbedingt erforderlich ist. So 
könnte kontrolliert werden, ob die letzte Speicheranforderung vom Be¬ 
triebssystem erfüllt worden ist, oder ob ein Fenster geöffnet wurde. 
Nachfolgendes Beispiel zeigt eine einfache Anwendung für ASSERT: 

MODULE Was_macht_das; 

FROM InOut IMPORT Read, Write; 

VAR 

x,y: INTEGER; 

EXCEPTION 

diverror : "Division durch Null nicht definiert!"; 

BEGIN 

X : = 5; 

X := X -5; 

ASSERT(x#0,diverror); 
y := 5 DIV X 
END Was_macht_das. 
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Wenn die angegebene Bedingung nicht erfüllt, also x = 0 ist, wird die 
Exception ausgelöst. In diesem speziellen Beispiel wird die Fehlermel¬ 
dung "Division durch Null nicht definiert! 'j^ausgegeben, zusam¬ 
men mit der Zeilennummer, in der die Exception auftrat. Außerdem wird 
das Programm an dieser Stelle durch einen Sprung in den CLOSE-Teil 
beendet. Die Ausgabe geschieht allerdings nur wenn Sie das Programm 
mit Run gestartet, oder die Prozedur WriteException im CLOSE-Teil 
ihres Hauptmoduls aufgerufen haben. Falls Sie sich nun fragen, daß 
es wohl kaum sinnvoll sein kann ein Programm bei jedem Fehler zu 
beenden, haben Sie natürlich Recht. Der Programmabruch ist nur die 
Folge, wenn man die Exception nicht abfängt, dies ist durch TRY.. .EXCEPT 
möglich. 


3.20.2 TRY..EXCEPT 


Unter Ausnahmesituationen versteht man Zustände beim Ablauf eines 
Programmes, die gesondert berücksichtigt werden müssen. 

Ausnahmesituationen (Exceptions) können durch Programm- bzw. 
Datenfehler, systembedingte Probleme wie Speichermangel oder durch 
benutzerdefinierte Fehlersituationen entstehen. Beispiele dafür sind: Ma¬ 
thematische Fehler (Division durch Null), Dateifehler (Ende der Datei), 
Diskettenfehler (Disk schreibgeschützt, Diskette voll, Schreib/Lesefehler, 

...). All dies sind Beispiele für Situationen, unter bei denen eine Excep¬ 
tion ausgelöst werden kann, um auf den Fehler aufmerksam zu machen. 

Ist kein Exception-Handleiinstalliert, kann das Programm nur 
durch einen Abbruch reagieren. 

Im Zusammenhang mit Ausnahmebehandlungen bekommt die an¬ 
sonsten verpönte LOOP-Schleife (siehe unter 3.12.4.2 ab Seite 68) wie¬ 
der eine Berechtigung. Hier ist die Abbruchbedingung gut zu sehen und 
damit ein sauberes Programm gewährleistet. 


^^Dieses Beispiel ist allerdings nicht aus der Praxis gegriffen, da der Compiler 
automatisch einen Check durchführt, ob durch 0 geteilt wurde, und falls dem 
so ist, eine im Modul Exceptions definierte Exception auslöst. 

^®Exception-Handler= Ein bestimmter Programmteil, welcher Ausnahmesi¬ 
tuationen (Ende einer Datei, Division durch Null, ...) behandelt 
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Nachfolgende Programmfragmente sind aus einem größeren Programm, 
welches bestimmte ASCII-Codes in die Codes eines anderen Compu¬ 
ters wandelt. In beiden Beispielen werden Exception-Handler (mittels 
TRY.. .EXCEPT) verwendet: 

Im ersten Beispiel wird ein Eile geöffnet. „Q_OpenInFile“ stammt 
aus dem Standardmodul „FileSystem“. Näheres über die Eunktions- 
weise dieser Prozedur können Sie im Kapitel nachlesen. Wichtig ist 
nur, diese Punktion löst im Eehlerfall eine Exception aus. 

Die potentielle Ausnahmesituation ist zwischen TRY und EXCEPT auf¬ 
geführt. Nach den Schlüsselwörtern OF stehen die vom Programmier 
vorgesehenen Ausnahmezustand^^ und die entsprechenden Ausnahme¬ 
behandlungsroutinen und -anweisungssequenzen. Tritt nun ein Ausnah¬ 
mezustand auf, der nicht vorgesehen war, so wird der ELSE-Zweig aus¬ 
geführt. Danach wird der nächst höher gelegene Exception-Handler auf¬ 
gerufen. Ist keiner vorhanden, bricht das Programm mit einem Laufzeit¬ 
fehler ab. 

TRY 

Q_OpenInFile(FileName,4096); 

EXCEPT 

OF ObjectNotFound THEN 

WriteStringC'Kein Quellfile gefunden"); 

WriteLn; 

END; 

OF ReadProtected THEN 

WriteStringC'Quellfile Readprotected"); 

WriteLn; 

END; 

END; 


Im zweiten Beispiel wird ein Exception-Handler mit ELSE-Zweig verwen¬ 
det. In diesem Programmfragment werden einzelne Zeichen aus einer 
Datei gelesen und in eine andere Datei geschrieben, bis das Ende der 
einen Datei erreicht ist (EOE^®). Tritt ein anderer Eehler auf, wird dies 
gemeldet, die Exception aber nach außen weitergegeben. 


ist auch möglich hinter einem OF mehere Exceptions dnrch Komma 
getrennt anzugeben. 

'^^End Of File= Ende der Datei 
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TRY 

LOOP 


Q_Read(c); 


(c = &10) OR 
IF KEY c 

(c 

> 

&128) 

THEN 

OF 

"ü" 

THEN 

c 

= 

&129 

END; 

OF 

"ö" 

THEN 

c 

= 

&148 

END; 

OF 

"ä" 

THEN 

c 

= 

&132 

END; 

OF 

"Ü" 

THEN 

c 

= 

&154 

END; 

OF 

"Ö" 

THEN 

c 

= 

&153 

END; 

OF 

"Ä" 

THEN 

c 

= 

&142 

END; 

OF 

"ß" 

THEN 

c 

= 

&225 

END; 

OF 

END; 

&10 

THEN 

Q_Write(&13) END; 


END; 

Q_Write(c); 

END; 

EXCEPT 

OF EOF THEN Q.CloselnFile; Q.CloseOutFile END; 
ELSE 

Q.CloselnFile; Q_CloseOutFile; 

END; 


3.20.2.1 RAISE, RAISE2 

Außer mit den vorgenannten Methoden läßt sich eine eigene Exception 
auch mit Hilfe von RAISE (x) auslösen. 

Angenommen Sie haben eine Exception „divError“ mit einem Eeh- 
lertext definiert („Division durch Null ist nicht definiert!“). Wenn Sie 
nun beispielsweise innerhalb einer Prozedur feststellen, daß eine Divi¬ 
sion nicht möglich ist (der Dividend ist gleich Null), so können Sie mit 
RAISE (divError) die Exception auslösen. Haben Sie um diese Prozedur 
einen Exception-Handler installiert wie oben angegeben, so kann diese 
normal behandelt werden. Wird die Exception nicht behandelt oder ist 
kein Exception-Handler installiert, so wird ein Laufzeitfehler ausgelöst. 
Hierbei wird der Modulname und die Zeilennummer angegeben, wo der 
Eehler auftrat. 

Besonders im Zusammenhang mit Bibliotheksmodulen, in denen Ex- 
ceptions meist nicht Eehler in einer darin definierten Routine, sondern 
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Fehler im Zusammenhang mit deren Aufruf anzeigen, interessiert es einen 
Programmierer nicht, daß eine Exception in dieser Zeile in jenem Modul 
aufgetreten ist. Er möchte wissen, an welcher Stelle er diese Prozedur 
aufgerufen hat, die die Exception ausgelöst hat. Hierfür ist RAISE2() 
vorgesehen. Wenn RAISE2() verwendet wurde, in den Standardmodulen 
ist dies häufig der Eall, bekommen Sie im Ealle einer Exception angezeigt, 
in welchem Ihrer Module und in welcher Zeilennummer die Prozedur 
aufgerufen worden ist, die die Exception ausgelöst hat, und nicht die 
Zeilennummer in dem Modul, in dem die Prozedur definiert wurde. Zur 
gleichen Verwendung existiert auch ein ASSERT2. 

3.20.2.2 Exception-Gruppen 

In manchen Eällen kann ein Eehler durch eine Vielzahl von Exceptions 
angezeigt werden. Ein Beispiel hierfür ist das Modul T_Dos, da es viele 
Möglichkeiten gibt, warum auf eine Diskette nicht schreibend zugegriffen 
werden kann: Keine Diskette im Laufwerk, Schreibgeschützt, etc. . Nun 
interessiert oft allerdings nur, daß etwas schiefgegangen ist; so wäre es 
sehr aufwendig, jedesmal alle möglichen Exceptions abzufragen. Aus 
diesem Grund besteht bei Cluster die Möglichkeit, Exceptiongruppen 
zu definieren. 

Diese werden genau wie normale Exceptions nach dem Schlüsselwort 
EXCEPTION definiert. Dabei wird ein Bezeichner angegeben, über den 
man in Zukunft auf die Exceptiongruppe zugreifen will, gefolgt von den 
Bezeichnern, die zusammengefaßt werden sollen. 

Beispiel: 

ErrorGrp = WriteError, ReadError, EOF, 

SeekError, ObjectNotfound; 

Innerhalb einer TRY.. .EXCEPT Anweisung können Sie nun durch Verwen¬ 
dung des Gruppennamens an Stelle einer Exception alle darin enthalte¬ 
nen Exceptions abfangen. Wollen Sie eine oder mehrere davon getrennt 
behandeln, dann sollten Sie so Vorgehen: 
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EXCEPT 

OF WriteError THEN 


<Anweisungl> 

END 

OF ErrorGrp THEN 

<Anweisung2> 

END 


Da die einzelnen Exception-Handler von oben nach nnten dnrchgegangen 
werden, wird im Falle eines WriteErrors Anweisungl ausgeführt, obwohl 
WriteError auch in ErrorGrp enthalten ist. 


3.20.3 Resourcenverwaltung 

Cluster bietet ein Kontextsysterrp^ mit dem Resourcen sehr komforta¬ 
bel und sicher verwaltet werden können. 

Alle Resourcen (Speicher, Files, etc.) können zu sogenannten Kon- 
werden, welche danach mit einem Schlag wieder frei¬ 


texten alloziert 
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gegeben werden können. Man kann nun zum einen bei jeder Allozierung 
einen eigenen Kontext angeben. Gibt man diesen nicht an, wird zum ak¬ 
tuellen Kontext alloziert, welcher am Programmende wieder freigegeben 
wird. 

Weiß man nun, daß man über einen bestimmten Bereich Resourcen 
benötigt und diese danach wieder freigegeben werden sollen, bietet sich 
die TRACK. . .CLOSE. . .END Konstruktion an: 


'^®Kontext= Zu einem bestimmten Zusammenhang gehörig 
®°alloziert= angelegt werden, einfacher: im Speicher Platz reservieren 
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TRACK 

Allozierungen 

CLOSE 

Anweisungen 

END 


Diese Anweisung bewirkt, daß ein neuer Kontext erzeugt und dieser zum 
aktuellen Kontext erklärt wird. Am Ende des Bereiches wird er wieder 
freigegeben und der vorherige aktuelle Kontext wird zum aktuellen Kon¬ 
text gemacht. 

Der Gag ist nun, daß der Kontext auch dann zurückgesetzt wird, 
wenn innerhalb von TRACK.. .CLOSE eine Exception oder ein Laufzeitfeh¬ 
ler auftritt. Der CLOSE-Teil wird immer durchlaufen, ob eine Exception 
auftrat oder nicht. Dies dient dazu, Resourcen, die nicht über die Kon¬ 
texte verwaltet werden, wieder freizugeben. Er kann auch entfallen. 


Eine sehr beliebte Konstruktion ist ein TRACK.. .END, das von einem 
TRY.. .EXPECT umgeben ist, da man im Ealle einer Exception nicht alle 
Resourcen selbst freigeben muß. 

Dieses System der Kontexte funktioniert dabei ohne Performance¬ 
verlust, im Gegensatz zu einem Garbagecollectoi 
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Wichtiger Hinweis: 

Sie sollten sehr vorsichtig sein, daß Sie innerhalb eines TRACK.. .END- 
Konstruktes keine Strukturen allozieren, welche außerhalb benötigt wer¬ 
den. 

Ist dies nötig, so sollte man bei der Allozierung einen anderen Kon¬ 
text als den aktuellen verwenden. Näheres hierzu ist im Modul Resources 
im Kapitel zu finden. 

Verschiedene, z. T. neuere Programmiersprachen verwenden einen sog. 
Garbagecollector, welcher allen „Speichermüll“ aufsammelt, den der Program¬ 
mierer „vergessen“ hat. In anderen Worten: Es werden noch belegte aber 
nicht mehr benutzte Speicherstücke aufgespürt und wieder freigegeben. Diese 
Aufgabe ist aufwendig und benötigt deshalb Zeit. 
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3.20.4 Laufzeitchecks 

Eine weitere Möglichkeit, wodurch eine Exception ausgelöst werden kann, 
sind Laufzeitchecks, die der Compiler durchführt, soweit man diese nicht 
abgeschaltet hat. Dabei wird unter anderem kontrolliert, ob man ver¬ 
sucht durch Null zu teilen, ob das Ergebnis einer Multiplikation noch 
in den verwendeten Variablentyp paßt, oder ob bei einer Zuweisung an 
einen Unterbereichstypen eine Bereichverletzung vorkam. Welche Ex¬ 
ception im Einzelnen ausgelöst wird, lesen Sie in der Beschreibung des 
Moduls Exceptions, Kapitelnach. Wenn man eine solche Exception 
ab fängt, sollte man sehr vorsichtig sein, da diese Exceptions normaler¬ 
weise schwerwiegende Eehler anzeigen. Außerdem ist wichig zu wissen, 
daß alle Exceptions, deren Check sich durch einen Compilerswitch aus¬ 
schalten läßt, nur dann ausgelöst werden, wenn dieser eingeschaltet ist. 
Wenn es also unbedingt nötig ist, schalten Sie den Check bereichsweise 
ein. 

3.20.5 HALT 

Will man ein Progamm ganz einfach nur abrechen, kann man diese Stan¬ 
dardprozedur verwenden. Sie führt dazu, daß das Programm augenbli¬ 
cklich abgebrochen wird, und der CLOSE-Teil ausgeführt wird. Außer¬ 
dem hat man die Möglichkeit, einen DOS-Returncode (0, 5, 10 bis 20 
je nach schwere des Eehlers) auf diese Weise zurückzugeben. Aufruf: 
HALT(<Returncode>); 

3.21 FORWARD für Konstanten 

Nicht nur Prozeduren, sondern auch komplexe Konstanten - also Re¬ 
cords und Arrays - lassen sich FORWARD-deklarieren. Dies hat folgende 
Anwendungen: Zum einen kann man Konstanten in einem Dehnitions- 
modul FORWARD-deklarieren, und die eigentliche Wertzuweisung erst im 
Hauptmodul vornehmen. Dies hat den Vorteil, daß man nun im Imple¬ 
mentationsteil den Wert der Konstanten ändern kann, ohne danach alle 
abhängigen Module neu compilieren zu müssen. Eine weitere Möglichkeit 
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ist die Verwendung zur Definition von konstanten, durch Zeiger verket¬ 
teten Strukturen. Ein Beispiel dafür folgt gleich. Eine Konstante wird 
dadurch vordefiniert, daß man statt dem Wert einfach nur den Typ der 
Konstanten angibt: 

TYPE 

ErrField = ARRAY [10] OF STRING(20); 

CONST 

Meldung = ErrField; 

Weiter hinten, oder im Implementationsteil eines Programmes muß man 
dann die selbe Konstante noch einmal definieren, diesmal jedoch mit 
einer Wertzuweisung. Nun noch ein Beispiel für eine verkettete konstante 
Struktur; in ähnlicher Weise kann man auch Gadgetlisten aufbauen: 


TYPE 

ElemPtr 

Eiern 


CONST 

Elem2 

Eleml 

Elem2 


= POINTER TO Eiern; 

= RECORD 
prev, 

next : ElemPtr; 
data : INTEGER; 

END; 

= Eiern; 

= Eiern:(prev=NIL,next=Elem2 ’ PTR,data=3); 
= Eiern:(prev=Eleml’PTR,next=NIL,data=4); 


Sicherlich werden Sie in den meisten Eällen auch ohne die FORWARD- 
Deklarierung von Konstanten auskommen, jedoch ist es machmal sehr 
praktisch, wenn man diese Möglichkeit hat. 


3.22 Variante Records 

Dieses Sprachelement stammt noch aus der Zeit, in der man um jedes 
Byte Speicher kämpfen mußte, und möglichst wenig verschwenden durfte. 
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Zwar besitzen heutige Rechner meist genug Speicher, denoch sollte man 
nicht zu verschwenderisch damit umgehen. Dennoch sollte man dieses 
Verfahren nur in Extremfällen verwenden. Oft kommt es nämlich vor, 
daß man in einem Record verschiedene Information speichert, jedoch 
nicht alle Elemente zur gleichen Zeit benötigt. Da jedoch auch nicht be¬ 
nutzte Elemente Speicher belegen, besteht die Möglichkeit sich mehrere 
Recordelemente ein Speicherstück teilen zu lassen, so daß der Record 
maximal so groß ist wie die Summme der größten gleichzeitig aktiven 
Elemente. Da jedoch nicht kontrolliert werden kann, ob auf einen sol¬ 
chen Record korrekt zugegriffen wird, sollte man diese Konstruktion nur 
dann verwenden wenn man jedes einzelne Byte benötigt. Ansonsten 
sollte man aufgrund der großen Gefahr von Eehlern bei der Benutzung 
darauf verzichten. 

In der Hoffnung alle Eragen damit zu klären folgt nun ein Beispiel: 

TYPE 

Geschlecht = (maennlich,weiblich); 

Person = RECORD 

namen, 

Vornamen : STRING(20); 

IF KEY geschl : Geschlecht 

OF maennlich THEN dienstgrad : STR1NG(20); 
OF weiblich THEN maedchenname : STRING(20); 
END; 

END; 

Entschuldigen Sie dieses etwas chauvinistische Beispiel, aber daran kann 
das Prinzip sehr gut gezeigt werden. Da eine Person im Normalfall ent¬ 
weder nur mänlich oder nur weiblich sein kann, ist es unnötig immer 
sowohl das Element dienstgrad und das Element maedchename in dem 
Record zu haben. Daher gilt in diesem Beispiel abhängig von dem Ele¬ 
ment geschl entweder das eine oder das andere Element. Dabei können 
sich beide den gleichen Platz teilen. Bei der Wertzuweisung muß man 
nur darauf achten, abhängig von geschl auf das richtige Element zu¬ 
zugreifen. In unserem Beispiel würde zwar nicht viel passieren, doch 
stellen Sie sich einmal vor, was passieren würde, wenn sich ein String 
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und eine Integerzahl sich einen Platz teilen, und man das falsche Ele¬ 
ment ausliest. Also immer erst den Schlüsselwert prüfen, bevor man 
einen Varianten Record ausliest. 

In machen Systemstrukturen findet man auch Variante Records ohne 
einen explizieten Schlüssel wert, was bei „C“ sehr beliebt ist. In Cluster 
sieht dies folgendermaßen aus: 

TYPE 

MemEntry = RECORD 

IF KEY :INTEGER 

OF 1 THEN reqs : MemReqSet 
OF 2 THEN addr : ANYPTR 
END; 

length : LONGCARD; 

END; 

Bei diesen kann man einfach den Elementen etwas zuweisen, die in die¬ 
sem Ealle benötigt werden. Dabei ist jedoch wieder darauf zu achten, 
daß man nur auf die Elemente eines Ealles zugreift, da man sonst die 
erstaunlichsten Ergebnise erhält. Diese Records werden normalerweise 
jedoch meist Prozeduren übergeben, denen man noch ein zusätzliches 
Elag übergibt, an dem diese erkennen können, um welchen Typ von 
Record es sich handelt. Beim Auslesen eines solchen Records sollte nor¬ 
malerweise immer aus einem anderen Element des Record hervorgehen 
um welche Art Record es sich handelt. 
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3.23 Schlußbemerkung 

Sie sollten inzwischen in der Lage sein, die Informationen dieses Hand- 
bnchs selbständig zn interpretieren nnd für Ihre Zwecke zn verwenden. 
Gemeint ist damit insbesondere der Sprachreport nnd die Modnlbiblio- 
thek, deren Doknmentation Sie weiter hinten in diesem Buch finden. 
Nun, dies wird wohl eher der Idealfall sein. Meistens werden Sie sich 
das eine oder andere Kapitel nochmals vornehmen müssen. Weiterhin 
können Sie auch den ausführlichen Index im Anhang dieser Dokumenta¬ 
tion zur Hilfe nehmen, wenn Sie etwas bestimmtes suchen. 

Wir hoffen, daß wir Ihnen wenigstens ansatzweise behilflich sein 
konnten, einen sanften Einstieg in die Welt der Programmierung zu fin¬ 
den. Möglicherweise habe wir doch zuviele Fremdwörter gebraucht und 
unseren Stil zu trocken gewählt. 

Sollten Sie Verbesserungsvorschläge oder Wünsche haben, die dieses 
Kapitel betreffen, so scheuen Sie sich nicht davor, uns zu kontaktieren. 
Wir sind für jede Resonanz dankbar. 

3.24 Beispiele: 

Nun zum Abschluß möchten wir Ihnen anhand eines größeren Beispiels 
die Möglichkeit geben, Ihre Clusterkenntnisse zu kontrollieren, und Ihnen 
vielleicht einige Anregungen für eigene Programme geben. 

Beim ersten Beispiel handelt es sich um eine Computerversion der be¬ 
kannten Schiebepuzzles, bei denen man innerhalb eines Quadrates kleine 
Puzzleteile, durch Verschieben, in die richtige Reihenfolge zu bringen 
hat. In unserem Beispiel erfolgt dies durch Anklicken der entsprechen¬ 
den Teile mit der Maus. Das Programm wird durch einen Tastendruck 
abgebrochen. 

Das Programm verwendet für seine Graphikausgaben Routinen der 
Gfx-Module aus den Standardmodulen, die eine sehr einfache Benutzung 
der Graphikhardware des Amigas erlauben, ohne daß man sich mit dem 
Betriebssystem auseinandersetzen muß. Wenn Sie nähere Informationen 
zu den einzelnen Prozeduren haben möchten, dann lesen Sie bitte im 
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Kapitel nach. 

Nur zu einem soll hier noch ein Hinweis gegeben werden, nämlich zu 
den hier verwendeten Shapes. Unter einem Shape versteht man einen 
rechteckigen Bildschirmausschnitt, den man an jeder Stelle wieder in den 
Screen einfügen kann. Anlich einer Brush in einem Malprogramm. Bei 
der Verwendung der Shapes müssen Sie nichts über deren inneren Aufbau 
wissen, man benötigt nur einen Zugriff auf ihn, damit der Computer 
weiß, auf welchen Shape sich eine Operation bezieht. Zum gleiche Zweck 
dienen die Variablen font, BackScreen, GameScreen, es handelt sich 
auch hier nur auf Zugriffe auf die einzelnen Objekte, und nicht um die 
Objekte selbst (Für die Experten, es handelt sich hier um Zeiger). 
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MODULE Puzzle; 

U $V- $R- $S- $N- *) I 

FROM GfxScreen IMPORT 

FROM GfxDraw IMPORT 

FROM GfxShape IMPORT 

FROM GfxText IMPORT 

FROM GfxPseudoSD IMPORT 

FROM Gfxinput IMPORT 

FROM Random IMPORT 

COMST 


CompilerSwitches 

Screeii,OpenScreeii,Palette ,SetPalette, 
Fadeln.FadeOut; 

ClearScreen,SetDrawMode,DrawModes, 
AreaRectangle,SetAPen; 

Shape,GetShape,PutShape,FreeShape,Sync; 
Font jOpenFont,SetFont »CharWidth; 

Write3D,BoxSD,ColorSD,CircleSD; 

UserActions,UserAct,WaitUser,MouseClick, 
CheckUser; 

RND; 


PuzzleTop 

= 40; 1 

Abstand vom oberen Bildschirmrand zum Puzzle 

VAR 

GameScreen, 

BackScreen 

: Screen; | 

Zugriffe auf die beiden Screens 

f ont 

: Font; 

1 

Zugriff auf den Zeichensatz 

Chips 

: ARRAY 

[0. 

.15] OF Shape; | Feld mit Zugriffen auf 

backfields 

: ARRAY 

[0. 

1 einen Shape. 

.3],[0..3] OF Shape; | Hier werden die einzelnen 

Field 

: ARRAY 

[0. 

1 Teile des Hintergrundes 

1 abgelegt. 

.3], 



[0. 

.3] OF SHORTINT; | In dieser Tabelle wird 

1 die aktuelle Position der 


I einzelnen Puzzelteile 
I eingetragen 

FreeX,FreeY : INTEGER;| Position des freien Feldes 


PROCEDURE CreateChips; | Erzeugt die einzelnen Puzzleteile 
COMST ChipChars = ARRAY OF CHAR: 

("0","1","2","3", I Beschriftung der einzelnen Zeichen. 
"4","5","6","7", I Die Zeichen werden in einem Array 
"8","9","A","B", I abgelegt, damit man das Erzeugen 
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"C","D","E","F");I der Teile in einer Schleife 
I abhandeln kann 


ChipColor = ColorSD:(topLeft=l, 

bottomRight=3, 
normal=2); 

CharColor = ColorSD:(topLeft=3, 

bottomRight=l, 
normal=0); 


VAR 

i : INTEGER; | Schleifenzähler 
c : CHAR; 


Farben Puzzelteils, 

sie sind so gewählt, 

daß die Teile erhaben wirken. 

Die Farbe der Schrift 

dagegen bewirkt, daß 

die Schrift wie ausgestanzt 

wirkt. 


BEGIM 

FÜR i:=0 TO 15 DO 


I 16 Teile sollen gesetzt werden. 


Box3D(BackScreen,ChipColor,0,0,31,31); 


c:=ChipChars[i]; 

WriteSD(BackScreen,CharColor, 

16-CharWidth(font,c) DIV 2,24, 


I 


Hier wird erstmal ein 
Rechteck auf die Hilfs 
screen gemalt. 

Schreibt ein Zeichen auf das 
Rechteck 

Position, an die geschrieben 
wird. Dabei wird mittels 
"Charwidth" dafür gesorgt, 
daß die Zeichen zentriert 
auf den Puzzelteilen erschei¬ 
nen, auch wenn ein Propor¬ 
tionaler Zeichensatz verwendet 
wird. 


c]); I Zeichen, das geschrieben werden soll 


GetShape(BackScreen,Chips[i],0,0,31,31); 


END; 

END CreateChips; 


Kopiert den Bereich, in 
den gezeichnet worden ist, 
und merkt sich einen 
Verweis darauf in dem 
Array "Chips" 
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PROCEDURE CreateBackground; 

COMST 

BackColor = ColorSD:(topLeft=4,bottomRight=6,normal=5); 

VAR 

x,y : INTEGER; 

BEGIM 

SetAPeii(BackScreeii,5); I Setze Hintergrundf arbe 

AreaRectaiigle(BackScreeii,0,0,127,127); | Zeichne ein ausgefülltes 

I Rechteck in dieser Farbe 
I als Hintergrund 

I Die folgenden Schleifen malen nun aud den Hintergrund 
I 4 Kreise die vertieft liegend wirken 
FÜR x:=14 TO 123 BY 20 DO 
FÜR y:=14 TO 123 BY 20 DO 

Circle3D(BackScreen,BackColor,x,y,7); 

END; 

END; 

I Die Folgenden Schleifen sichern jetzt jeweils ein Viereck 
I von der Größe eines Puzzleteils, diese werden gebraucht, 

I um später beim Verschieben der Puzzleteile den Hintergrund 
I wieder hersteilen zu können. 

FOR x:=0 TO 3 DO 
FOR y:=0 TO 3 DO 

GetShape(BackScreen,backf ields [x,y] ,x=i'32,y*32,x*32+31 ,y*32+31); 
END; 

END; 

END CreateBackground; 

PROCEDURE DrawPicture; | Malt den Rahmen des Spielfeldes, 

I indem ein vertieft wirkendes Rechteck 
I in ein erhabenes gezeichnet wird. 

CONST Framel = ColorSD:(topLeft=7,bottomRight=9,normal=8); 

Frame2 = ColorSD:(topLeft=9,bottomRight=7,normal=8); 

VAR x,y : INTEGER; 
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BEGIN 

BoxSD(GameScreen,Frame1,0,PuzzleTop,159,PuzzleTop+159); 
Box3D(GameScreeii,Frame2,14,PuzzleTop+14,145,PuzzleTop+145); 
END DrawPicture; 


PROCEDURE InitField;| Gibt jedem Feld eine Steinnummer 
VAR i : INTEGER; 

BEGIN 

FÜR i:=0 TO 14 DO 

FieldEi MOD 4,i DIV 4]:=i; 

END; 

FreeX:=3;FreeY:=3;I Setzt das anfangs leere Feld. 

END InitField; 


PROCEDURE DrawField; | Zeichnet die Puzzleteile auf den 

VAR x,y : INTEGER; | Spielscreen 

BEGIN 


SetDrawMode(GameScreen,drawAPen); | Setzt normalen Zeichenmodus 
FOR x:=0 TO 3 DO I Jede Spalte 
FOR y:=0 TO 3 DO I Jede Zeile 

PutShape(GameScreen,backfields[x,y], | Setzt die Hintergrund 
x*32+16,y*32+(PuzzleTop+16));I Kacheln 
IF (x#FreeX) OR (y#FreeY) THEN | Wenn die Position ungleich 

I der Leeren ist, 

PutShape(GameScreen,Chips[Field[x,y]],I Zeichne das 
x*32+16,y*32+(PuzzleTop+16));I 


Puzzleteil, das 
I sich gerade an dieser 
I Position befindet 


END; 

END; 

END; 

END DrawField; 


CONST 

I Dieses Array wird dazu benötigt, um eine Realistischere 
I Bewegung zu erzielen. 

Para = ARRAY OF SHORTINT:(1,3,6,10,14,19,24,29,32, 

29,27,28,30,32,31,32); 
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I Bewegt den x. Stein in der Zeile, in der sich der freie 
I Platz befindet nach rechts 
PROCEDURE MoveRightCx : INTEGER); 

VAR i,j : INTEGER; 

s : Shape; 

BEGIN 

FÜR i:=0 TO Para’MAX DO | Innerhalb dieser Schleife 

I werden die Puzzleteile stückchenweise 
I verschoben. 

FOR j:=x TO FreeX DO I Baut auf der Hilfsscreen den Hintergrund 

I des Bereiches auf, der vom Verschieben 
I betroffen ist. 

PutShape(BackScreen,backfields[j,FreeY] ,j*32,0); 

END; 

FOR j:=x TO FreeX-1 DO I Setzt die Chips, die verschoben werden 

I umd den Betrag "Para[i]" verschoben 
I auf das Hintergrundmuster auf dem 
I Hilfsscreen 

PutShape(BackScreen,Chips[Field[j,FreeY]],j♦32+Para[i],0); 

END; 

GetShape(BackScreen,s, 

x*32,0,FreeX*32+31,31);I Schneidet den neu gezeichneten 

I Bereich aus der Hilfsscreen aus 
Sync(GameScreen); | Sorgt dafür, daß der Bildschirm dabei nicht 

I flackert. 

PutShape(GameScreen,s, 

x*32+16 ,FreeY=i'32+(PuzzleTop+16) ) ; I Und Kopiert ihn 

I an die richtige 
I Stelle auf den Spielscreen 

FreeShape(s); | Gibt den Shape wieder frei. 

END; 

FOR j:=FreeX TO x+1 BY -1 DO I Verschiebt die Puzzleteile 

I auch innerhalb des Arrays, in dem 
I deren Position abgelegt ist. 

Field[j ,FreeY] : =Field[j-1 ,FreeY] 

END; 

FreeX:=x; | Setze neue freie x-Position 
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END MoveRight; 

I Bewegt den x. Stein in der Zeile, in der sich der freie 
I Platz befindet nach links. 

I Beschreibung, siehe MoveRight 
PROCEDURE MoveLeft(x : INTEGER); 

VAR i,j : INTEGER; 
s : Shape; 

BEGIN 

FÜR i:=0 TO Para’MAX DO 
FOR j:=FreeX TO x DO 

PutShape(BackScreen,backfields[j,FreeY] ,j *32,0); 

END; 

FOR j:=FreeX+l TO x DO 

PutShape(BackScreen,Chips[FieldEj,FreeY]],j*32-Para[i],0); 
END; 

GetShape(BackScreen,s,FreeX*32,0,x*32+31,31); 
Sync(GameScreen); 

PutShape(GameScreen,s,FreeX*32+16,FreeY*32+(PuzzleTop+16)); 
FreeShape(s); 

END; 

FOR j:=FreeX TO x-1 DO 

FieldEj ,FreeY] :=FieldEj + l,FreeY] 

END; 

FreeX:=x; 

END MoveLeft; 

I Bewegt den y. Stein in der Spalte, in der sich der freie 
I Platz befindet nach unten 
I Beschreibung, siehe MoveRight 
PROCEDURE MoveDown(y : INTEGER); 

VAR i,j : INTEGER; 

s : Shape; 

BEGIN 

FOR i:=0 TO Para’MAX DO 
FOR j:=y TO FreeY DO 

PutShape(BackScreen,backfields EFreeX,j] ,0,j*32); 
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END; 

FÜR j:=y TO FreeY-1 DO 

PutShapeCBackScreen,Chips [Field[FreeX, j]] ,0, j=i'32+Para[i] ); 
END; 

GetShape(BackScreen, s,0,y*32,31,FreeY=i'32+31); 

Sync(GameScreen); 

PutShape(GameScreen,s,FreeX*32+16,y*32+(PuzzleTop+16)); 
FreeShape(s); 

END; 

FOR j:=FreeY TO y+1 BY -1 DO 

Field[FreeX,j]:=Field[FreeX,j-1] 

END; 

FreeY:=y; 

END MoveDown; 

I Bewegt den y. Stein in der Spalte, in der sich der freie 
I Platz befindet nach oben 
I Beschreibung, siehe MoveRight 
PROCEDURE MoveUpCy : INTEGER); 

VAR i,j : INTEGER; 

s : Shape; 

BEGIN 

FOR i:=0 TO Para’MAX DO 
FOR j:=FreeY TO y DO 

PutShape(BackScreen,backfields[FreeX,j],0,j*32); 

END; 

FOR j:=FreeY+l TO y DO 

PutShape (BackScreen, Chips [Field[FreeX, j]] ,0, j=i'32-Para[i] ); 
END; 

Get Shape (BackScreen, s,0,FreeY=i'32,31 ,y *32+31); 

Sync(GameScreen); 

PutShape(GameScreen,s,FreeX*32+16,FreeY*32+(PuzzleTop+16)); 
FreeShape(s); 

END; 

FOR j:=FreeY TO y-1 DO 

Field[FreeX,j]:=Field[FreeX,j+1] 

END; 

FreeY:=y; 


(©1992/93 by StoneWare 



3.24. BEISPIELE: 


145 


END MoveUp; 

PROCEDURE MixUpField | Mischt das Spiel zufällig 
VAR i : INTEGER; 

BEGIN 

FÜR i:=l TO 64 DO I es werden 65 Mischversuche unternommen 
IF KEY RND(4) | Ziehe eine Zufallszahl zwischen 0 und 3 

OF 0 AND_IF FreeX>0 THEN | Wenn die freie Stelle nicht am linken 

I Rand liegt, 

MoveRight(RND(FreeX))I bewege einen Stein zwischen dem linken 

I Rand und der freien Stelle nach rechts. 
I Eventuell dazwischenliegende Steine 
I werden mitverschoben. 

END 

OF 1 AND_IF FreeX<3 THEN | Wenn die freie Stelle nicht am rechten 

I Rand liegt, 

MoveLeft(3-RND(3-FreeX))I bewege einen Stein zwischen 

I rechten Rand und der freien 
I Stelle nach links. 

END 

OF 2 AND_IF FreeY>0 THEN | Entsprechendes für oben und luiten. 
MoveDown(RND(FreeY)) 

END 

OF 3 AND.IF FreeY<3 THEN 

MoveUp(3-RND(3-FreeY)) 

END 

END; 

END; 

END MixUpField; 
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VAR 

x,y : INTEGER; | Hierin werden später die Koordinaten des letzten 
I Mausklick abgelegt. 


BEGIM 

OpenScreen(BackScreen,4,FALSE,FALSE); 


SetDrawMode(BackScreen,drawAPen); 
OpenScreen(GameScreen,4,FALSE,FALSE); 


Hier wird eine Screen mit 
16 Farben mit den Auflösungen: 
320x256 geöffnet. Er wird noch 
zum Ablegen der Puzzleteile 
benötigt Zeichenmodus auf 
normales Malen einstellen. 

Hier wird der Spielscreen 
geöffnet 


I Die nächste Anweisung setzt alle Farben des Screens auf Schwarz. 
SetPalette(GameScreen,Palette:((0,0,0),(0,0,0),(0,0,0),(0,0,0), 

( 0 , 0 , 0 ),( 0 , 0 , 0 ),( 0 , 0 , 0 ),( 0 , 0 , 0 ), 
( 0 , 0 , 0 ),( 0 , 0 , 0 ),( 0 , 0 , 0 ),( 0 , 0 , 0 ), 
( 0 , 0 , 0 ),( 0 , 0 , 0 ),( 0 , 0 , 0 ),( 0 , 0 , 0 ))); 
Hier öffnen wir einen eigenen 
Zeichensatz. 

Setze den Font für den Backscreen. 
Erzeuge Puzzleteile. 

Erzeuge Puzzlehintergrund. 

Zeichne Puzzlerahmen. 

Initialisiere Puzzle und zeichne es. 


OpenFont(font,"diamond",20) 

SetFont(BackScreen,font); 
CreateChips; 

GreateBackground; 
DrawPicture; 

InitField;DrawField; 


FadeIn(GameScreen,Palette:((0,0,0), 

(0,12,15),(0,8,10),(0,4,5), 

(0, 0,15),(0,0,10),(0,0,5), 
(15,0,0),(10,0,0),(5,0,0)),16); 


MixUpField; | Mische Puzzle 

REPEAT I Diese Schleife wird solange ausgeführt, 

I bis eine Taste gedrückt wird. 

WaitUser(GameScreen,UserAct:{userKey,userMouse});I Wartet auf 

I eine Eingabe 

IF CheckUser(GameScreen,UserAct:{userMouse}) THEN 
I Falls die Eingabe ein Mausklick war. 
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I wird die Position des Klicks abgefragt. 
MouseClick(GaineScreen,x,y); | Dies geschieht hier. 
x:=(x-16) DIV 32; | Welche Spalte im Puzzle ? 

y:=(y-(PuzzleTop+16)) DIV 32;| Welche Reihe ? 

IF (x OF 0..3) AND (y OF 0..3) THEN | Check, ob der Klick 

I innerhalb des Puzzles 
I stattfand. 

IF x=FreeX | Wenn der Stein in der angeklickten Spalte bewegt 
I werden kann, 

AND_IF y>FreeY THEN MoveUp(y)I Und y größer als die nächste 

freie Position ist, bewege 
den Stein nach oben (bedenken 
Sie dabei, daß Bildschirmkoor¬ 
dinaten nach oben hin abnehmen. 
0R_IF y<FreeY THEN MoveDown(y) | Im anderen Fall wird nach 

I unten bewegt 

END 

0R_IF y=FreeY | Falls der Stein nur in der gewählten Reihe 
I bewegt werden kann, 

AND_IF x>FreeX THEN MoveLeft(x) | luid sich der freie Platz 

links von der Klickposition 
befindet, bewege den Stein 
nach links. 

0R_IF x<FreeX THEN MoveRight(x)| Sonst nach rechts. 

END 

END; 

END; 

END; 

UNTIL CheckUser(GameScreen,UserAct:{userKey}); 

FadeOut(GameScreen,16); I Ausblenden des Screens 
CLOSE 


I Normalerweise sollte man hier den Screen und den Font wieder 
I Schließen bzw. freigeben, da die Gfx-Module dies jedoch von selbst 
I am Programmende machen, können wir darauf verzichten 
END Puzzle. 


Vielleicht erweitern Sie ja das Programm dahin gehend, daß das Pnzzle 
anf Tastendrnck automatisch gelöst wird. 
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Hier noch zwei weitere Beispiele: 

MODULS Groesster_gemeinsamer_Teiler; 

(* euklidischer Algorithmus *) 

FROM InOut IMPORT ClearWindow, WriteString, WriteLn, 

Readlnt, Writelnt; 

VAR a,b,r : INTEGER; 

BEGIN 

ClearWindow; 

WriteString("Geben Sie 2 natürliche Zahlen ein:"); 
Writelnt; 

WriteStringC'a: "); 

Readlnt(a); 

WriteLn; 

WriteString("b: "); 

Readlnt(b); 

WriteLn; 

REPEAT 

r:=a MOD b; 

a:=b; 

b:=r 

UNTIL r=0; 

WriteString("Der größte gemeinsame Teiler ist "); 
Writelnt(a); 

END Groesster_gemeinsamer_Teiler. 
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MODULE Mittelwert; 

FROM InOut IMPORT ClearWindow, WriteString, ReadReal, 
WriteReal; 

VAR a,b,mittelwert:REAL; 

BEGIN 

ClearWindow; 

WriteString("Bitte geben Sie eine Zahl a ein: "); 
ReadReal(a); 

WriteString("Bitte geben Sie eine Zahl b ein: "); 
ReadReal(b); 
mittelwert:=(a+b)/2; 

WriteString("Der Mittelwert aus "); 

WriteReal(a,5,2); 

WriteString(" und "); WriteReal(b,5,2); 

WriteString(" lautet: "); 

WriteReal(mittelwert,6,2); 

END Mittelwert. 


Bildschirmbild dazu: 


Bitte geben Sie eine Zahl a ein: 2.5 
Bitte geben Sie eine Zahl b ein: 3.7 
Der Mittelwert ans 2.50 nnd 3.70 lantet: 3.10 
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KAPITEL 4. FORTGESCHR. PROGRAMMIEREN 


Dieses Kapitel wendet sich an den schon etwas fortgeschritteneren Pro¬ 
grammierer, der bereits einfache Programme schreiben kann. Hier wer¬ 
den erweiterte Datenstrnktnren, wichtige Algorithmen, Programmier¬ 
konventionen nnd -techniken behandelt. Die hier vorgestellten Dinge 
gehören ins Nähkästchen eines jeden Programmierers nnd sollten auch 
bei eigenen Projekten berücksichtigt werden. 


4.1 Der POINTER 

Haben Sie sich nicht schon oft darüber geärgert, daß Sie bei der Be¬ 
nutzung von Feldern (ARRAYS) schon bei Programmbeginn wissen und 
angeben mußten, wie viele Elemente das Feld hat? 

Die Datenstrukturen, die Sie bisher kennengelernt haben, sind al¬ 
lesamt statisch, d. h. im Deklarationsteil des Programms sind sie der 
Größe nach fest gelegt. 

In diesem Abschnitt sollen Ihnen sogenannte Zeigertypen nähergebracht 
werden. Später werden Sie mehr über dynamische Datenstrukturen er¬ 
fahren. Dazu gehören auch Listen. Hierbei handelt es sich um eine 
Art eindimensionales Feld, allerdings ist die Länge einer Liste nicht bes¬ 
chränkt. Kommt ein Element zur Liste hinzu, so erhöht sich die An¬ 
zahl der Elemente. Die Elemente einer Liste sind miteinander durch 
sogenannte Zeiger verkettet. Sie werden mehrere Arten von Verkettung 
kennenlernen. 

Es gibt schon merkwürdige Typen in Cluster ... 

TYPE Zeiger = POINTER TO Objekt; 

Eine Variable dieses Typs ist nicht selber von Typ Objekt, denn dann 
müßte es ja TYPE Zeiger = Objekt heißen, sondern es ist eine Variable, 
die auf das Objekt zeigt. 

Deklarieren wir uns zwei Zeigervariablen: 
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TYPE Zeiger = POINTER TO CHAR; 
VAR 

a, b: Zeiger; 

IVAR a, b: POINTER TO CHAR; 

I wäre auch möglich gewesen! 


Beachten Sie, daß die Variablen a nnd b nicht vom Typ CHAR sind! 

Unsere Zeiger zeigen nnn so in der Weltgeschichte hemm. Dies ist ein 
ziemlich nnbefriedigender Znstand, weil nndefiniert. Ans diesem Grnnde 
existiert eine Konstante mit der Bezeichnnng 


NIL (engl. Nichts), 


die jedem Zeiger beliebigen Typs zngeordnet werden kann. Die Kons¬ 
tante NIL wird auch häufig Erdung genannt. Also kann man mit 


a := NIL; 
b := NIL; 


beiden Zeigern einen definierten Zustand zuordnen. Sie sind geerdet. 

Der Sinn dieser „Erdung“ liegt darin, daß wir später beispielsweise 
das Ende einer Liste durch eine solche Erdung kennzeichnen können oder 
entscheiden können, ob ein Zeiger auf ein Element zeigt oder nicht. 

Um unsere Zeiger auf Objekte vom Typ CHAR zeigen zu lassen benötigen 
wir die Prozedur 


New (zeiger); 


Mit dieser Prozedur wird eine vorerst leere Speicherstelle (Variable) er¬ 
zeugt, auf die der Zeiger zeigt. Der Datentyp dieser Variablen ist durch 
den angegebenen Zeigerdatentyp (hier CHAR) fest gelegt. 
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New (a); 
New (b); 


erzeugt Variablen mit den Namen a'' und b'' vom Typ CHAR. Erinnern Sie 
sich, der Zeigertyp ist POINTER TO CHAR. Betrachten Sie nun Abbildung 
[4T] 



a" 




Abbildung 4.1: Speicher nach dem Erzeugen der Zeiger 

Die Kästchen (Variablen) mit den Namen a'' und b'' sind noch leer. Nun 
wollen wir ihnen Speicherinhalte zuweisen: 


Wenn Sie Abbildung |4.2| betrachten, werden Sie erkennen, daß die Zeiger 
a und b nun auf die Variablen a'' und b'' zeigen, mit den Inhalten "x" 
und "y". 

Wichtig ist, daß Sie folgende Zuweisungsarten zwischen diesen Zeigern 
jetzt peinlich unterscheiden müssen: 


a : = b; 
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a 


b' 


Abbildung 4.2: Zuweisung von Speicherinhalten 


a 


b 



a" 


h 


Abbildung 4.3: Zeiger ab ge knipst 


ist ein korrekter Befehl, wie sieht aber unser Diagramm jetzt aus? (Ab¬ 
bildung 4.3) 


Mit dieser Zuweisung wurde der Zeiger a so verbogen, daß er auf dasselbe 
Objekt zeigt, wie der Zeiger b. 


Achtung: Auf das Objekt a'' zeigt nun kein Zeiger mehr. Dieses Objekt 
ist verloren! Es existiert praktisch keine Möglichkeit mehr, auf dieses 
Objekt zuzugreifen. 


Werden Zeigervariablen einander zugewiesen, so müssen die Objekte, auf 
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die die Zeiger zeigen, vom selben Typ sein. 

Hätten Sie die Znweisnngsart anders gewählt, nämlich: 


a'' := b'' 


so ergäbe sich folgendes Bild (Abbildnng|4.4[): 



a" 




Abbildung 4.4: Andere Zuweisungsart 

Hier haben wir nnr den Inhalt der Speicherstelle geändert, anf die a zeigt. 
Im Speicher des Rechners gibt es nnn den Buchstaben „y“ zweimal. 

Sie sehen also, beim Arbeiten mit Zeigern ist Vorsicht angebracht. 
Denken Sie beim Programmieren lieber etwas länger nach, dies wird die 
Fehlersuchzeiten erheblich reduzieren. 


Nun zur Wiederholung und Festigung des eben gelernten ein etwas 
umfangreicheres Beispiel. Außerdem werden Sie erfahren, wie man die 
mit New erzeugten Speicherstücke wieder freigeben kann. 
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TYPE 

ZahlZeiger = POINTER TO INTEGER; 

VAR 

aPtr, bPtr : ZahlZeiger; 
zahl : INTEGER; 

BEGIN 

aPtr := zahl’PTR; 
bPtr := NIL; 
zahl := 12; 

I "bPtr" zeigt nach ^nirgendwo* 

I "aPtr" zeigt jetzt auf den Speicherinhalt 
I von "zahl", "zahl" hat den Wert 12 angenommen 
New(bPtr); 

I fuer "bPtr" wurde ein Stueck Speicher erzeugt 
I "bPtr" zeigt auf dieses Speicherstueck 
bPtr'' := 4 * zahl; 

I in diesem Speicherstueck steht jetzt 48 
aPtr := bPtr; 

I auch "aPtr" zeigt jetzt auf dasselbe Speicher 
I stueck wie "bPtr", also "aPtr"="bPtr" 
zahl := aPtr'' - zahl; 

I "zahl" hat den Wert 36 angenommen 
Dispose(aPtr); 
bPtr := NIL; 

I Das mit New() erzeugte Speicherstueck ist 
I dem System zurueckgegeben worden, 

I es gilt: "bPtr=NIL", "aPtr=NIL", "zahl=36" 


END; 


Die Prozeduren New() und Dispose () erzeugen bzw. vernichten ein Spei¬ 
cherstück von der Größe desjenigen Objekts, auf das sie zeigen. Diese 
zwei Prozeduren werden vom Modul Ressources bereitgestellt. Man 
beachte, hier wurden vier verschiedene Methoden vorgestellt, wie man 



8 


KAPITEL 4. FORTGESCHR. PROGRAMMIEREN 


Zeigervariablen „initialisieren“ kann, nnd zwar durch: 


• bPtr := NIL, die Variable bPtr zeigt nirgendwohin, NIL ist das 
Symbol hierfür, 

• aPtr := zahl’PTR, die Zeigervariable zeigt auf ein Speicherstück, 
das vom geforderten Typ ist - hier INTEGER, 

• aPtr := bPtr, ein gültiger Zeigerinhalt wird dupliziert, 

• New(bPtr), ein passendes Speicherstück wird vom Laufzeitsystem 
angefordert, die Variable zeigt anschließend darauf. 


Beim Hantieren mit Zeigern ist Vorsicht geboten! In unserem Bei¬ 
spiel zeigt die Variable bPtr - direkt nach Ausführung der Anweisung 
Dispose(aPtr) - auf einen Speicherbereich, der dem System bereits 
zurückgegeben worden ist. Wir dürfen keine Annahmen darüber ma¬ 
chen, wofür das Laufzeitsystem dieses Stück Speicher als nächstes be¬ 
nutzen wird; falls wir diesen Speicher dennoch modifizieren, obwohl 
er schon zurückgegeben worden ist, sorgen wir für die tollsten Uber- 
raschungseffekte! Deshalb wird auch die Variable bPtr auf NIL gesetzt. 
So können wir später ganz einfach feststellen, ob unser Zeiger auf etwas 
gültiges zeigt oder nicht. 


Es sollte auch darauf geachtet werden, daß man diejenigen Spei¬ 
cherstücke, die man nicht mehr braucht, wieder mit Dispose() zurückgibt. 
Denn sonst würde ja unser „AdreßVerwaltungs-Programm“ unnütz viel 
mehr Speicher verbrauchen als nötig, und ein riesiger Vorteil der dy¬ 
namischen Speicherung unserer Daten wäre dahin. Aber wie man mit 
dynamischen Datenstrukturen umgeht, das wird im Abschnitt „Dyna¬ 
mische Strukturen“ unter 4.6 ausführlich behandelt. 


Es existiert ein Pointertyp, der zu allen Pointertypen und zum Da¬ 
tentyp LONGINT kompatibel ist, ANYPTR. Dieser Pointer hat kein typi¬ 
siertes Ziel. In diesem Typ gibt es die Konstante NIL, die die nichtvo¬ 
rhandene Adresse bedeutet. 


Sie haben eben gelernt, daß man, um an den Speicherinhalt, auf 
den ein Pointer zeigt, zugreifen zu können, den Zeiger mittels eines 
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dereferenzieren muß. Zeigt ein Pointer auf eine Recordvariable, 
und will man auf eine Element des Records zugreifen, muß man nicht 
RecPtr''. element schreiben, sondern es genügt RecPtr. element, da der 
wie bei allen modernen Hochsprachen die Dereferenzierung impli¬ 
ziert. 
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4.2 Offene Typen 

Cluster stellt neben den üblichen Strukturen auch noch offene Ty¬ 
pen zur Verfügung. Diesen fehlt bei der Dehnition eine Eigenschaft 
- eine feste Länge. Es gibt drei Arten dieser Typen, offene Strings, 
offene Arrays und offene Record^ Da diese immer für eine ganze 
Klasse von Typen stehen, heißen sie auch Klassen. Es ist nicht möglich. 
Variablen dieser Typen zu erzeugen, da ihre Länge nicht bekannt ist. 
Sie können jedoch als VAR-Parameter übergeben oder als Pointerziele 
existent werden. Da diesen Typen eine wichtige Information in ihrer 
Typbeschreibung fehlt, muß diese irgendwo im Zeiger darauf vorhanden 
sein. Zu diesem Zweck haben offene Typen eine eigene Art Zeiger, den 
CLASSPTR. Dieser unterscheidet sich vom POINTER nur dadurch, daß er 
zu der Adresse eines Objekts noch Daten darüber enthält. 

4.2.1 Offene Strings 

Diese sind ihnen als Ubergabeparameter schon begegnet. Das fehlende 
Datum bei offenen Strings ist die maximale Länge. Diese wird entwe¬ 
der bei der Übergabe an eine Prozedur mit übergeben, oder wird im 
CLASSPTR auf den String gespeichert. 

PROCEDURE FreeChars (VAR s : STRING):INTEGER; 

BEGIN 

RETURN s’RANGE-s.Ien 
END FreeChars; 

Diese Prozedur liefert die Zahl der noch freien Zeichen in einem 
String. Soll ein String einer Länge erzeugt werden, die erst während der 
Laufzeit bekannt ist, so muß dies über einen Zeiger geschehen. 

^Offnene Records werden in dieser Compiler-Version zwar noch unterstützt, 
sollten aber nicht mehr verwendet werden. Mittlerweile ist es nämlich möglich, 
aus normalen Records erweiterte Records zu erzeugen. Dieses Feature war 
anfangs nur mit offenen Records möglich. 
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VAR s : CLASSPTR TO STRING; 

s'' ’ RANGE: =MaxLength; 

New(s); 


Durch diese Anweisung wird ein String der Länge MaxLength erzeugt, 
auf den über s'' zugegriffen werden kann. 

4.2.2 Offene Arrays 

Sie sind stark mit den Strings verwandt, da auch bei ihnen die Größenangabe 
fehlt. Offene Arrays beginnen immer mit null, und enden bei ’MAX. 


TYPE 

Koord = RECORD x,y : INTEGER END; 
Polygon = ARRAY OF Koord; 


Auch sie können als Ubergabeparameter verwendet werden, oder durch 
Pointer erzeugt werden. 


PROCEDURE DrawPoIyCVAR p : Polygon); 

VAR i : INTEGER 

BEGIN 

MoveCp [0]) ; 

FOR i:=l TO p’MAX DO 
DrawTo(p [i]) 

END; 

DrawTo(p[0]) 

END DrawPoIy; 


Es ist wie bei Strings ebenfalls möglich, Ausprägungen dieses Types zu 
erzeugen, indem eine Größe angegeben wird. 
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TYPE 

Triangle = Polygon(3) 

Wird ein offenes Array als Typ einer Konstante benutzt, wird die Länge 
aus der Anzahl der Werte genommen. 


CONST 

Quadrat 

= Polygon:((x=-10,y=-10), 

(x= 10,y=-10), 

(x= 10,y= 10), 

(x=-10,y= 10)); 


Zur Vereinfachung ist es auch erlaubt, ARRAY OF bei Konstanten zu be¬ 
nutzen. 

CONST 

Sequenz = ARRAY OF INTEGER:(4,5,6,7,8); 

Bei offenen Arrays als Pointerziel wird wie bei Strings verfahren: 
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VAR p : CLASSPTR TO Polygon; 

p''’RANGE: = . . . ; 

New(p); 


Zuweisen lassen sich Arrays aber nur, wenn sie die gleiche Länge haben. 
Natürlich ist es aber möglich, dem Zeiger auf ein offenes Array den Zeiger 
auf ein normales Array diesen Typs zu übergeben. 


VAR 

theTriangle : Triangle; 
p:=theTriangle’PTR; 

Dabei wird auch automatisch die Länge mit übernommen. Soll nur die 
Adresse, aber nicht die Länge geändert werden, muß ein Umweg bes¬ 
chritten werden: 


ANYPTR(p):=theTriangle’PTR; 


4.2.3 ALLOC_RESULT 

Auch der Ergebnistyp einer Funktion kann ein offnenes Array bzw. ein 
offener String sein. Jedoch dann muß in der Funktion selbst die Größe 
des Ergebnisses bestimmt werden. Dies wird durch den Aufruf von 
ALLOC_RESULT geregelt. Die Funktion ALLOC_RESULT erzeugt bei unkla¬ 
rer Größe des Rückgabetyps ein entsprechendes Objekt im Heapspei- 
cher. Wie bei komplexen Ergebnistypen erforderlich, muß auch auf 
dieses Objekt über die Variable RESULT zugegriffen werden. Die Argu¬ 
mente der Funktion ALLOC_RESULT enthalten die Anzahl der Elemente 
des Ergebnis-Arrays bzw. die Anzahl der Zeichen des Ergebnis-Strings 
und ermittelt daraus selbsttätig die die echte Größe. 
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$$OwnHeap:=TRUE 

PROCEDURE Reverse (REF str : STRING):STRING; 

VAR 

i : INTEGER; 

BEGIN 

ALLOC.RESULT(str.len); 

ASSERT(RESULT’RANGE>str.len,RangeChk); 

FÜR i:=0 TO str.Ien-1 DO 

RESULT.data[i]:=str.data[str.Ien-i-1]; 

END; 

RESULT.len:=str.len; 

RESULT.data[RESULT.len]:=&0; 

END Reverse; 

PROCEDURE ConcatCREF strl,str2 : STRING):STRING; 

VAR 

i : INTEGER; 

BEGIN 

ALLOC.RESULT(str1.Ien+str2.len); 

ASSERT(RESULT’RANGE>(str1.Ien+str2.len),RangeChk); 
FOR i:=0 TO strl.Ien-1 DO 

RESULT.data[i]:=strl.data[i]; 

END; 

FOR i:=0 TO str2.Ien-l DO 

RESULT.data[str1.len+i]:=str2.data[i]; 

END; 

RESULT.len:=str1.Ien+str2.len; 

RESULT.data[RESULT.len]:=&0; 

END Reverse; 


Somit können auch Rückgabewerte, die vom Typ her offen gehalten sind, 
wieder direkt als Eingabewert von anderen Funktionen benutzt werden. 
Dies ist zum Beispiel bei Ausdrücken wie 
palindrom:=Concat(Reverse(wort),wort); 

der Fall. Ohne Verwendung von ALLOC_RESULT wäre die Größe des zu 
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allokierenden Speichers für das Ergebnis von Reverse (wort) nnklar. 
Dnrch ALLOC_RESULT wird die Größe des Ergebnisses fest gelegt. Erst da- 
dnrch kann eine vernünftige Parameterübergabe an die Ennktion Concat 
erfolgen. 


4.2.4 Der absolut offene Typ ANYTYPE 

Der Typ ANYTYPE ist völlig offen, das heißt, von ihm ist nnr Adresse nnd 
Länge bekannt. ANYTYPE kann nnr als VAR-Ubergabeparameter in einer 
Prozednr verwendet werden. 


TYPE 

NodePtr = POINTER TO Node; 

Node = RECORD 

next : NodePtr; 
size : INTEGER; 

END; 

ShortPtr= POINTER TO SHORTINT; 

VAR 

queue : NodePtr; 

PROCEDURE PutQueueCVAR data : ANYTYPE); 
VAR p : NodePtr; 

sl,s2 : ShortPtr; 

i : INTEGER; 

BEGIN 

Allocate(p,Node’SIZE+data’SIZE); 
s1:=ShortPtr(LONGINT(p)+Node’SIZE); 
s2:=data’PTR; 

FOR i:=l TO data’SIZE DO 
sl^:=s2'';INC(sl) ;INC(s2) ; 

END; 

p''. size :=data’SIZE; 
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IF queue=NIL THEN 
p'' .next :=queue 
ELSE 

p''. next: =queue''. next; 
queue''. next: =p; 

END; 

queue:=p; 

END PutQueue; 


Mit diesem Typen lassen sich also Prozeduren schreiben, die typunab¬ 
hängig sind. Dies ist meist bei Lade- und Speicherroutinen der Fall. 


4.3 Erweiterte Records 

Records lassen sich um weitere Elemente erweitern, dabei bleiben alle 
vorherigen Felder erhalten. Ein Record, der sich auf einen bereits beste¬ 
henden gründet, wird durch RECORD OF <ident> eingeleitet. 

Ein Beispiel aus Exec: 

MinNodePtr = POINTER TO MinNode; 

MinNode = RECORD 

succ,pred : MinNodePtr; 

END; 

Node = RECORD OF MinNode 

type : NodeTypes; 
pri : SHORTINT; 
name : SysStringPtr; 

END; 

Message = RECORD OF Node 

replyPort : MsgPortPtr; 
length : CARDINAL; 

END; 
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lORequest = RECORD OF Message 

device : DevicePtr; 
unit : UnitPtr; 
command : CARDINAL; 
flags : lOFlagSet; 
error : SHORTCARD; 

END; 

So lassen sich Hierarchien von Typen aufbauen, die nach unten zuwei- 
sungskompatibel sind. 

Neben allgemeinen Pointertypen exisitiert noch ein Typ, der speziell 
für die Probleme, die bei der Vererbung von Records entstehen, ein¬ 
geführt wurde - der SAMEPTR. Ein SAMEPTR kann nur als Element eines 
Records verwendet werden, er stellt einen Zeiger auf den Typen dar, den 
der aktuelle Record bildet. 

Beispiel: 

TYPE 

Node = RECORD 
prev, 

next : SAMEPTR; 

END; 

Node2 = RECORD OF Node 

data : INTEGER 
END; 

Die Elemente prev und next haben in Records des Typs Node den 
Typ POINTER TO Node, in Records des Typs Node2 aber den Typen 
POINTER TO Node2. Der Record bleibt trotzdem nach unten kompatibel, 
da ja ein POINTER TO Node2 auch ein Nachfahre von POINTER TO\index{POINTER 
darstellt. Der Vorteil ist aber, daß Ausdrücke der Eorm: 

Node2'' .next'' .data 

möglich sind, was bei der Verwendung des Typs POINTER TO Node ans¬ 
tatt eines SAMPETRs nicht möglich wäre. 




18 


KAPITEL 4. FORTGESCHR. PROGRAMMIEREN 


4.4 Generische Module 

Viele Datenstrukturen und dazugehörige Algorithmen werden häufig in 
verschiedenen Kontexten und in Verbindung mit anderen Datenstruk¬ 
turen benötigt (z. B. Listen, AVLbäume, Stacks etc.). In einer streng 
und vor allem statisch getypten Sprache tritt das Problem auf, daß diese 
Strukturen jedesmal neu definiert und implementiert werden müssen. 
Diesem Problem wird durch Generizität abgeholfen. 

Ein generisches Modul besitzt einen generischen Parameter. Dieser 
Parameter muß ein Zeigertyp sein. Uber diesen Parameter kann das 
Modul bereits Annahmen machen. 

Beispiel: 

DEFINITION MODULE BiList(NodePtr : POINTER TO Node); 


TYPE 

Node 

= RECORD 



pred, 

succ : 

NodePtr 

List 

END; 

= RECORD 



first, 
last : 

NodePtr 


END; 



ParseProc = PROCEDURE(n : NodePtr); 

PROCEDURE InitCVAR I : List); 

PROCEDURE InsertTopCVAR I : List;n : NodePtr); 
PROCEDURE ParseCVAR I : List;parse : ParseProc); 
END BiList; 
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IMPLEMENTATION MODULE BiList; 

PROCEDURE InitCVAR I : List); 

BEGIN 

I.first:=NIL; 

I.Iast :=NIL 
END Init; 

PROCEDURE InsertTopCVAR I : List;n : NodePtr); 
BEGIN 

n.pred:=NIL; 
n.succ:=I.first; 

IF I.first=NIL THEN 
I.last:=n 
ELSE 

I.first.pred:=n 
END; 

I.first:=n 
END InsertTop 

PROCEDURE Parse (VAR I : List;parse : ParseProc); 
VAR n : NodePtr; 

BEGIN 

n: =I.first; 

WHILE n#NIL DO 

parse(n);n:=n.next 
END; 

END Parse; 

END BiList. 


Das Implementationsmodul kann über die bekannten Elemente des Kno¬ 
tentyps (pred, succ) verfügen, da durch die Defiuitiou des geuerischeu 
Parameters sichergestellt wird, daß uur eiu Zeiger auf eiueu Nachfolger 
vou Node iu Frage kommt. 
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Ein generisches Modnl mnß, bevor es dnrch ein anderes Modnl ver¬ 
wendet werden kann, dnrch einen aktnellen Parameter ausgeprägt wer¬ 
den. Dieser Typ muß zum formalen Parametertyp passen. 


MODULE ZweiListen; 

FROM Resources IMPORT New, Dispose; 


TYPE 

NamePtr = POINTER TO NameNode; 

StadtPtr = POINTER TO StadtNode; 

DEFINITION MODULE NameList = BiList(NamePtr); 
DEFINITION MODULE StadtList = BiList(StadtPtr); 

TYPE 

NameNode = RECORD OF NameList.Node 
nachname, 

Vorname : STRING(100); 
alter : INTEGER; 

END; 

StadtNode = RECORD OF StadtList.Node 
City : STRING(IOO); 

pIz : [1000..9999]; 

END; 


Das Modul NameList verwaltet nun eine Liste derartiger NameNodes, das 
Modul StadtList eine Liste von StadtNodes. Die Typsicherheit ist voll 
gegeben, da keine anderen Knotentypen zugelassen sind. 

Die Prozeduren der Module NameList und StadtList können wie 
üblich importiert und benutzt werden. Werden jedoch mehrere Ausprägungen 
desselben generischen Moduls verwendet, treten Namenskonflikte auf. 
Daher importiert man nicht die einzelnen Prozeduren aus einem solchen 
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Modul, sondern benutzt Sie wie Methoden. D. h. da normalerweise alle 
Prozeduren eines Generischen Moduls als ersten Parameter einen Zeiger 
auf eine Struktur, oder einen Record haben, in unserem Beispiel immer 
die Liste auf die sich die Operation bezieht, kann man die Prozedur über 
den ersten Parameter qualifizieren: 


VAR 

myNames 

: NameList.List; 

1 Da NameList 

im selben 

Modul, 

name 

myStadt 

Stadt 

: NameNode; 

: StadtList.List; 

: StadtNode; 

1 ausgeprägt 

1 nicht mehr 

wurde, muß 
importiert 

das Modul 

werden. 


BEGIN 

myNames.Init; | an Stelle von NameList.Init(myNames); 

New(name); 

myName.InsertTop(name); 

myStadt.Init; 

New(stadt); 

WITH Stadt DO 

City := "Karlsruhe"; 
plz := 7500 
END; 

myStadt.InsertTop(Stadt); 

Für alle Ausprägungen eines generischen Moduls wird in einem Pro¬ 
gramm derselbe Code benutzt, es wird also kein Code vervielfältigt. Aus 
diesem Grund können auch nur Zeiger als generische Parameter dienen. 

Werden für eine Implementation einer Datenstruktur gewisse Fähigkeiten 
des generischen Parameters (wie eine Ordnungsrelation) benötigt, so 
kann dies über Prozedurvariablen erreicht werden. 
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Es ist möglich, lokale Prozeduren als Parameter zu verwenden, es ist 
allerdings nicht möglich, einer Prozedurvariablen eine lokale Prozedur 
zuzuweisen. 


PROCEDURE LasseAltern(VAR 1 : NameList.List;um : INTEGER); 

PROCEDURE Altere(n : NamePtr); 

BEGIN 

INC(n.alter,um) 

END Altere; 

BEGIN 

1.Parse(Altere); 

END LasseAltern; 


Wichtig: Auch wenn bei der Dehnition des Prozedurtypen 
ParseProc als Ubergabeparametertypen nur ein NodePtr angegeben ist, 
muß man nach der Ausprägung an seiner Stelle den Typ verwenden, mit 
dem das Modul ausgeprägt worden ist. Nur so kann die Prozedur Altere 
auf das Element alter zugreifen. 

Weitere Beispiele ünden Sie auch bei der Beschreibung der generi¬ 
schen Module AVLTrees und Lists in Kapitel 
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4.5 Objektorientiertes Programmieren 

4.5.1 Grundlegende Struktur 

Objekte entsprechen in Cluster in vielen Eigenschaften den Records. 
Dies drückt sich auch in der Definition aus, wie folgendes Beispiel zeigt: 

TYPE 

Node = POINTER TO NodeObj; 

NodeObj = OBJECT 

prev,next : Node; 

END; 

Der deutlichste syntaktische Unterschied hegt im Schlüsselwort OBJECT 
an der Stelle von RECORD. Der wichtigste semantische Unterschied besteht 
darin, daß ein Objekt nicht nur einen statischen Typ, sondern auch einen 
dynamischen Typ besitzt. Dies wird bei Vererbungen deutlich: 

TYPE 

BigNode = POINTER TO OBJECT OF Node; 
name : STRING(10); 

END; 

VAR n : Node; 

b : BigNode; 


n:=b 


Die Variablen n und b haben zwei verschiedene statische Typen, nämlich 
Node und BigNode. Sie haben nach der Zuweisung allerdings denselben 
dynamischen (d. h. zur Laufzeit) Typen, BigNode. Dies kann auch durch 
den relationalen Operator IS geprüft werden: 
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IF n IS BigNode THEN ... END; 

Wären BigNode und Node Records gewesen, wäre der dynamische Typ 
BigNode bei der Zuweisung an n verloren gegangen. Eine umgekehrte 
Zuweisung b:=n wäre illegal oder zumindest sehr fraglich. Bei Objek¬ 
ten wird zu jedem Objekt ein dynamischer Typ mitgeführt, so daß die 
Legalität einer Zuweisung b : =n überprüft werden kann. Auch eine Ty¬ 
pumwandlung wie: 

WriteString(BigNode(n).name); 

kann ordnungsgemäß ausgeführt werden, da der Compiler automatisch 
einen Typtest ins Programm einfügt (dies kann bei fertigen Program¬ 
men durch $$TypeChk: =FALSE unterbunden werden). Wie sich aber 
noch zeigen wird, ist eine derartige Zuweisung dank der Verwendung 
dynamischen Bindens sehr selten. 

Der Typ eines Objekts wird auch als Klasse bzw. Klassenzugehörigkeit 
bezeichnet. 

Einen Nachteil haben Objekte gegenüber Records: Objekte können 
nicht als Variable existieren, nur Zeiger auf Objekte sind erlaubt. 

Der statische Typ eines Objektes ist immer durch den Zeiger auf 
dieses gegeben, der dynamische Typ (also der, den das Objekt nun wirk¬ 
lich hat) ist im Objekt selbst codiert. Der dynamische Typ eines Zei¬ 
gers auf ein Objekt kann sich während der Programmausführung durch 
Zuweisungen ändern, der statische Typ ist immer fest und durch die 
Typdefinition im Programmtext fest gelegt. Der Compiler achtet darauf, 
daß der dynamische Typ eines Objekts immer dem statischen entspricht, 
oder aber ein Nachfolger davon ist. 

4.5.2 Einfacherben 

Einfacherben gehorcht derselben Syntax und Semantik wie bereits von 
Records bekannt: 
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TYPE 


Fahrzeug 


POINTER TO OBJECT 


geschwindigkeit 


: REAL; 
: REAL; 


Flugzeug 


gewicht 

END; 

POINTER TO OBJECT 


OF Fahrzeug; 

: [ 0 .. 12 ]; 


Auto 


triebwerke 

END; 

POINTER TO OBJECT 


OF Fahrzeug; 

: [ 1 .. 8 ]; 


VW 


raeder 

END; 

POINTER TO OBJECT 


OF Auto; 

: (Kaefer,Golf,Polo 
Passat,Jetta) 


typ 


END; 


Der Nachfolger erbt alle Elemente und Fähigkeiten seines Vorgängers 
und kann diesem neue hinzufügen. Eine Zuweisungskompatibilität an 
seinen Vorgänger ist uneingeschränkt gegeben, der umgekehrte Fall wird 
durch eine Typüberprüfung während der Laufzeit gesichert. 

Beispiele für Zuweisungen: 

VAR fz,fz2 : Fahrzeug; 
fl : Flugzeug; 

au,au2 : Auto; 

VW : VW; 
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fz:=fl 


fz:=au 
fz:=vw 
au:=vw 
fl:=fz 
VW:=au 
fl:=au 
fl:=vw 
vw:=f1 


richtig, hierbei ändert sich der dynamische Typ von 
f z zn Flugzeug, ist also ein Nachfolger des statischen 
Typs Fahrzeug. 

richtig 

richtig 

richtig 

Laufzeittest 

Laufzeittest 

falsch 

falsch 

falsch 


Die Zugehörigkeit zu einer Klasse kann während der Laufzeit durch 
den relationalen Operator IS geprüft werden. Der Operator ist nur für 
Objekte gestattet, deren statischer Typ in linearer Nachfolge-/Vorgängerbeziehung 
zur getesteten Klasse stehen. 

Beispiele für Tests: 


fz 

sei Fahrzeug 

fz2 

sei VW 

fl 

sei Flugzeug 

au 

sei Auto 

au2 

sei VW 

VW 

sei VW 
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f z 

IS 

Fahrzeug 

f z2 

IS 

Fahrzeug 

VW 

IS 

VW 

VW 

IS 

Fahrzeug 

f z2 

IS 

Auto 

f z2 

IS 

VW 

au2 

IS 

VW 

f z2 

IS 

Flugzeug 

au 

IS 

VW 

au2 

IS 

Flugzeug 


statisch wahr 
statisch wahr 
statisch wahr 
statisch wahr 
dynamisch wahr 
dynamisch wahr 
dynamisch wahr 
dynamisch falsch 
dynamisch falsch 

fehlerhafte Anweisung, da der statische Typ von au2 
(also Auto) kein Nachfolger von Flugzeug ist, also 
sein dynamischer Typ unmöglich ein Nachfolger von 
Flugzeug sein kann. (Die Funktion könnte auch 
immer FALSE zurückgeben, doch deutet die Ver¬ 
wendung dieses Operators in diesem Zusammenhang 
eher auf einen Programmfehler hin, deshalb ist dies 
verboten). 


Der statische Typ eines Objektes kann seinem dynamischen Typ für 
einen Bereich im Programm angepaßt werden: 


Auto(fz).raeder:=4; 

I oder für längere Zeit: 
WITH VW(fz) DO 
fz.raeder:=4; 
fz.typ:=Kaefer; 

END; 


Damit ist im allgemeinen eine Typüberprüfung zur Laufzeit verbunden. 
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4.5.3 Methoden auf Objekte 

Auch (oder gerade) auf Objekte können Methoden erklärt werden. Diese 
müssen bereits bei der Typdeklaration angemeldet werden (Begründung 
später). Andererseits ist die Angabe der Methoden in einem Definitions¬ 
modul überflüssig, es reicht die Angabe in der Typdefinition. 

Beispiel: 


TYPE 

Lebewesen = POINTER TO OBJECT 

alter : INTEGER; 

METHOD Altere(um : INTEGER := 1); 
END; 

METHOD Lebewesen.Altere(um : INTEGER); 

BEGIN 

END Altere; 


Der Methodenaufruf erfolgt analog zu dem für Records: 

VAR le : Lebewesen; 

le.Altere;le.Altere(10); 


Die Elemente (Instanzvariablen) eines Objektes sind in der Implemen¬ 
tation der Methode unqualifiziert bekannt: 

METHOD Lebewesen.Altere(um : INTEGER); 

BEGIN 

INC(alter,um); 

END Altere; 
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Das Objekt selbst, für das die Methode aufgerufen wurde, ist unter dem 
Bezeichner SELF verfügbar: 

TYPE 

Lebewesen = POINTER TO OBJECT 

alter : INTEGER; 

METHOD Altere(um : INTEGER := 1); 

METHOD AltereStark; 

END; 

METHOD Lebewesen.AltereStark; 

BEGIN 

SELF.Altere(10); 

END AltereStark; 

4.5.3.1 Methoden und Erben (dynamisches Binden) 

Methoden von Objekten können beim Erben redefiniert, d. h. durch 
neue Methoden, die sich dann auf die geerbte Klasse beziehen, ersetzt 
werden. Die Methode muß hierbei bei der Definition des neuen Typs 
mit angegeben werden. Der Typ der neuen Methode muß mit dem der 
bestehenden übereinstimmen. 

TYPE 

Mensch = POINTER TO OBJECT OF Lebewesen; 

haarfarbe : (schwarz,dunkel,grau,weiss); 
METHOD Altere(um : INTEGER); 

END; 
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METHOD Mensch.Altere(um : INTEGER); 
BEGIN 

INC(alter,um); 

IF KEY alter 


OF 

0. 

.49 

THEN 

haarfärbe:=schwarz 

END 

OF 

50. 

.59 

THEN 

haarfärbe:=dunkel 

END 

OF 

60. 

.69 

THEN 

haarfarbe:=grau 

END 


ELSE 

haarfärbe:=weiss 
END; 

END Altere; 


Welche der Methoden während der Laufzeit ausgeführt werden, bes¬ 
timmt der dynamische Typ eines Objekts (im Gegensatz zu Methoden 
bei Records, wo der statische Typ entscheidend ist). So würde also für 
ein Objekt mit dem dynamischen Typ Mensch und dem statischen Typ 
Lebewesen immer die Methode mit der Haarfarbe aufgerufen. So kann 
man Prozeduren schreiben, die z. B. ein Lebewesen übergeben bekom¬ 
men, und dessen Methoden verwenden. Je nachdem, um was für ein 
Lebenwesen es sich handelt, wird automatisch die richtige Methode ver¬ 
wendet (bei der Methode Altere und einem Menschen, diemit der Haar¬ 
farbe). Die Prozedur muß nicht wissen um welche Art von Lebewesen es 
sich handelt. Somit kann man auch im Nachhinein beliebige Lebewesen 
ergänzen, ohne diese Prozedur verändern zu müssen. Würde man hier 
Records verwenden, die eine Variable enthalten, der angibt um welche 
Art Lebewesen es sich handelt, müßte innerhalb der Prozedur ein IF KEY 
stehen, daß abhängig von der Art eine andere Prozedur „Altere“ aufruft. 
Fügt man bei diesem Ansatz ein neues Lebewesen hinzu, muß auch ein 
neuer OF-Zweig in das IF KEY eingefügt werden. Beim objektorientierten 
Ansatz ist dies nicht nötig. 

Beispiel: 
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VAR le : Lebewesen; 
me : Mensch; 

le:=me; | Lebewesen ist sicher ein Mensch 
le.Altere; 

Auch der Aufruf von AltereStark würde letztendlich in einem Aufruf 
der Haarfarbmethode gipfeln, obwohl bei der Definition dieser Methode 
von der Existenz von Menschen (und der damit verbundenen Haarpro¬ 
bleme) noch nichts bekannt war. 

Mit dem Schlüsselwort SUPER haben redefinierte Methoden Zugriff 
auf Methoden der statischen Vorgängerklasse. Dies ist sinnvoll, falls 
die neue Methode eigentlich eine Erweiterung der bestehenden Methode 
dar st eilt. 

METHOD Mensch.Altere(um : INTEGER); 

BEGIN 

SUPER.Altere(um); | Rufe Methode deines 

I Vorgängers auf 

IF KEY alter 

OF 0..49 THEN haarfarbe:=schwarz END 
OF 50..59 THEN haarfarbe:=dunkel END 
OF 60..69 THEN haarfarbe:=grau END 
ELSE 

haarfarbe:=weiss 
END; 

END Altere; 

4.5.3.2 Aufgeschobene (deferred) Methoden und Klas¬ 
sen 

Eine aufgeschobene Methode ist eine solche, die zwar vereinbart, aber 
absichtlich nicht implementiert wird. Ein Aufruf einer derartigen Me¬ 
thode führt zu einem Laufzeitfehler. 
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Aufgeschobene Methoden können später durch wirklich existierende 
Methoden redefiniert werden. Dies ergibt erst den Sinn dieser Methoden. 
Sie dienen dazu, ein Objekt mit Fähigkeiten zu schaffen, die auf anderen 
Fähigkeiten basieren, die sehr abstrakt gehalten werden können. 

TYPE 

Stream = POINTER TO OBJECT 
termChar : CHAR; 

DEFERRED METHOD Read (VAR c : CHAR); 

DEFERRED METHOD Write(c : CHAR); 

METHOD WriteStringCREF s : STRING); 

METHOD ReadStringCVAR s : STRING); 

METHOD WriteLn; 

END; 

METHOD Stream. WriteStringCREF s : STRING); 

VAR i : INTEGER; 

BEGIN 

FOR i:=0 TO PRED(s.Ien) DO 
SELF.Write(s.data[i]); 

END; 

END WriteString; 

METHOD Stream.WriteLn; 

BEGIN 

SELF.Write(ASCII.If); 

END WriteLn; 

METHOD Stream. ReadStringCVAR s : STRING); 

VAR i : INTEGER := 0; 

c : CHAR; 

BEGIN 

SELF.Read(c); 

WHILE c NOT OF ASCII.If," ", ASCII.tab DO 
ASSERT(i<s’MAX,RangeVioIation); 
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s . data [i] : =c; 

INC(i); 

SELF.Read(c); 

END; 

termChar:=c; 
s.dataEi]:=ASCII.null; 

END ReadString; 

Ein Objekt dieser Klasse wäre ziemlich sinnlos, da jeder Anfrnf einer 
seiner Methoden zn einem Lanfzeitfehler führen würde. Ein Erbe die¬ 
ser Klasse kann allerdings dnrch Implementation von ReadO nnd/oder 
WriteO voll fnnktional werden. Es erbt auch alle erweiterten Methoden 
wie WriteStringO etc. Erst durch dieses Erben entsteht eine funk¬ 
tionsfähige Klasse. 

TYPE 

DosStream = POINTER TO OBJECT OF Stream; 

fh : Dos.FileHandlePtr; 

METHOD Read (VAR c : CHAR); 

METHOD WriteCc : CHAR); 

END; 

METHOD DosStream.Read (VAR c : CHAR); 

VAR i : INTEGER; 

BEGIN 

i:=Dos.Read(fh,c’PTR,1); 

IF KEY i 

OF 0 THEN RAlSE(Dos.EOF) END 

OF 1 THEN RAlSE(Dos.ReadError) END 
END 

END Read; 

METHOD DosStream.Write(c : CHAR); 

BEGIN 

ASSERT(Dos.Write(fh,c’PTR,1)=1,Dos.WriteError); 

END Write; 
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Ein weiterer Vorteil liegt darin, daß Objekte dieser Klasse znwei- 
sungsfähig an Objekte (bzw. Objektzeiger) der nrsprüngliclien Klasse 
sind. 

Beispiel: ein Filter, der alle Nennnngen von „Gott“ in „jenes höhere 
Wesen, das wir verehren“ (frei nach „Mnrkes gesammeltes Schweigen“) 
ersetzt. 


PROCEDURE MurkeFilter(in,out : Stream); 

VAR s : STRING(100); 

BEGIN 

TRY 

LOOP 

in.ReadString(s); 

IF Strings.Equal(s,"Gott") THEN 

out.WriteStringCjenes höhere Wesen, das wir verehren") 
ELSE 

out.WriteString(s); 

END; 

out.Write(in.termChar); 

END; 

EXCEPT 

OF Dos.EOF THEN END 
END; 

END MurkeFilter; 


Dieser Filter arbeitet mit allen Arten von fnnktionsfähigen Streams zn- 
sammen, obwohl er kein Wissen über deren vollständige Implementie- 
rnng trägt. 

Im obigen Beispiel könnte die Methode WriteString in 
DosStream ans Performancegründen ebenfalls überdefiniert werden: 
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METHOD DosStream.WriteStringCREF s : STRING); 
BEGIN 

ASSERT(Dos.Write(fh,s.data ’ PTR,s.len)=s.len, 
Dos.WriteError); 

END WriteString; 


Grundsätzlich kann jede Methode bei jedem Erbvorgang durch eine neue 
ersetzt werden. Wird sie das nicht, wird beim Aufruf die des Vorgängers 
verwendet. 

Eine aufgeschobene Klasse ist eine Klasse, die keine eigentliche Eunk- 
tionalität besitzt, und nur durch Beerben und Redehnition der aufges¬ 
chobenen Methoden sinnvoll wird. 


4.5.3.3 Die Methoden Construct und Destruct 

Häuhg benötigen Objekte Hilfsmittel, um ihre Eähigkeiten zu erhal¬ 
ten (z. B. das FileHandle des Objektes DosStream). Diese Hilfsmittel 
müssen bei der Erzeugung des Objektes alloziert bzw. initialisiert und bei 
der Vernichtung des Objektes wieder freigegeben werden. Dazu dienen 
die parameterlosen Methoden Construct und Destruct. Sie werden bei 
der Erzeugung bzw. Vernichtung eines Objektes aufgerufen. 

Beispiel: 

TYPE 

DosStream = POINTER TO OBJECT OF Stream; 

fh : Dos.FileHandlePtr; 

METHOD Read (VAR c : CHAR); 

METHOD Write(c : CHAR); 

METHOD Destruct; 

END; 

METHOD DosStream.Destruct; 

BEGIN 
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IF fh#NIL THEN 

Dos.Close(fh);fh:=NIL 
END; 

END Destruct; 

Oder ein Filterobjekt, das jedem ASCII-Zeichen ein anderes zuordnen 
kann: 

TYPE 

Filter = POINTER TO OBJECT; 

table : POINTER TO ARRAY CHAR OF CHAR; 
METHOD SetFilter(from,to : CHAR); 

METHOD TranslateCc : CHAR):CHAR; 

METHOD Construct; 

METHOD Destruct; 

END; 

METHOD Filter.SetFilter(from,to : CHAR); 

BEGIN 

table[from]:=to 
END SetFilter; 

METHOD Filter.TranslateCc : CHAR):CHAR; 

BEGIN 

RETURN table[c] 

END Translate; 

METHOD Filter.Construct; 

VAR c : CHAR; 

BEGIN 

Resources.New(table); 

FOR c:=CHAR’MIN TO CHAR’MAX DO 
table [c] : =c; 

END; 

END Construct; 
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METHOD Filter.Destruct; 
BEGIN 

Resources.Dispose(table) 
END Destruct; 


Diese Methoden haben zwei große Unterschiede zn allen anderen norma¬ 
len Methoden; erstens werden sie vom Lanfzeitsystem anfgernfen, zwei¬ 
tens wird nicht die jüngste Methode anfgernfen, sondern alle, die sich im 
Stammbaum angesammelt haben. Eine Con/Destruct Methode sollte 
sich also nur um Dinge kümmern, die direkt mit der aktuellen Ausbaus¬ 
tufe des Objekts Zusammenhängen. Spezielle Initialisierungen sollten im 
CONSTRUCTOR vorgenommen werden (siehe 4.5.4). 


4.5.4 Erzeugung und Vernichtung von Objekten 

Da bei der Erzeugung von Objekten im allgemeinen Initialisierungen 
vorgenommen werden müssen, scheidet ein einfaches Allozieren von vor- 
neherein aus. Objekte können auf zwei Arten erzeugt werden, durch 
einen Constructor (eine besondere Methode) oder durch die Standard¬ 
prozedur NEW (evtl, nicht mehr lange). Die Vernichtung erfolgt analog 
durch einen Destructor bzw. DISPOSE. Beispiel: 

TYPE 

DosStream = POINTER TO OBJECT OF Stream; 

fh : Dos.FileHandlePtr; 

CONSTRUCTOR Create(REF name : STRING); 
CONSTRUCTOR Open(REF name : STRING); 
DESTRUCTOR Close; 

METHOD Read (VAR c : CHAR); 

METHOD WriteCc : CHAR); 

METHOD Destruct; 

END; 
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METHOD DosStream.Create(REF name : STRING); 
BEGIN 

fh:=Dos.Open(name,Dos.newFile) 

ASSERT(fh#NIL,Dos.Obj ectNotFound); 

END Create; 

METHOD DosStream. Open(REF name : STRING); 
BEGIN 

fh:=Dos.Open(name,Dos.oldFile) 

ASSERT(fh#NIL,Dos.Obj ectNotFound); 

END Open; 

METHOD DosStream.Close; BEGIN END Close; 


Wird für ein (im allgemeinen noch nicht existierendes Object) ein Constrnc- 
tor anfgerufen, wird dieses erzeugt (anhand des statischen Typs). Da¬ 
nach wird die Constructor Methode (in diesem Fall z. B. Open) aufgeru¬ 
fen, die weitere Initialisierungen vornehmen kann. Alle Instanz variablen 
eines Objektes werden mit 0, NIL, FALSE etc. vorinitialisiert. Die Ver¬ 
nichtung läuft umgekehrt ab, erst wird der Destructor aufgerufen, dann 
das Objekt vernichtet. Im obigen Beispiel ist Close mehr pro forma 
deklariert, da die eigentliche Vernichtung des FileHandles durch die Me¬ 
thode Destruct vorgenommen wird. 

Eine Klasse kann beliebig viele Constructoren besitzen, auch dürfen 
diese als einzige Methode durch Constructoren mit anderen Parametern 
überdefiniert werden, da sie statisch (aus dem statischen Typ) ermittelt 
werden. 

Beispiel: 
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VAR in,out : DosStream; 

BEGIN 

in.Open("Rede die 1."); 
out.CreateC"Rede die 2."); 
MurkeFilter(in,out); 
out.Close; 
in.Close 
END ... 


Die Erzeugung mit NEW und DISPOSE sollte nur für sehr einfache Objekte 
verwendet werden, ihre weitere Existenz ist außerdem fraglich. 


in:=NEW(DosStream); 
out:=NEW(DosStream); 
DISPOSE(in); 
DISPOSE(out); 


Eine weitere Möglichkeit, ein Objekt zu erzeugen, ist ein bestehendes zu 
verdoppeln (Klonen). Dies kann durch die Standardfunktion CLONE ges¬ 
chehen. (Allerdings wird wohl in Zukunft eine andere Technik verwendet 
werden). 


p:=CL0NE(q); 

Der Unterschied zwischen Con-/Destruct und C0N-/DESTRUCT0R 

Die CON-/DESTRUCTORen werden vom Programmierer zur Erzeugung bzw. 
Vernichtung eines Objektes eingesetzt. Da es mehrere Arten gibt, wie ein 
Objekt erzeugt werden kann, und auch evtl. Parameter für die Initiali¬ 
sierung benötigt werden, kann eine Klasse mehrere CON-/ DESTRUCTORen 
mit verschiedenen Parametern besitzen. 
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Die Methoden Con-/Destruct werden vom LanfzeitSystem während 
der Initialisiernng nnd Vernichtnng anfgernferl^ Sie dienen einer grnnd- 
legenden Initialisiernng bzw. einer Freigabe von Betriebsmitteln, wenn 
ein Objekt nnter Notfallbedingnngen (z. B. Lanfzeitfehler, verlassen eines 
Kontexts) gerät. Sie können anch die Verwaltnng von Betriebsmitteln 
an übergeordnete Schichten verheimlichen. 

4.5.5 Mehrfacherben (multiple inheritance) 

Oft ist es sinnvoll, wenn eine Klasse nicht nnr von einer Vorgängerklasse, 
sondern von beliebig vielen erben kann. 

Beispiel: 


TYPE 

InputStream = POINTER TO OBJECT 

termChar : CHAR; 

DEFERRED METHOD Read (VAR c : CHAR); 
METHOD ReadStringCVAR s : STRING); 
END; 

OutputStream = POINTER TO OBJECT 

DEFERRED METHOD Write(c : CHAR); 
METHOD WriteStringCs : STRING); 
METHOD WriteLn; 

END; 


InOutStream 


= POINTER TO OBJECT OF InputStream, 

OutputStream; 


END; 


Ein Objekt der Klasse InOutStream vereinigt die Fähigkeiten eines 

^Also beim Aufruf von New/Dispose oder bei der Verwendung eines 
Constructors/Destructors 
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InputStream mit denen eines OutputStream nnd ist auch zuweisung¬ 
skompatibel zu beiden. 

Beispiele für legale Anweisungen und Ausdrücke: 


VAR in : InputStream; 
out : OutputStream; 
io : InOutStream; 

BEGIN 

in:=io; 
out:=io; 

IF in IS InOutStream THEN ... 
IF out IS InOutStream THEN ... 

MurkeFilter(io,out); 


falls dieser definiert wird als 

PROCEDURE MurkeFilter(in : InputStream; 

out : OutputStream); 


4.5.5.1 Probleme beim Mehrfacherben 

Schwierig wird Mehrfacherben, wenn in der Hierarchie gleiche Bezeichner 
auftauchen. Dies kann auf zwei Arten geschehen, erstens, in einem der 
Väter taucht ein Bezeichner auf, der auch in einem anderen existiert, 
oder zweitens, eine Klasse ist zweimal Erbe derselben Klasse. (ACH¬ 
TUNG, der Compiler führt zur Zeit noch keinen Test bei Mehrfacherben 
aus, es kann also unerkannt zu Problemen kommen. Dieser Mangel wird 
demnächst behoben.) 

Diesem Problem kann durch Qualifizierung beigekommen werden, 
dabei werden einem oder mehreren Elternteilen qualifizierende Bezeich- 
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ner beigestellt, die bei der Referenzierung ihrer Elemente benutzt werden 
können. 

Beispiel: Knoten für eine Kreuzliste: 


TYPE 

DoubleNode = POINTER TO OBJECT OF Node AS h, 

Node AS v; 


END; 

VAR dn : DoubleNode; 


Auf die Elemente der DoubleNode kann nun über die qualifizierenden 
Bezeichner . h und . v zugegriffen werden. Die volle Mächtigkeit kommt 
erst durch Generizität zum Tragen. 

Eine andere Lösung wäre folgende: Wenn eine Klasse in der Hierar¬ 
chie mehrmals auftaucht, sie dennoch nur einmal vorhanden ist. Dies 
wäre sehr sinnvoll für verschiedene Anwendungen, wirft aber neue Pro¬ 
bleme auf, die im Moment eine Implementation noch verzögern (z. B. 
wenn aus der bestehenden Hierarchie zwei verschiedene Methodenrede¬ 
finitionen für diese Klasse existieren). 

4.5.6 Objekte und Generizität 

Generizität bedeutet, daß Module mit abstrakten Datentypen definiert 
werden können, die dann für tatsächlich existierende Typen ausgeprägt 
werden. Die aktuellen Typen können dabei durch Eorderungen (im all¬ 
gemeinen geschieht dies durch eine Nachfolger-Vorgänger Bedingung) 
eingegrenzt werden. 

Es stellt sich die Erage, wozu generische Module, wenn doch der Typ 
eines Objektes auch dynamisch ermittelt werden kann und somit also 
keine illegalen Zuweisungen oder Verwendungen möglich sind. 
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Die Antwort ist einfach, Generizität erhöht die statische Sicherheit 
eines Programmes, vermeidet somit sowohl nnnötige Typchecks als auch 
mögliche Laufzeitfehler. 

Die Regeln für generische Module sind im Prinzip dieselben wie die 
bei Records. Lediglich durch das Mehrfacherben ergibt sich eine Erwei¬ 
terung. 

Definition: 

DEFINITION MODULE Lists ( Node : POINTER TO NodeObj); 
TYPE 

NodeObj = OBJECT 

prev,next : Node; 

END; 

List = POINTER TO OBJECT 

first,last : Node; 

METHOD InsertFirst(n : Node); 

METHOD RemoveNodeCn : Node); 

END; 

END Lists; 

Ausprägung: 

TYPE 

TextNode = POINTER TO TextNodeObj; 

DEFINITION MODULE TextLists = Lists(TextNode); 

TYPE 

TextNodeObj = OBJECT OF TextLists.Node; 

text : CLASSPTR TO STRING 
END; 

TextList = TextLists.List; 


Mehrfache Ausprägung: 
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TYPE 

Edge = POINTER TO EdgeObj; 

DEFINITION MODULE FLists = Lists(Edge.fnode); 

DEFINITION MODULE TLists = Lists(Edge.tnode); 

TYPE 

Vertex = POINTER TO OBJECT OF FLists.List AS from, 

TLists.List AS to; 

END; 

EdgeObj = OBJECT OF FLists.Node AS fnode, 

TLists.Node AS tnode; 
froiüjto : Vertex; 

METHOD Add(from,to : Vertex); 

METHOD Remove; 

END; 

METHOD Edge.Add(from,to : Vertex); 

BEGIN 

from.from.InsertFirst(SELF);SELF.from:=from; 
to.to.InsertFirst(SELF);SELF.to:=to; 

END Add; 

METHOD Edge.Remove; 

BEGIN 

from.from.Remove(SELF);from:=NIL; 
to.to.Remove(SELF);to:=NIL; 

END Remove; 

Anhand der generischen Ansprägung der beiden Listenknoten in Edge 
wird beim Aufruf von InsertFirst/Remove der richtige der beiden Kno¬ 
ten automatisch erkannt. Andernfalls müßten die Knoten in der Kante 
über die Qualifizierung bezeichnet werden. Ein weiteres Beispiel wäre ein 
Knoten, der sowohl von einem Listenknoten, als auch von einem Baum 
erbt, und somit sowohl in eine Liste, als auch in einen Baum eingehängt 
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werden kann. 


4.5.7 Resourcetracking mit Objekten 


Objekte werden wie alle anderen Speicherstücke auch über Resources 
alloziert. Die dazu verwendeten Funktionen sind jedoch gegenüber dem 
Programmierer durch Constructoren und Destructoren versteckt. Ob¬ 
jekte existieren relativ zu einem Kontext; bei dessen Vernichtung wer¬ 
den auch sie vernichtet. Um objektbezogene Resourcen (wie zusätzlichen 
Speicher oder Systemelemente) immer mit dem Objekt (also auch bei 
Freigabe des Objekts durch Kontextvernichtung) freizugeben, sollten 
Destruct-Methoden verwendet werden (siehe auch Beispiel in 4.5.3.3). 


Ein anderes Problem besteht darin, daß Objekte immer zum aktuel¬ 
len Kontext erzeugt werden. Dies ist in manchen Fällen nicht wünschenswert. 
Dafür besteht die Möglichkeit, den Kontext eines Objektes zu ändern, es 
also in einen anderen Existenzbereich umzuhängen. Dies wird vorläufig 
durch die Resources Eunktion ChangeObjContext realisiert. 
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Beispiel: 

TYPE 

DosStream = POINTER TO OBJECT OF Stream; 

fh : Dos.FileHandlePtr; 

CONSTRUCTOR Create(REF name : STRING; 

con : Context := NIL); 
CONSTRUCTOR Open(REF name : STRING; 

con : Context := NIL); 

DESTRUCTOR Close; 

METHOD Read (VAR c : CHAR); 

METHOD WriteCc : CHAR); 

METHOD Destruct; 

END; 

METHOD DosStream. Create(REF name : STRING;con : Context); 
BEGIN 

IF con#NIL THEN 

Resources.ChangeObj Context(SELF,con); 

END; 

fh:=Dos.Open(name,Dos.newFile) 

ASSERT(fh#NIL,Dos.Obj ectNotFound); 

END Create; 

METHOD DosStream.Open (REF name : STRING;con : Context); 

BEGIN 

IF con#NIL THEN 

Resources.ChangeObj Context(SELF,con); 

END; 

fh:=Dos.Open(name,Dos.oldFile) 

ASSERT(fh#NIL,Dos.Obj ectNotFound); 

END Open; 
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METHOD DosStream.Close;BEGIN END Close; 

Die Funktion ChangeObjContext wird, wenn diese Lösung beibehalten 
wird, zu einer Standardfunktion erhoben. 

Sie sehen, es sind noch nicht alle Probleme gelöst, wir sind daher 
sehr daran interessiert, Ihre Meinung zum momentanen Ansatz zu hören, 
damit wir Ihre Ideen und Anregungen in die endgültige Implemetation 
einfließen lassen können. 
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4.6 Dynamische Strukturen 

Bei den wenigsten Problemen nnd Programmen kommt man mit sta¬ 
tischen Datenstrnktnren, wie Arrays oder Records aus. Meist ist die 
Größe der zu speichernden Daten nicht bekannt oder schwankt während 
der Laufzeit extrem. Doch selbst bei bekannter Größe kann eine dyna¬ 
mische Struktur sinnvoll sein, da sie sich fast ohne Aufwand umordnen 
läßt, so daß es nicht nötig ist, bei jeder Operation den ganzen Speicher 
hin und her zu schieben. 

Die wichtigsten Elemente dynamischer Strukturen sind Zeiger (Poin¬ 
ter) und Knoten (Node). 

Knoten sind die eigentlichen Träger der Daten, Zeiger stellen die Ver¬ 
bindungen zwischen ihnen dar, wie Städte, die durch Straßen verbunden 
sind. Ein Zeiger ist eine Verbindung eines Knotens zu einem anderen, 
dessen Richtung bekannt ist (Einbahnstraße). Die Repräsentanz eines 
Zeigers im Gomputer ist die Adresse des angepeilten Knotens. 

Beispiel: 

TYPE 

Ptr = POINTER TO Node; 

Node = RECORD 

END; 

VAR 

p,q : Ptr; 

n : Node; 

Variablen vom Typ Node sind die Informationsträger, die des Typs Ptr 
sind nur Verweise darauf. Man sagt, Ptr zeigt auf Node. 

Ein Zeiger selbst trägt keine eigentliche Information, er erlaubt ledi¬ 
glich den Zugriff darauf. Ein nicht initialisierter Zeiger zeigt irgendwo¬ 
hin, ihm muß erst noch ein Ziel zugewiesen werden. Dies kann auf drei 
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Arten geschehen, ihm wird Platz für sein Informationspaket beschafft (al- 
loziert) New(p) , ihm wird das Ziel eines anderen Zeigers zngewiesen p : =q 
oder er bekommt einen bereits vorhandenen Knoten als Ziel p:=n’PTR. 
Die Prozednr New() wird aus dem Modul Resources importiert. 

Ein Zeiger kann auch bewußt nirgendwohin zeigen (man spricht auch 
von „geerdeten“ Zeigern), dazu weist man ihm als Ziel NIL zu. NIL ist 
eine Konstante für alle Zeiger, und bedeutet „nirgends“. 

Ein noch nicht initialisierter Zeiger zeigt nicht nach NIL, sondern ir¬ 
gendwohin in den Speicher. Und die einfachste Möglichkeit einen Rech¬ 
ner nach Indien zu schicken ist, einen nicht initialisierten Zeiger zu be¬ 
nutzen. 

Um von einem Zeiger auf den durch ihn bezeichneten Knoten zu 
kommen, muß man ihn dereferenzieren. Dies geschieht durch einen nach¬ 
gestellten Hochpfeil also z. B. p''. Das Ergebnis dieser Operation ist 
der durch den Zeiger bezeichnete Knoten. Wenn also p:=n’Ptr gesetzt 
wird, ist p'' genau n. 

Um das Ziel, das durch einen Zeiger bezeichnet wird, wieder zu ver¬ 
nichten, d. h. den dadurch belegten Speicherplatz freizugeben, benutzt 
man Dispose (p) . Dabei wird p auch gleich auf NIL gesetzt. Die Ereigabe 
eines nicht mit New besorgten Speicherstückes führt zu einem Laufzeit¬ 
fehler. 

Das Belegen und wieder Ereigeben von Datenpaketen ist der Grund, 
warum auf diese Art erzeugte Strukturen als dynamisch bezeichnet wer¬ 
den, im Gegensatz zu statischen Strukturen, die immer dieselbe Ausdeh¬ 
nung besitzen. 

Zur einfacheren Darstellung dynamischer Strukturen benutzt man 
meist ein Pfeil-Kästchen-Diagramm, in dem Zeiger durch Pfeile und Kno¬ 
ten durch Kästchen dargestellt werden. Ist der Zeiger NIL, dann wird 
statt des Pfeils ein Punkt gezeichnet. 
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Ptr 

P m 


Node 



Abbildung 4.5: Pointer p zeigt auf Speicherinhalt n 

4.6.1 Einfach verkettete Listen 

Die einfach verkettete Liste ist die einfachste dynamische Datenstrnktnr. 
Sie ist relativ nnflexibel, aber einfach zu erzeugen und zu vernichten. Das 
Prinzip ist, daß jeder Knoten der Liste einen Zeiger auf einen Nachfol¬ 
geknoten enthält. Der erste Knoten wird durch einen eigenen Zeiger 
„gehalten“, der letzte zeigt auf NIL, um das Ende zu markieren. 

TYPE 

List = POINTER TO Node; 

Node = RECORD 

next : List; 

data : INTEGER 
END; 

VAR 

myList: List; 

BEGIN 

myList:=NIL; (* Liste als leer kennzeichnen *) 


Das Verhalten dieser Liste ist das einer Seilschaft bei Bergsteigern, der 
erste hält sich am Gipfel fest (myList), alle weiteren hängen an ei- 
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nem Seil an ihrem Vordermann (next). Am letzten hängt keiner mehr 
(next=NIL). Wird das Seil gekappt, und das Ende verloren, gehen alle 
Mitglieder dahinter den Bach, nein, Berg hinab; verliert man also den 
Zeiger auf ein Element der Liste, sind auch alle Nachfolger verloren. 


List Node 


myList- 


- 


- 

NIL 








Abbildung 4.6: Eine einfach verkettete Liste 

Das Einfügen am Anfang der Liste ist recht einfach, man muß nur einem 
neuen Element das bisher erste als Nachfolger zuweisen, und den Zeiger 
auf den Listenanfang auf das neue umbiegen. 


PROCEDURE Insert (VAR list : List; data : INTEGER); 
VAR p : List; 

BEGIN 
New(p); 

p''.data: =data; 
p'' .next: =Iist; 
list:=p; 

END Insert; 


myUst 


D 


List Node 



Abbildung 4.7: Einfügen am Anfang 
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Einfügen nach einem Element ist auch kein Hexenwerk, das Verfahren 
ist dasselbe wie eben, nur muß für list der Nachfolgezeiger des entspre¬ 
chenden Elements übergeben werden, also z. B.: Insert (e'' .next ,12). 

Das Suchen in einer Liste erfolgt der Reihe nach, wobei das Ende 
der Liste, und somit der Mißerfolg der Suche, durch einen Zeiger auf NIL 
bezeichnet wird. 


PROCEDURE FindClist : List; data : INTEGER):List; 
BEGIN 

WHILE (Iist#NIL) AND (list''. data#data) DO 
list: =Iist''. next 
END; 

RETURN list 
END Find; 


Löschen des ersten Elements einer Liste ist ebenfalls recht einfach, man 
muß nur den Listenanfang ein Element weiterschieben, und dann das 
alte Anfangselement freigeben. 
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PROCEDURE DeleteFirst (VAR list 


VAR p : List; 

BEGIN 
p:=list; 

list: =list'' .next; 
Dispose(p) 


END DeleteFirst; 


List) ; 


myUst 


D 



Abbildung 4.8: Löschen des ersten Elements 

Das Löschen eines Elements aus der Mitte heraus ist nur dann möglich, 
wenn sein Vorgänger bekannt ist, da dessen Nachfolgezeiger umgebogen 
werden muß. Soll ein bestimmtes Element gelöscht werden, das durch 
sein Datenfeld bezeichnet wird, muß beim Suchen auch berücksichtigt 
werden, daß der Vorgänger ebenfalls noch zur Verfügung steht. Dafür 
existieren zwei grundlegende Methoden, Indirektion und Schlepp zeig er. 

Bei der Indirektion wird ein Element immer durch den Zeiger seines 
Vorgängers angesprochen p''. next''. data, so daß der Vorgänger des 
entsprechenden Elements automatisch bekannt ist. 














54 


KAPITEL 4. FORTGESCHR. PROGRAMMIEREN 


PROCEDURE DeleteElem(VAR list : List; 

data : INTEGER); 

VAR p : List; 

BEGIN 

IF list#NIL THEN 

IF list''.data=data THEN 
DeleteFirst(list) 

ELSE 

p:=list; 

WHILE (p''.next#NIL) 

AND_WHILE (p''.next''.data#data) DO 
p: =p''. next 
ELSE 

DeleteFirst (p'' .next) 

END 

ELSE 

RAISE2(NotFoundError) 

END; 

END 

ELSE 

RAISE2(EmptyListError) 

END 

END DeleteElem; 



Abbildung 4.9: Löschen eines Nachfolgers 

Bei der anderen Methode werden zwei Zeiger verwendet, wobei der eine, 
der geschleppte immer auf das Vorgängerelement zeigt. 
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PROCEDURE DeleteElem(VAR list : List; 

data : INTEGER); 

VAR s,p : List; 

BEGIN 
p:=list; 

IF p#NIL THEN 
s:=NIL; 

WHILE p#NIL 

AND.WHILE p''.data#data DO 
s:=p; 

p:=p'' .next 
ELSE 

IF s=NIL THEN 

DeleteFirst(list) 

ELSE 

DeleteFirst (s''.next) 

END 

END 

ELSE 

RAISE2(NotFoundError); 

END; 

ELSE 

RAISE2(EmptyListError); 

END 

END DeleteEIem; 

Bei diesen beiden Verfahren ist immer der Fall zu berücksichtigen, daß 
das zu löschende Element schon das erste sein kann. Um dem zu entgehen 
verwendet man manchmal ein Hilfselement, daß als erstes Element in der 
Liste liegt, aber keine Daten enthält. Dieses Element wird nie gelöscht, 
neue Elemente werden immer nach ihm eingefügt. 

Im allgemeinen, werden Sie jedoch nicht darauf angwiesen sein, selbst 
eine solche Liste zu programmieren. Eür diese Anwendung existiert ein 
generisches Modul im Standardmodul Lists, das alle hier beschriebenen 
Routinen und noch einige mehr enthält. 
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Abbildung 4.10: Löschen mit zwei Zeigern 
List Node 


myUst 


Hilfselement 

Abbildung 4.11: Liste mit Hilfselement 


Um dem Problem, den Vorgänger zn finden, zn entkommen, verwen¬ 
det man doppelt verkettete Listen. 


4.6.2 Doppelt verkettete Listen 

Bei diesem Listentyp zeigt jeder Knoten nicht nnr anf seinen Nachfolger 
sondern auch auf seinen Vorgänger. 
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TYPE 

List = POINTER TO Node; 
Node = RECORD 
prev, 

next : List; 

data : INTEGER; 

END; 

VAR 

myList: NodePtr; 


myList 


List Node 



Abbildung 4.12: Doppelt verkettete Liste 

Einfügen in diese Liste ist etwas komplizierter, als bei einer einfachen 
Liste, da ja beide Zeiger gesetzt werden müssen. 


PROCEDURE InsertStart (VAR list : List; 

data : INTEGER); 

VAR p : List; 

BEGIN 
New(p); 

p''.data: =data; 
p'' .prev: =NIL; 
p'' .next: =Iist; 

IF Iist#NIL THEN 
list'' .prev:=p; 

END; 

list:=p; 

END InsertStart; 
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myList 


D 


List Node 



Abbildung 4.13: Einfügen am Anfang der Liste 


PROCEDURE InsertAfterCprev : List; 

data : INTEGER); 

VAR p : List; 

BEGIN 
New(p); 

p''.data: =data; 
p'' .prev:=prev; 
p''. next: =prev''. next; 

IF prev''.next#NIL THEN 
prev''. next''. prev: =p; 

END; 

prev'' .next :=p; 

END InsertAfter; 


Dafür ist aber das Löschen eines Elementes wesentlich einfacher, da der 
Vorgänger nicht mehr bekannt sein mnß. 
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List 



Abbildung 4.14: Einfügen hinter einem Element 

PROCEDURE Delete(VAR list : List; 

elem : List); 

BEGIN 

IF elem^.prev=NIL THEN 
list''. next: =elem'' .next; 

ELSE 

elem''. prev''. next: =elem''. next 
END; 

IF elem''.next#NIL THEN 

elem''. next''.prev: =elem''. prev 
END; 

END Delete; 


Auch für doppelt verkettete Listen exisiert ein generisches Modul im 
Standardmodul Lists. 

Um dem Problem des ersten Knotens zu entkommen, kann auch 
hier ein Hilfselement am Anfang benutzt werden. Noch einfacher ist 
allerdings die Verwendung einer Ringliste. 
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Abbildung 4.15: Löschen eines Elements 


4.6.3 Ringlisten (zirkuläre Listen) 


Bei einer Ringliste zeigt das letzte Element nicht nach NIL, sondern auf 
das erste Element der Liste (bei doppelter Verkettung auch das erste 
auf das letzte). Noch einfacher zu handhaben ist eine Ringliste mit 
Hilfselement. 


Das Amiga Betriebssystem verwendet eine seltsame Abart davon 
in fast allen Strukturen des Systems. Die Prozeduren zur Verwaltung 
solcher Systemlisten sind im Kapitel 5.3.2 über das Programmieren des 
Betriebssystems beschrieben. 

Hier ist unsere Form einer Ringliste: 


TYPE 

List = POINTER TO Node; 

Node = RECORD 
prev, 

next : List; 

data : INTEGER; 

END; 

VAR 

myList: List; 

Das Erzeugen einer Liste dieses Typs verlangt etwas mehr Aufwand, als 
bei Listen ohne Hilfselemt, da dieses ja erzeugt werden muß. 
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Abbildung 4.16: Ringliste 

PROCEDURE Create(VAR list : List); 

BEGIN 

New(list); 
list'' .next :=list; 
list'' .prev:=list; 

END Greate; 


Die Bedingung für eine leere Liste ist auch nicht so einfach. 


PROCEDURE EmptyClist : List):BOOLEAN; 
BEGIN 

RETURN list''. next=list 
END Empty; 


Dafür ist das Einfügen in so eine Liste an beliebiger Position nicht sehr 
aufwendig. 
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PROCEDURE InsertAfter(elem : List;data : INTEGER); 
VAR p : List; 

BEGIN 
New(p); 

p''.data: =data; 
p''. next: =elem''. next; 
p'' .prev:=elem; 
elem'' .next'' .prev:=p; 
elem'' .next :=p; 

END InsertAfter; 

PROCEDURE InsertBefore(eIem : List;data : INTEGER); 
VAR p : List; 

BEGIN 
New(p); 

p''.data: =data; 

p'' .next :=elem; 

p''. prev: =elem''. prev; 

elem''. prev''. next: =p; 

elem'' .prev:=p; 

END InsertBefore; 


Auch das Entfernen eines Elements ist absolut problemlos. 


PROCEDURE DeleteCelem : List); 
BEGIN 

elem''. prev''. next: =elem''. next; 
elem'' .next'' .prev:=elem'' .prev; 
Dispose(elem); 

END Delete; 


Implementieren Sie doch eine solche Ringliste als generisches Modul, 
dann können Sie sie immer wieder für jeden beliebigen Typen verwenden. 


©1992/93 by StoneWare 



4.6. DYNAMISCHE STRUKTUREN 


63 


Zum Schluß noch ein Beispiel, Einfügen in eine sortierte Liste, also 
eine Liste in der jedes Element kleiner oder gleich seinem Nachfolger ist 
(elem''. data<=elem''.next''. data). Um das Element in der Liste zu 
finden, vor dem das neue Element eingefügt werden muß, empfiehlt sich 
die Suche mit einem Wächterwert. 


PROCEDURE InsertSortedClist : List: 


BEGIN 

List'' .data:=data; 
REPEAT 


data : INTEGER); 

(* Wächterelement *) 


list :=list'' .next 
UNTIL list''.data<=data; 
InsertBefore(list,data); 
END InsertSorted; 


4.6.4 Bäume 

Ein Baum ist eine andere dynamische Datenstruktur, im Unterschied zur 
Liste kann hier jeder Knoten über mehrere Nachfolger verfügen. Alle 
Knoten, bei Bäumen auch Aste und 5/ätter genannt, haben genau einen 
Vorgänger, bis auf einen, die Wurzel, der keinen Vorgänger besitzt. Ein 
Beispiel für einen Baum mit vier Asten: 


TYPE 

Tree = POINTER TO Root; 

Root = RECORD 

sons : ARRAY [0..3] OF Tree; 
data : INTEGER; 

END; 

VAR 

myTree: Tree; 



64 


KAPITEL 4. FORTGESCHR. PROGRAMMIEREN 


Tree 

myT ree _Z 
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(data) 






(data) 


Root 
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Abbildung 4.17: Baum mit vier Asten 


In einem Banm mit beliebig vielen Asten pro Knoten, verwendet man 
am besten eine Liste, die die Nachfolger enthält. 

TYPE 

Tree = POINTER TO Root; 

List = POINTER TO Node; 


Node 

= RECORD 



next : 

: List; 


data : 

END; 

: Tree; 

Root 

= RECORD 



sons : 

: List; 


data : 

END; 

: INTEGER; 


Diese Mischstrnktnr läßt sich auch zu einer einzigen zusammenfassen. 

Tree = POINTER TO Root; 

Node = RECORD 
son. 
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myTree 


Tree Root 



Abbildung 4.18: Baum als Mischstruktur 
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brother : Tree; 
data : INTEGER; 
END; 


Funktionen zur Erzeugung und zur Verwaltung eines solchen Baumes, 
finden Sie in einem generischen Modul im Standardmodul Trees. 


myTree 


Tree Root 



Abbildung 4.19: Vereinheitlichte Mischstruktur 

Hierbei zeigt ein Knoten nicht nur auf seinen Nachfolger, sondern auch 
auf einen Mitnachfolger seines Vorgängers. Die wichtigste Art Baum ist 
der Binärbaum. Bei ihm hat jeder Knoten maximal zwei Nachfolger, 
wobei sich der linke vom rechten unterscheidet. 

TYPE 

Tree = POINTER TO Root; 

Root = RECORD 
lef t, 

right : Tree; 
data : INTEGER; 
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END; 


Tree 


Root 


myTree 
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Abbildung 4.20: Binärbaum 


Auch für die Anwendung dieses Baumtyps finden Sie Routinen im Modul 

Trees. 

Ein Beispiel für die Verwendung eines Binärbaumes ist ein Parse¬ 
baum eines mathematischen Ausdrucks: 
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TYPE 

Tree = POINTER TO Root; 

Root = RECORD 

IF KEY type : CHAR 


Qp ii^it it_it 11,^11 II y II 

THEN left. 



right 

: Tree; 

OF "C" 

THEN value 

: INTEGER; 

END; 




END; 


Der Ausdruck 3 + 4* (5/2 + 6) wäre in der Darstellung mit diesem Baum 
unter Berücksichtigung von Punkt vor Strich: 

Die Ausgabe eines derartigen Baumes ist auf drei Arten möglich, 
Prefix (die Ausgabe der Wurzel erfolgt vor den Asten), Infix (die Wurzel 
wird zwischen den beiden Asten ausgegeben) und Postfix (die Wurzel 
wird am Schluß ausgegeben). 
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Abbildung 4.21: Parsebaum 
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PROCEDURE WritePrefix(tree : Tree); 
BEGIN 

IF KEY tree''.type 

OF " + tHEN 


OF "C" 

Write(tree''. type) ; 

WriteC ") ; 

WritePref ixCtree''. left) ; 
WritePrefixCtree'' .right) ; 
END 

THEN 

Writeint (tree''. value, 0) ; 
WriteC ") 

END 

END 

END WritePrefix; 


> + 3*4 + /526 



PROCEDURE Writeinfix(tree : Tree); 
BEGIN 

IF KEY tree''.type 

OF " + tHEN 


OF "C" 

WriteC C) ; 

Writeinf ix(tree''. left) ; 
Write (tree''. type) ; 
WritePrefix(tree'' .right) ; 
WriteC) ") ; 

END 

THEN 

Writeint (tree''. value, 0) ; 
END 

END 

END Writeinfix; 


> (3+(4*((5/2)+6))) 
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PROCEDURE WritePostfix(tree : Tree); 

BEGIN 

IF KEY tree''.type 

OF " + THEN 

WritePostf ixCtree''. left) ; 
WritePostf ixCtree''. right) ; 
WriteCtree'' .type) ; 

WriteC ") ; 

END 

OF "C" THEN 

Writeint (tree''. value, 0) ; 

WriteC ") 

END 

END 

END WritePostfix; 

=>3452/6+*+ 

So ein Parsebaum wird immer im Postfix ausgewertet, da ja, um eine 
Operation ausführen zu können, zuerst die beteiligten Operanden ermit¬ 
telt sein müssen. 


PROCEDURE EvaKtree : Tree) : INTEGER; 


BEGIN 

IF KEY tree''.type 


OF 

It _|_ It 

THEN 

RETURN 

OF 

It _ It 

THEN 

RETURN 

OF 


THEN 

RETURN 

OF 

II ! II 

THEN 

RETURN 

OF 

"C" 

THEN 

RETURN 


END 


Eval (tree''. left) 

+ EvaKtree''. right) END 
Eval (tree''. left) 

EvaKtree''. right) END 
Eval (tree''. left) 

* EvaKtree''. right) END 
Eval (tree''. left) 

DIV EvaKtree''. right) END 
tree''. value END 
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END Eval; 


Auch ein Stammbaum ist ein Baum in unserem Sinne. Man muß hierbei 
zwei Typen unterscheiden, einmal die Rückverfolgung eines Familien¬ 
mitgliedes zu seinen Ahnen hin, dies läßt sich mit einem Binärbaum 
realisieren. 

TYPE 

Parent = POINTER TO Person; 

Person = RECORD 

name : STRING(32); 
father, 

mother : Parent; 

END; 


Oder die Auflistung aller Nachkommen einer Person: 
TYPE 

Child = POINTER TO Person; 

Person = RECORD 

name : STRING(32); 

children, 

brother : Child; 

END; 


An dieser Struktur ist zu erkennen, daß jeder Baum auch als Binärbaum 
dargestellt werden kann, wobei der linke Ast eines Knotens auf den ersten 
Nachfolger (ältester Sohn) und der rechte auf den nächsten Nachfolger 
seines Vorgängers (nächstjüngerer Bruder) zeigt. 

Die gesamte Vererbungsgeschichte einer Familie läßt sich allerdings 
nicht als Baum darstellen (man denke nur an das Inzuchtverhalten eu¬ 
ropäischer Königshäuser), dafür verwendet man erweiterte Strukturen, 
Graphen. 
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4.6.5 Graphen 

Graphen bilden eine Obergrnppe über Bänme nnd Listen. Ein Graph 
besteht aus Knoten und Kanten (Verbindung zwischen zwei Knoten), 
wobei die Zahl der Kanten, die in einen Knoten hineinführen (Eingang¬ 
sgrad), und die Zahl der herausführenden (Ausgangsgrad) nicht bes¬ 
chränkt sind. Es gibt auch Graphen, in denen die Kanten keine Richtung 
haben, man spricht dann von ungerichteten Graphen, im Gegensatz zu 
gerichteten Graphen, zu denen Listen und Bäume gehören. Es ist auch 
möglich, daß ein Knoten eine Kante mit sich selbst, oder mehrere mit 
dem selben Nachbarn gemeinsam hat. Es ist noch nicht einmal nötig, 
daß alle Knoten miteinander verbunden sind. Derartige Graphen, in de¬ 
nen Knotenmengen existieren, von denen kein Knoten eine Verbindung 
zu einem Knoten aus einer anderen Menge hat, nennt man unzusam¬ 
menhängend. 

Um einen gerichteten Graphen aufzubauen und zu bearbeiten, exis¬ 
tiert ein generisches Standardmodul Graphs. 



Abbildung 4.22: Verschiedene Graphen 

Ist die Zahl der Knoten eines Graphen bekannt, kann man diese durch¬ 
numerieren, und die Kanten in einem zweidimensionalen Array ganzer 
Zahlen darstellen, wobei der Zahlenwert eines Elements des Arrays die 
Anzahl der Kanten vom Knoten mit der Nummer des ersten Index zu 
dem Knoten mit der Nummer des zweiten Index angibt. Das bedeutet, 
die Zahl der Kanten vom Knoten mit der Nummer 2 zum Knoten mit 
Nummer 3 befindet sich im Arrayelement [2,3]. 
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TYPE 

Graph = ARRAY [0..9], [0..9] OF SHORTCARD; 



nach 


von 



0 

1 

2 

3 

4 

0 

1 

1 

0 

1 

0 

1 

0 

0 

2 

0 

0 

2 

1 

0 

0 

0 

1 

3 

0 

0 

0 

1 

1 

4 

0 

0 

0 

0 
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Abbildung 4.23: Zweidimensionales Array 

Da eine derartige Struktur Speicher im Verhältnis zum Quadrat der Kno¬ 
tenzahl benötigt, ist sie allerdings für eine größere Zahl von Knoten nicht 
zu empfehlen. Hier bietet sich eine dynamische Struktur an, in der zu 
jedem Knoten die Kanten bzw. die Nummern deren Zielknoten in einer 
Liste gehalten werden. Eine derartige Listenstruktur nennt sich Adja- 
zensliste. 
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TYPE 

KantePtr = POINTER TO Kante; 

Kante = RECORD 

next : KantePtr; 
nach : INTEGER 
END; 

Knoten = ARRAY [0..9] OF KantePtr; 



□ 




Abbildung 4.24: Adjazensliste 

Ist die Zahl der Knoten nicht bekannt, müssen diese ebenfalls in einer 
Liste gehalten werden. 

TYPE 

KnotenPtr = POINTER TO Knoten; 

KantePtr = POINTER TO Kante; 

Kante = RECORD 

next : KantePtr; 
nach : KnotenPtr 
END; 

= RECORD 

kanten : KantePtr 
END; 


Knoten 
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Ist die Zahl der Kanten im Vergleich zn der der Knoten gering, empfiehlt 
sich eine andere Strnktnr, in der nnr die Kanten in einer Liste gehalten 
werden. 


TYPE 

KantenPtr = POINTER TO Kante; 
Kante = RECORD 

next : KantenPtr; 
von, 

nach : INTEGER 
END; 


Einfügen nnd Entfernen von Knoten nnd Kanten wird genauso wie bei 
Listen realisiert, es lassen sich auch komplexere Listen für die Verwaltung 
der Elemente verwenden. 

4.6.6 Optimierung durch eigene Speicher Verwaltung 

Die Prozeduren New, Dispose und die darin benutzten Systemroutinen 
AIIocMem und FreeMem sind nicht besonders schnell, da immer ein op¬ 
timales Speicherfragment gesucht wird. Dies kann gerade bei „perfo¬ 
riertem“ Speicher relativ lange dauern. Benötigt man nun in einem 
Programm eine Struktur, die sich häufig ändert, ist es sinnvoll, die Ver¬ 
waltung freier Knoten in die eigene Hand zu nehmen. Bei dieser Technik 
führt das Programm neben den normalen Strukturen noch eine Liste mit 
freien Knoten. Dieser wird ein freizugebender Knoten angehängt und 
bei Bedarf wieder entnommen. Nur wenn diese Liste leer ist, wird wei¬ 
terer Systemspeicher angefordert. Dies geschieht am besten in größeren 
Paketen, da so die Anzahl der Anforderungen an das System nochmal 
vermindert und der Speicherperforierung vorgebeugt wird. Zur Verket¬ 
tung der freien Knoten empfiehlt es sich einen Zeiger zu verwenden, der 
schon darin enthalten ist. 
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TYPE 



Tree 

= POINTER TO 

Root; 

Root 

= RECORD 
left, 


VAR 

right : 
END; 

Tree 

firstFree : Tree; 



PROCEDURE NewRoot(VAR tree : Tree); 

VAR mem : POINTER TO ARRAY [0..31] OF Root; 

i : INTEGER; 

BEGIN 

IF firstFree=NIL THEN 
New(mem); 

FOR i:=0 TO 30 DO 

mem'' [i] . left :=mem'' [i+1] ’PTR; 

END; 

mem'' [31] . left: =NIL; 
f irstFree: =mem'' [0] ’PTR; 

END; 

tree:=firstFree; 
f irstFree: =f irstFree''. left; 

END NewRoot; 

PROCEDURE DisposeRoot (VAR tree : Tree); 
BEGIN 

tree''. left: =f irstFree; 
firstFree:=tree; 
tree:=NIL; 

END DisposeRoot; 

BEGIN 

firstFree:=NIL; 
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Diese Methode arbeitet wesentlich schneller als die normale Verwendnng 
von New nnd Dispose. Allerdings ist zn bedenken, da der Speicher, der 
hier alloziert wird, nicht mehr freigegeben wird. Um dem zn entgehen, 
sollte man die belegten Blöcke verketten, nnd am Ende der Benntznng 
wieder freigeben. 

4.6.7 Ausgefallene dynamische Strukturen 

Angenommen Sie benötigen ein zweidimensionales Array mit Longreal- 
Zahlen nnd etwas exorbitanter Größe, sagen wir mal 1000 * 1000. Viele 
Amigas wären mit einem Feld von 8MByte Größe leicht überfordert. Ist 
aber bekannt, daß das Array nnr relativ locker gefüllt ist, z. B. nnr 2000 
Werte, empfiehlt sich eine andere Strnktnr. 

TYPE 

MatElemPtr = POINTER TO MatElem; 

MatElem = RECORD 


down. 


right 

: MatElemPtr; 

row. 


column : 

: INTEGER; 

data 

: LONGREAL; 


END; 

Matrix = RECORD 

left, 

top : ARRAY [0..999] OF MatElemPtr; 
END; 


Mit dieser Strnktnr ist es zwar nicht möglich, sofort von den Indizes 
anf das Element zn schließen, es ist aber sehr schnell möglich, die von 
Nnll verschiedenen Felder des Arrays dnrchzngehen. Aber gerade dies 
wird ja beim Rechnen mit Matrizen benötigt, da diese als einzige das 
Ergebnis beeinflnssen. Für ein solches Problem bietet sich das generische 
Standardmodnl Dynamic Arrays an. 
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4.6.8 Repräsentierung dynamischer Strukturen in ei¬ 
nem Array 

Manchmal ist nicht so sehr die variable Größe einer dynamischen Strnk- 
tnr nötig, sondern nnr deren Flexibilität. In so einem Fall kann eine 
Strnktnr wie znm Beispiel ein Baum auch in einem Array gehalten wer¬ 
den. 


TYPE 

Tree = ARRAY [0..9] OF 
RECORD 
left, 

right : INTEGER; 
data : INTEGER; 
END; 


3 H] Hl 

Abbildung 4.25: Ein Baum in einem Array 

Diese Technik hat zwei Vorteile, erstens wird der Speicher durch häufiges 
Allozieren kleiner Speicherstücke nicht zum Emmentaler zergliedert, und 
zweitens ist der Speicherbedarf geringer, da ein Zeiger vier Bytes, eine 
Integer-Zahl dagegen nur zwei benötigt. Andererseits ist die maximale 
Größe einer derartigen Struktur durch das Array vorgegeben. 

Auch die Adjazenzliste eines Graphen läßt sich recht geschickt in 
einem Array unterbringen. 
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TYPE 

List = ARRAY [0..20] OF INTEGER; 



Abbildung 4.26: Eindimensionales Array 

Bei einem Graphen mit n Knoten werden in den ersten n Arrayelementen 
die Anfänge der Kantenlisten eingetragen. Die Kantenlisten enthalten 
nacheinander die Nummern der Knoten, mit denen der entsprechende 
Knoten verbunden ist. Diese Struktur eignet sich vor allem für konstante 
Graphen, da sie nur sehr aufwendig zu erweitern ist. 

4.6.9 Dateien als dynamische Strukturen 

Auch eine Datei stellt eine dynamische Struktur dar, da ihre Größe fast 
unbeschränkt ist (besonders auf Festplatten). Man unterscheidet zwei 
grundlegend verschiedene Arten von Dateien. Sequentielle Dateien, so- 
gennante Ströme (Streams), in die ein Element nach dem anderen ges¬ 
chrieben und gelesen wird und Dateien mit freiem Zugriff, in die beliebig 
geschrieben und gelesen wird. 

Streams werden über InOut realisiert. Das Offnen eines Eingabes¬ 
troms geschieht über Openlnput, und eines Ausgabestroms über OpenOutput. 
Danach kann über die bekannten Write- und Read-Prozeduren auf den 
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Stream zugegriffen werden. Dem Modul InOut gegenüber ist sogar der 
Benutzer ein (bzw. zwei) Stream(s). 

Dateien mit freiem Zugriff, meist nur Dateien genannt, werden über 
das FileSystem realisiert. Mit den Proceduren SetPos und GetPos kann 
beliebig in der Datei positioniert werden, und über Write. . und Read. . 
kann auch überall gelesen und geschrieben werden. 

Aus- und Eingaben eines Programms werden im allgemeinen als 
Streams realisiert, z. B. ist der Quelltext der Eingabe- und das Objektfile 
der Ausgabestream eines Compilers. Das folgende Programm summiert 
immer zwei Zahlen eines Eingabestreams auf, und gibt die Summe auf 
den Ausgabestream aus. 

MODULS Streams; 

IMPORT InOut AS io; 

VAR a,b : INTEGER; 

BEGIN 

IF io. OpenlnputC Eingabe") 

AND io.OpenOutput("Ausgabe") THEN 
io.Readint(a); 

WHILE io.done DO 
io.Readint(b); 
io.Writeint(a+b); 
io.Readint(a); 

END; 

io.CloseOutput; 
io.Closelnput; 

ELSE 

RAISE(NoStreamsError); 

END; 

CLOSE 

END Streams. 



82 


KAPITEL 4. FORTGESCHR. PROGRAMMIEREN 


Dagegen werden Dateien, die ein Programm znr eigenen Benntznng an¬ 
legt, meist mit freiem Zngriff benntzt. Dazn wird die Datei in Sätze 
gleicher Länge zerteilt. Eine derartige Datei ist mit einem Array ver¬ 
gleichbar. Der Zngriff erfolgt über die Satznummer. Diese wird, um auf 
die echte Position in der Datei zu kommen, mit der Satzlänge multipli¬ 
ziert. 


TYPE 

Satz = RECORD 
Name, 

Vorname : STRING(40) 

END; 

VAR f : File; 

PROCEDURE ReadRecordCVAR satz : Satz;No : INTEGER); 
BEGIN 

SetPos(f,No*Satz’SIZE); 

ReadBlock(f,satz); 

END ReadRecord; 


Es empfiehlt sich allerdings, um die Elexibilität zu erhöhen, dieses Array 
wie eine Liste zu führen (siehe 4.6.8). 


4.6.10 Queue und Stack 

Keine eigentliche dynamische Struktur, sondern mehr eine Anwendung 
von Listen, sind Queues (Warteschlangen) und Stacks (Kellerspeicher). 
Sie dienen als Puffer (Zwischenspeicher); in ihnen werden Informationen 
für eine Weile gehalten, um später wieder verwendet zu werden. Queues 
und Stacks haben zwei Punktionen, Information ablegen und Information 
wieder zurückgeben. Eine Queue gibt dabei die Information wieder in 
der Reihenfolge ab, in der diese übergeben wurden (first in first out, 
EIEO). Die typische Anwendung ist z. B. eine Tastaturwarteschlange, 
die von der Tastatur dauernd mit Zeichen gefüllt und auf der anderen 
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Seite vom Programm wieder geleert wird. Ein Stack dagegen gibt die 
znletzt übergebenen Daten als erste wieder znrück (last in first out, 
LIFO). Auf einem derartigen Stack hält sich der Prozessor zum Beispiel 
die Rückkehradressen bei Prozeduraufrufen. Stacks und Queues werden 
entweder als Arrays oder als Listen realisiert. 


TYPE 

Stack = RECORD 

last : INTEGER; 

data : ARRAY [0..99] OF LONGINT 
END; 

VAR 

s : Stack; 

(* ein Element auf Stapel legen *) 

PROCEDURE Push (VAR s : Stack; data : LONGINT); 
BEGIN 

s.data[s.last]:=data; 

INC(s.last); 

END Push; 

(* Ein Element wieder herunter holen *) 
PROCEDURE Pop (VAR s : Stack):LONGINT; 

BEGIN 

DEC(s.last); 

RETURN s.data[s.last] 

END Pop; 

(* Testen, ob Stapel leer ist *) 

PROCEDURE Empty(VAR s : Stack):B00LEAN; 

BEGIN 

RETURN s.last=0 
END Empty; 


BEGIN 
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s.last:=0; 


Nun dasselbe mit einer Liste: 

TYPE 

Stack = POINTER TO StackElem; 

StackElem = RECORD 

next : Stack; 
data : LONGINT 
END; 

VAR 

s : Stack:=NIL; 

PROCEDURE Push (VAR s : Stack; data : LONGINT); 
VAR p : Stack; 

BEGIN 
New(p); 
p'' .next :=s; 
p''.data: =data; 
s:=p; 

END Push; 

PROCEDURE Pop (VAR s : Stack):LONGINT; 

VAR p : Stack; 

1 : LONGINT; 

BEGIN 

p:=s; 

s : =s''. next; 

1: =p''. data; 

Dispose(p); 

RETURN 1 
END Pop; 

PROCEDURE Empty(s : Stack):BOOLEAN; 
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BEGIN 

RETURN s=NIL; 

END Empty; 

Eine Queue ist etwas schwerer zu realisieren, da sowohl auf das letzte als 
auch das erste Element zugegriffen werden muß. Eine Queueliste wird 
der Einfachheit halber meist als Ringliste geführt. 

TYPE 

Queue = POINTER TO QueueElem; 

QueueElem= RECORD 

next : Queue; 
data : LONGINT 
END; 

VAR 

q : Queue; 

PROCEDURE WriteCVAR q : Queue; data : LONGINT); 

VAR p : Queue; 

BEGIN 
New(p); 

p''.data: =data; 

IF q=NIL THEN 
p''. next: =q 
ELSE 

p''. next: =q''. next; 
q''. next: =p 
END; 

q:=p; 

END Write; 

PROCEDURE ReadCVAR q : Queue):LONGINT; 

VAR p : QueuePtr; 

I : LONGINT; 

BEGIN 
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p: =q''. next; 

1: =p''. data; 

IF p=q THEN 
q:=NIL 
ELSE 

q''. next: =p''. next 
END; 

Dispose(p); 

RETURN 1 
END Read; 

PROCEDURE EmptyCq : Queue):BOOLEAN; 
BEGIN 

RETURN q=NIL 
END Empty; 

BEGIN 

q:=NIL; 


Für Queues und Stacks existiert das generische Modul Buffers, so daß 
Sie wahrscheinlich nie selbst die nötigen Routinen programmieren müssen 

4.6.11 Abspeichern dynamischer Strukturen in Da¬ 
teien 

Es ist nicht besonders einfach, dynamische Strukturen abzuspeichern 
und wieder einzuladen, da man in einem System mit dynamischer Spei¬ 
cherverwaltung - und der Amiga ist so ein System - nie weiß, welchen 
Speicher einem das Betriebssystem zur Verfügung stellt. Somit sind ab¬ 
gespeicherte Zeiger völlig unbrauchbar, da sie beim Einladen bestimmt 
nicht dahin zeigen, wo die bezeichnete Struktur jetzt hegt. 

Am besten ist es, die Strukturen beim Einlesen wieder neu aufzu¬ 
bauen. Am einfachsten ist dies noch bei Listen, da einfach nur Element 
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für Element gesichert und nachher wieder in der selben Reihenfolge ein¬ 
gehängt werden muß. Problematischer sind da schon Bäume. Am ges¬ 
chicktesten ist hier wohl Präfix, da einem Knoten recht einfach angese¬ 
hen werden kann, wie viele Nachfolger er hat (Das Pointerziel NIL ist so 
einzigartig, daß es immer gleich bleibt). Da eine in einer Datei gespei¬ 
cherte Pointer-Adresse unbrauchbar ist, reicht es vollkommen aus, sich 
zu merken, ob ein Pointer NIL ist oder nicht. 


TYPE 

Tree = POINTER TO Root; 

Root = RECORD 
lef t, 

right : Tree; 
data : ... 

END; 

PROCEDURE WriteTreeCf : File; t : Tree); 
BEGIN 

IF t#NIL THEN 

WriteBIockCf, t'') ; 

WriteTreeCf ,t''. left) ; 

WriteTreeCf ,t'' .right) ; 

END; 

END WriteTree; 

PROCEDURE ReadTreeCf : File; VAR t : Tree); 
BEGIN 
NewCt); 

ReadBIockCf,t); 

IF t^.Ieft#NIL THEN 
ReadTreeCf ,t''. left) 

END; 

IF t''.right#NIL THEN 
ReadTreeCf ,t'' .right) 

END; 

END ReadTree; 
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right 
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EOF 


data 
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9 




EOF = Ende der Datei 
0 entspricht NIL 
# ist unaleich NIL 


Abbildung 4.27: Ein Baum in einem File 


Bei einem Graphen empfiehlt es sich, die Kanten abznspeichern, nnd die 
Knoten mit Nnmmern zn bezeichnen. 

Eine dynamische Strnktnr in einem Array macht keinerlei Probleme, 
da sich die Indizes der Elemente, die als Zeiger fnngieren, nicht verschie¬ 
ben können. 


4.7 Laufzeit verhalten von Programmen 

Ein wichtiges Kriterinm für die Güte eines Algorithmus ist seine Gesch¬ 
windigkeit. Hierbei ist allerdings nicht so sehr die echte Ausführungszeit 
von Bedeutung, da diese von zuvielen Faktoren abhängt, sondern sein 
Verhalten in Relation zur Eingabelänge. Unter der Eingabelänge vers¬ 
teht man zum Beispiel die Größe eines Arrays, mit dem der Algorithmus 
arbeitet, oder die Zahl der Sätze einer Datei. Nun ist es im allgemeinen 
fast unmöglich, die durchschnittliche Laufzeit eines Programmes zu er¬ 
rechnen, da meist zuviele verschiedene Möglichkeiten existieren, wie das 
Programm verläuft. Man beschränkt sich deshalb auf den schlechtesten 
Fall (worst case), und gibt auch nur eine Proportionalität zu einer Funk¬ 
tion der Eingabe an. Diese Funktion nennt man O, mit 0{n) sind zum 
Beispiel alle Algorithmen bezeichnet, deren Laufzeit gleichmäßig mit der 
Eingabelänge wächst. 

Ein Programm, das keine Schleifen und Rekursionen enthält, ist in 
seiner Laufzeit von der Eingabe unabhängig, und hat 0(1). 
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Die Schleife: 


FOR i:=l TO n DO 

XXX 

END 

hat eine Laufzeit von 0{n * m), wenn xxx 0{m) hat; 

FOR i:=l TO n DO 
FOR j:=1 TO i DO 

END 

END 

hat O(n^), genau 0{n * (n + l)/2) = 0{n * n). 


Die folgende Tabelle zeigt wie sich verschiedene Funktionen bei wach¬ 
sender Eingabelänge verhalten. 



5 

10 

20 

1000 

1E6 

1E9 

ln(ln(n)) 

0.5 

0.8 

1.1 

1.9 

2.6 

3.0 

ln(n) 

1.6 

2.3 

3.0 

6.9 

13.8 

20.7 

n 

5. 

10. 

20. 

1000. 

1E6 

1E9 

n ln(n) 

8. 

23. 

60. 

6900. 

13E6 

20E9 

rE 

25. 

100. 

400. 

1E6 

1E12 

1E18 

rE 

125. 

1000. 

8000. 

1E9 

1E18 

1E27 

2n 

32. 

1024. 

1E6 

1E301 

1E301029 



Es zeigt sich deutlich, daß exponentielle Algorithmen im allgemeinen ab¬ 
zulehnen sind, da die Laufzeit mit wachsender Länge ins Unerträgliche 
ansteigt. (Es gibt einen eigenen Zweig der Informatik, der sich mit dem 
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Problem beschäftigt, für jedes Problem einen nichtexponentiellen Algo- 
rithmns zn finden, oder zn beweisen, daß es keinen gibt. Gibt es keinen 
nichtexponentiellen Algorithmns, so bezeichnet man das Problem NP- 
Hard.) 
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4.8 Sortieralgorithmen 

Das Sortieren von Objekten ist eine hänfige Tätigkeit für Programme 
(und ein Steckenpferd vieler Informatiker). Es gibt eine ganze Reihe 
von Verfahren, die im Laufe der letzten Jahrzehnte entwickelt wur¬ 
den. Manche wirken auf den ersten Blick völlig unverständlich, andere 
überzeugen durch ein schlechtes Laufzeit verhalten. Normale Hobbypro¬ 
grammierer beschränken sich meist auf das Sortierverfahren, das das 
schlechteste Laufzeitverhältnis hat, den Bubblesort. Im allgemeinen bes¬ 
chränkt sich das Sortieren auf Arrays, nur selten ist mal eine Liste fällig, 
da diese meist schon sortiert erstellt werden. 


4.8.1 Bubblesort 


FOR i:=l TO n DO 
FOR j:=1 TO n-1 DO 

IF feld[i]>feld[i+l] THEN 
X :=feld[i]; 

feldfi] :=feld[i+l]; 
f eld [i+1] : =x 
END; 

END; 

END; 


Das wohl bekannteste (und langsamste) aller Sortierverfahren. Der Grund¬ 
gedanke dahinter ist, daß ein Feld dann sortiert ist, wenn jedes Element 
kleiner als sein Nachfolger ist. Es werden solange Nachbarn die diese 
Bedingung nicht erfüllen, miteinander vertauscht, bis das Feld sortiert 
ist. Es läßt sich beweisen, daß dies nach maximal n Vertauschungen der 
Fall ist (n ist die Zahl der Elemente). Die Laufzeit ist immer O(n^). 
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4.8.2 Insert & Select 

Diese beiden Algorithmen benntzen ein anderes Verfahren. Sie teilen 
das Feld in zwei Teile, ein linkes, das bereits sortiert ist nnd ein rechtes, 
das die noch zu sortierenden enthält. Am Anfang ist der linke Teil noch 
ohne Elemente. Bei jedem Schritt wird nun ein Element aus der rechten 
Menge genommen, und so in die linke eingefügt, daß deren Sortierung 
erhalten bleibt. Dies kann auf zwei Arten durchgeführt werden. Insert 
nimmt immer das linkeste Element der rechten Menge und fügt es an der 
richtigen Stelle in den linken Teil ein. Select dagegen wählt immer das 
kleinste Element aus der rechten Menge aus, und hängt es ganz rechts 
an die linke an. Dies wird solange durchgeführt, bis die rechte Menge 
leer ist, was nach genau n Schritten der Eall ist. 

Select: 


FÜR i:=l TO n-1 DO 
j :=i; 

FOR k:=i+l TO n DO 

IF feld[j]<feld[k] THEN 
j:=k 
END; 

END; 

x:=feld[i];feld[i]:=feld[j];feld[j] :=x 
END; 


Insert: 


FOR i:=2 TO n DO 
x:=feld[i]; 

j :=i; 

WHILE (j>l) AND (feld[j-l]>x) DO 
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feld[j] :=feld[j-l] ; 
DEC(j) 

END; 

feld[j]:=x; 

END; 


Zwar haben auch diese Algorithmen eine Laufzeit von O(n^), doch sind 
sie in der Praxis meist doppelt so schnell wie Bubblesort, wobei sich 
Select mehr für Arrays und Insert für Listen empfiehlt. 


4.8.3 Quicksort 

Quicksort ist das im allgemeinen schnellste Verfahren, ein Feld zu sor¬ 
tieren. Im Schnitt braucht er 0(nlog(n)). Er hat allerdings auch einen 
worst case, bei dem er O(n^) hat. Das Prinzip von Quicksort ist es, das 
Feld in zwei möglichst gleich große Teile zu zerlegen, so daß alle Ele¬ 
mente in der linken Hälfte kleiner sind als das kleinste Element aus der 
rechten Menge. Danach werden diese Teilmengen getrennt sortiert. 


PROCEDURE PartitionCleft,right : INTEGER); 
VAR m,i : INTEGER; 

pivot : INTEGER; 

BEGIN 

IF right>Ieft THEN 
m: =Ieft; 
pivot:=feld [m]; 

FÜR i:=m+l TO right DO 
IF feId[i]<pivot THEN 
feldfm]:=feld[i]; 

INC(m); 

feldfi] :=feld[m] 

END; 

END; 

feld[m]:=pivot; 
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Partitiondeft ,m-l) ; 

Partition(m+1,right); 

END; 

END Partition; 

Partition(feld’MIN,feld’MAX); 


Das Feld wird in zwei Teile zerlegt, indem man sich einen beliebigen 
Grenzwert (Pivot) ans dem Feld nimmt. Danach sortiert man das Feld 
so nm, daß alle Elemente, die kleiner als der Pivot sind, links von ihm, 
alle größeren rechts landen. Für diese Partitioniernng gibt es die ver¬ 
schiedensten Techniken, alle haben aber eine Lanfzeit von 0{n). Da das 
Feld immer in zwei Teile geteilt wird, ist die Anzahl der nötigen Partitio¬ 
nierungen im allgemeinen log(n), die Gesamtlaufzeit somit 0(nlog(n)). 
Erwischt man allerdings als Grenzwert immer das kleinste oder größte 
Element, wird die Partitioniernng n mal durchgeführt. 

4.8.4 Heapsort 

Ein anderes Sortierverfahren mit 0(nlog(n)) ist Heapsort. Dieses Ver¬ 
fahren besitzt zwar keinen worst case, ist aber aufgrund etwas größeren 
Aufwands bei kleineren Eeldern langsamer als Quicksort. Heapsort ist 
das vermutlich unter Programmierern meistgehaßte Sortierverfahren, da 
es ohne intime Kentnisse der Materie völlig unverständlich wirkt. Es 
scheint so, als würde das Programm das Eeld absolut chaotisch durchei¬ 
nanderwirbeln, um dann völlig unvermutet das sortierte Eeld aus dem 
Hut zu ziehen. Heapsort verwendet eine seltsame Struktur, einen soge¬ 
nannten Heap. Dies ist ein Baum, bei dem jeder Knoten maximal zwei 
Aste hat. Eür jeden Knoten gilt, daß sein Wert größer ist als die Werte 
seiner Nachfolger. 

Ein Heap läßt sich sehr geschickt in einem Array unterbringen, in dem 
man festlegt, daß die Nachfolger des Eeldes i die Eelder 2i und 2z + 1 
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Abbildung 4.28: Heap in einem Array 


sind. Legt man weiter fest, daß neue Blätter immer von links nach rechts 
angefügt werden, ist das Array ohne Lücken gefüllt. 

Mit einem Heap kann man zwei Dinge tun, man kann ihm ein neues 
Element anfügen, oder man kann das größte Element des Heaps ent¬ 
nehmen. Bei diesen Aktionen ändern sich dessen Eigenschaften nicht. 
Angefügt wird immer an einem der Blätter. Dabei muß beachtet wer¬ 
den, daß der übergeordnete Knoten den höchsten Wert hat. Ist dies 
nicht der Eall, muß entsprechend getauscht werden. Dabei kann es Vor¬ 
kommen, daß der nach oben gewanderte Wert auch größer ist als der 
nächste Übergeordnete. Dies setzt sich solange fort, bis die Struktur 
wieder stimmt. Da dabei ein Wert nach oben steigen kann, nennt man 
dies Steigen. 


VAR 

feld : ARRAY [l..n]0F INTEGER; 

heap : INTEGER; (* Anzahl der Elemente im Heap *) 

PROCEDURE Erweitern; 

VAR x,k,i : INTEGER; 

BEGIN 

INC(heap); 
k:=heap; 
i:=k DIV 2; 
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WHILE (k>l) AND (feld[k]>feld[i]) DO 

x:=feld[i]; feld[i]:=feld[k]; feld[k]:=x; 
k:=i; 

i:=k DIV 2; 

END; 

END Erweitern; 


Nimmt man das größte Element aus dem Heap, bringt man das letzte 
Element aus dem Array an seine Position, und läßt es durchsinken. Da¬ 
durch bleibt der linke Teil des Arrays immer völlig durch den Heap 
gefüllt. 


PROCEDURE Entfernen; 

VAR x,k,i : INTEGER; 

BEGIN 

x:=feld[l]; feldfl]:=feld[heap]; feldfheap]:=x; 

DEC(heap); 

k:=l; 

WHILE k*2<=heap DO 
i:=k*2; 

IF (i<heap) AND (feld[i+1]>feld[i]) THEN 
INC(i) 

END; 

IF feId[i]>feId[k]THEN 

x:=feld[i]; feldfi]:=feld[k]; feld[k]:=x 
END; 
k:=i; 

END 

END Entfernen; 


Das Einfügen oder Entfernen eines Elements dauert immer 0(log(n)). 
Zum Sortieren werden nun alle Elemente nacheinander in den Heap ein¬ 
gefügt, um dann der Größe nach entnommen zu werden. 
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heap:=0; 

WHILE heap<n DO 
Erweitern 
END; 

WHILE heap>0 DO 
Entfernen 
END; 


4.8.5 Mergesort 

Mergesort stammt noch aus der guten alten Zeit der Lochkarten und 
Bänder, als man ohne großen Speicher zu besitzten (1960 hatte ein 
Großrechner noch stolze 4KByte) riesige Datenbestände sortieren mußte. 
Alles was man hatte waren Ein- und Ausgabeströme, meist Lochkarten¬ 
leser, aber keine Möglichkeit größere Datenbestände im Speicher zu hal¬ 
ten. Normale Sortiermethoden waren einfach undenkbar. Das Verfahren 
arbeitet um so besser, je mehr Eingabeströme vorhanden sind. Als Bei¬ 
spiel reicht es aber, die Technik mit nur zwei Eingabeströmen zu zeigen, 
da das Verfahren dabei schon ersichtlich wird. Die Eingabeschlange wird 
in zwei etwa gleich große Teilstücke zerlegt. Diese werden den beiden Le¬ 
segeräten zugeführt. Dann wird solange das kleinere Element der beiden 
Eingaben ausgegeben, bis dieses kleiner ist als das zuletzt ausgegebene. 
Danach werden noch alle Elemente der anderen Eingabe ausgegeben, so¬ 
lange sie in aufsteigender Reihenfolge vorliegen. Nach einem Durchlauf 
hat man eine Reihe von Stapeln, die alle in sich aufsteigend sortiert sind. 
Diese werden nun möglichst gerecht auf beide Leser verteilt, und das 
Programm wieder gestartet. Dies wird solange wiederholt, bis nur noch 
ein Stapel vorhanden ist. Diese Prozedur muß log(n) mal durchgeführt 
werden, da immer mindestens zwei Stapel zu einem neuen verschmolzen 
werden. Das Laufzeitverhalten ist also 0(nlog(n)). Der Haken ist nur, 
daß nicht in einem Array gearbeitet werden kann, sondern mindestens 
zwei vorhanden sein müssen. 
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LOOP 

o:=INTEGER’MIN; 

Read(l,el); Read(2,e2); 

WHILE (el>=o) AND (e2>=o) DO 
IF el<e2 THEN 
Write(el); 

IF Eof(l) THEN EXIT END; 
o: =el; 

Readd ,el) ; 

ELSE 

Write(e2); 

IF Eof(2) THEN EXIT END; 
o:=e2; 

Read(2,e2); 

END; 

END; I WHILE 
IF el>=o THEN 
WHILE el>=o DO 
Write(el); 

IF Eof(l) THEN EXIT END; 
o:=el; 

Readd ,el) ; 

END; 

ELSE 

WHILE e2>=o DO 
Write(e2); 

IF Eof(2) THEN EXIT END; 
o:=e2; 

Read(2,e2); 

END; 

END; 

END; I LOOP 
IF Eof(2) THEN 
Write(el); 
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WHILE NOT Eof(l) DO 
Readd ,el) ;Write(el) ; 
END; 

ELSE 

Write(e2); 

WHILE NOT Eof(2) DO 
Read(2,e2);Write(e2); 
END; 

END; 


4.8.6 Radixsort 

Radixsort ist die älteste und wohl ausgefallenste Art, ein Feld zu sor¬ 
tieren. Dieser Algorithmus stammt aus der Zeit mechanischer Lochkar¬ 
tenverarbeitung. Maschinen, die nach dieser Methode arbeiten, waren 
noch bis in die achtziger Jahre im Gebrauch. Sie besteht aus einem 
Eingabestapel und zehn Ausgabestapeln. Bei der Maschine wird eine 
Spalte der Karten eingestellt. Danach werden die Karten über ein Rol¬ 
lensystem über die zehn Fächer geführt, und fallen in das Fach, dessen 
Nummer in dieser Spalte auf der Karte steht. Mit diesem Verfahren 
lassen sich also Zahlen nach einer Ziffer sortieren. Sorgt man nun noch 
dafür, daß die Reihenfolge der Karten in den Sortierfächern sich nicht 
von der ursprünglichen Reihenfolge unterscheidet, kann man in sovielen 
Durchläufen, wie die Zahlen Ziffern hat, sortieren. Zuerst sortiert man 
nach der letzten Ziffer, dann legt man alle Stapel wieder aufeinander, 
und sortiert nach der vorigenen Ziffer. Dies wird fortgeführt, bis zur 
ersten. Danach ist der Stapel sortiert. Radixsort wird heute kaum noch 
angewendet, kann aber in einigen Spezialfällen durchaus noch nützlich 
sein. Ich möchte hier auf ein Beispiel verzichten, da der Aufwand das 
Ergebnis nicht lohnt. Das Verfahren sei nur der Vollständigkeit halber 
erwähnt. 
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4.9 Suchalgorithmen 

Neben dem Sortieren spielt das Suchen bei vielen Programmen eine große 
Rolle. Für manche Suchtechniken müssen die Daten in speziellen Struk¬ 
turen vorhanden sein, andere laufen mit beliebigen Strukturen. Im all¬ 
gemeinen sind Suchalgorithmen mit speziellen Strukturen wesentlich ef¬ 
fektiver, so daß es sich empfiehlt, Datensammlungen, in denen besonders 
oft gesucht wird, gleich in derartigen Strukturen abzulegen. 

4.9.1 Lineares Suchen 

TYPE 

List = POINTER TO Node; 

Node = RECORD 

next : List; 
data : INTEGER; 

END; 

PROCEDURE SearchClist : List; data : INTEGER) : List; 
BEGIN 

WHILE (Iist#NIL) AND (list''. data#data) DO 
list :=Iist'' .next 
END; 

RETURN list 
END Search; 


Die einfachste aller Möglichkeiten ein Element aus einer Liste oder ei¬ 
nem Array herauszusuchen, ist lineares Suchen. Bei diesem Verfahren 
werden nacheinander alle Werte mit dem zu suchenden verglichen, bis 
Übereinstimmung eintritt oder kein Element mehr vorhanden ist. Dieses 
Verfahren sollte nur in Listen und unsortierten Arrays angewendet wer¬ 
den, da es mit 0{n) das langsamste Verfahren ist. 

Und im Array: 
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PROCEDURE SearchCREF feld : ARRAY OF INTEGER; 

data : INTEGER) : INTEGER; 

VAR i : INTEGER; 

BEGIN 

i:=feId’MIN; 

WHILE (i<=feId’MAX) AND (feld[i]#data) DO 
INC(i) 

END; 

RETURN i 
END Search; 


4.9.2 Binärsuche 

Hat man ein sortiertes Array zur Verfügung, gibt es ein wesentlich bes¬ 
seres Suchverfahren. Es beruht darauf: Nimmt man ein beliebiges Ele¬ 
ment heraus, kann man sicher sein, daß alle Elemente mit kleinerem 
Index kleiner und alle anderen größer sind. Nimmt man nun das mit¬ 
tlere Element aus dem Array heraus, kann man mit einem Vergleich 
schon die Hälfte des Eeldes eliminieren. Um also das richtige Element 
zu ünden sind nur 0(log(n)) Vergleiche nötig. 
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PROCEDURE BinSearchCREF feld : ARRAY OF INTEGER; 

data : INTEGER) : INTEGER; 

VAR I,r,m : INTEGER; 

BEGIN 

I:=feId’MIN;r:=feId’MAX; 

WHILE I#r DO 
m:=(r+I) DIV 2; 

IF feld[m]<data THEN 
I:=m+1 
ELSE 
r: =m; 

END 

END; 

RETURN I; 

END BinSearch; 


4.9.3 Interpolationssuche 

Weiß man, daß das Feld gleichmäßig ansteigt, die Werte der Feldelemente 
über ihrem Index aufgetragen, ziemlich genau eine Gerade ergeben, (z. B. 
Namen im Telefonbuch) bietet sich ein noch optimaleres Verfahren an. 

Das Verfahren läßt sich am besten graphisch verdeutlichen. Man 
trägt die Werte des Feldes in einem Graphen über ihrem Index auf. 
Dann konstruiert man eine Gerade durch den ersten und letzten Punkt 
des Intervalls. Diese Gerade schneidet man mit einer Horizontalen in 
Höhe des gesuchten Wertes. Danach prüft man, ob der gefundene Wert 
kleiner oder größer als der Gesuchte ist, und wählt danach die neuen 
Intervallgrenzen. 

Dies wird solange wiederholt, bis das gesuchte Element gefunden ist. 
Die Laufzeit des Verfahrens ist natürlich abhängig von der Verteilung 
der Elemente im Eeld, es gibt auch einen schlimmsten Eall, in dem n 
Vergleiche nötig sind, aber bei einigermaßen gleichmäßiger Verteilung 
ist das Verfahren das schnellste. 
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PROCEDURE InterpolationCfeld : ARRAY OF INTEGER; 

data : INTEGER) : INTEGER; 

VAR I,r,m : INTEGER; 

BEGIN 

I:=feId’MIN;r:=feId’MAX; 

WHILE feld[l]#feld[r] DO 

m:=(data-feld[l])*(r-I) DIV (feld[r]-feld[l])+I; 
IF feld[m]<data THEN 
I:=m+1 
ELSE 
r: =m 
END; 

END; 

RETURN I; 

END Interpolation; 


4.9.4 Suchbäume 

Ist die wichtigste Aufgabe einer Struktur, leichtes Erweitern und schnelles 
Suchen, empfiehlt sich eine der folgenden. Die einfachsten Strukturen 
dieser Art sind unter den Bäumen zu finden. 


4.9.4.1 Binärbäume 

Binärbäume lassen sich als Suchbäume verwenden, wenn man als Kri¬ 
terium ansetzt, daß der linke Ast nur Knoten enthält die kleiner, der 
rechte nur solche die größer sind als der aktuelle Knoten. 

Das Suchen in einem derartigen Suchbaum ist ähnlich wie die Binärsuche 
in einem Array. Zuerst wird der Wert mit der Wurzel verglichen. Ist er 
kleiner, wird als nächstes der linke, ist er größer, der rechte Knoten be¬ 
trachtet. Die Suche ist dann beendet, wenn der Vergleich ergibt, daß ein 
Knoten der gesuchte ist. 
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Abbildung 4.29: Binärbaum 
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TYPE 

Tree = POINTER TO Root; 

Root = RECORD 
lef t, 

right : Tree; 
data : INTEGER 
END; 

PROCEDURE Search(tree : Tree; data : INTEGER):tree; 
BEGIN 

WHILE tree#NIL 

AND_WHILE tree''. data>data DO 
tree : =tree''. lef t 
0R_WHILE tree''. data<data DO 
tree : =tree''. right 
END 
ELSE 

RETURN tree 
END; 

END Search; 


Die Suche ist dann erfolglos, wenn NIL zurückgegeben wird. 

Einfügen in einen Suchbaum läuft ähnlich ab, wie das Suchen eines 
Elementes, nur wird dabei, wenn das Element nicht schon im Baum 
vorhanden ist, dieses an das Blatt angehängt, das als letztes besucht 
wurde. 


PROCEDURE Insert (VAR tree : Tree; data : INTEGER); 
VAR p,q : Tree; 

BEGIN 
New(p); 

p''.data: =data; 
p'' .Ieft:=NIL; 
p''. right: =NIL; 
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IF tree=NIL THEN 
tree:=p; 

ELSE 

q:=tree; 

WHILE q''. data>data 

AND.WHILE q^.left#NIL DO 
q: =q''. left 
ELSE 

q''. left: =p 
END 

0R_WHILE q''. data<data 

AND_WHILE q''. right#NIL DO 
q:=q''. right 
ELSE 

q''. right: =p 
END 
ELSE 

RAISE2(KeyExistsError) 
END; 

END; 

END Insert. 


Die Laufzeit für Einfügen und Suchen beträgt für einigermaßen ausgegli¬ 
chene Bäume 0(log(n)). Ein Baum ist dann ausgeglichen, wenn sich die 
Anzahl der Knoten im rechten Ast jedes Knotens sich nicht extrem von 
der des linken Astes unterscheidet. Im schlimmsten Eall hat der Baum 
nur linke (oder nur rechte) Aste. Die Laufzeit ist dann 0{n). 

4.9.4.2 AVL-Bäume 

Um entartete, also völlig unausgeglichene Bäume zu vermeiden, wurden 
schon riesige Mengen an Gehirnschmalz aufgewendet. Am bekanntesten 
und effektivsten sind sicher AVL-Bäume (nach den Anfangsbuchstaben 
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der Entwickler). Um einen Algorithmus zu entwickeln, der nur ausge¬ 
glichene Bäume produziert, muß erstmal genau fest gelegt werden, was 
unter ausgeglichen zu verstehen ist. Dazu müssen wir die Höhe eines 
Baumes definieren: Die Höhe eines Baumes ist die Zahl der Knoten auf 
dem Weg von der Wurzel zum entferntesten Blatt. 

Da jeder Knoten auch Wurzel eines neuen Baumes ist, kann die 
Höhe eines Astes als die Höhe dieses Unterbaums definiert werden. Jetzt 
können wir festlegen, wann ein Baum ausgeglichen sein soll: Ein Baum 
ist dann ausgeglichen, wenn sich für jeden Knoten die Höhe seiner Aste 
maximal um 1 unterscheidet. Die Differenz von linker und rechter Höhe 
bezeichnet man als Ausgeglichenheits-Eaktor. 

TYPE 

Tree = POINTER TO Root; 

Root = RECORD 
lef t, 

right : Tree; 
a.fact : INTEGER; 
data : INTEGER; 

END; 

Um die A-Eaktoren eines Baumes zu berechnen verwendet man folgende 
Prozedur, die gleichzeitig auch die Höhe des Baumes zurückliefert. 

PROCEDURE GetAFactCtree : Tree):INTEGER; 

VAR I,r : INTEGER; 

BEGIN 

IF tree=NIL THEN 
RETURN 0 

ELSE 

I: =GetAFact (tree''. lef t) ; 
r: =GetAFact (tree''. right) ; 
tree''. a_f act: =r-I; 

IF r>I THEN 
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RETURN r+1 
ELSE 

RETURN 1+1 
END 
END 

END GetAFact; 


Ein Baum ist dann unausgeglichen, wenn ein A-Faktor nicht -1, 0 oder 
1 ist. Um das zu vermeiden, muß man eine veränderte Einfügeprozedur 
verwenden. Dabei kann eine Ausgleichstätigkeit nötig werden. Es gibt 
deren vier, wobei jeweils zwei symmetrisch sind. 


A 



B 



nach der Rotation 


Abbildung 4.30: Einfachrotation links 

Da nach diesen Rotationen die Höhe des beteiligten Baumteils wieder 
um eins vermindert wird, ist nur maximal eine Rotation nötig. Ich bes¬ 
chränke mich hier auf die beiden linken Rotationen. 
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A 



vor der Rotation 


E 



nach der Rotation 


Abbildung 4.31: Doppelrotation links 

PROCEDURE RotateLeft (VAR tree : Tree); 

VAR help : Tree; 

BEGIN 

help:=tree; 
tree: =tree''. lef t; 
help''. lef t: =tree''. right; 
tree''. right: =help; 
tree''. a_f act: =0; 
help''. a_f act: =0; 

END RotateLeft; 

PROCEDURE RotateDoubleLeft (VAR tree : Tree); 
VAR help : Tree; 

BEGIN 

help:=tree; 

tree: =tree''. lef t''. right; 
help''. left''. right: =tree''. left; 
tree''. left: =help''. left; 
help''. left: =tree''. right; 
tree''. right: =help; 

IF tree''. a_f act=-l THEN 
tree''. left''. a_fact: =0; 
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tree''. right''. a_f act: =1; 

ELSE 

tree''. left''. a_f act: =-l; 
tree''. right''. a_f act: =0; 

END; 

tree''. a_f act: =0; 

END RotateDoubleLeft; 

Beim Einfügen wird noch ein Flag znrückgegeben, ob sich die Höhe 
vergrößert hat. 

PROCEDURE Insert (VAR tree : Tree; data : INTEGER); 

BEGIN 

IF tree=NIL THEN 
New(tree); 
tree''. left: =NIL; 
tree'' .right :=NIL; 
tree'' .data:=data; 
tree''. a_f act: =0; 

ELSE 

IF data<tree''. data THEN 

IF Insert (tree''.left, data) THEN 
DEC (tree''. a_f act) ; 

IF tree''. a_f act>-2 THEN 
RETURN TRUE 
ELSE 

IF tree''. left''. a_fact=-l THEN 
RotateLeft(tree); 

ELSE 

RotateDoubleLeft(tree); 

END; 

END; 

END; 

ELSE 

IF Insert (tree''. right, data) THEN 


(©1992/93 by StoneWare 



4.9. SUCHALGORITHMEN 


111 


INCCtree'' .a_fact) ; 

IF tree''. a_f act<2 THEN 
RETURN TRUE 
ELSE 

IF tree''. right''. a_fact=l THEN 
RotateRight(tree); 

ELSE 

RotateDoubleRight(tree); 
END; 

END; 

END; 

END; 

END; 

RETURN FALSE 
END Insert; 


Den erhöhten Anfwand, den man hier braucht, hat man gut investiert. 
Einmal bleibt das Zeitverhalten beim Einfügen bei (9(log(n)), auch die 
Zeit zum Suchen ist immer garantiert (9(log(n)). 

Wir wollten Ihnen hier lediglich die Eunktionsweise eines AVL-Baumes 
nahebringen, Sie brauchen jedoch nicht diese Routinen selbst implemen¬ 
tieren, auch dafür gibt es ein generisches Standardmodul AVLTrees. 

4.9.5 Hashing 

Der Zeitaufwand beim Suchen entsteht durch das häufige Vergleichen 
mit verschiedenen Werten der Struktur, in der sich die Daten befinden. 
Optimal wäre es doch, wenn man direkt aus dem Schlüssel (z. B. einem 
Namen) auf den zugehörigen Datensatz schließen könnte, ohne erst noch 
viel vergleichen zu müssen. Dieses Verfahren ist leicht zu praktizieren, 
wenn die Schlüssel Zahlen in einem kleinen Intervall sind. Dann müßte 
man nur ein Array mit diesem Intervall als Indexbereich einrichten, und 
könnte sofort auf den Satz zugreifen. 
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TYPE 

Key = [5..200]; 

DPtr = POINTER TO Data; 

Data = RECORD 

END; 

VAR 

Search : ARRAY Key OF DPtr; 

PROCEDURE Insert (VAR d : Data; k : Key); 

BEGIN 

Search[k]:=Data’PTR 

END Insert; 

PROCEDURE Search(k : Key):DPtr; 

BEGIN 

RETURN Search[k] 

END Search; 

Bei größeren Schlüsseln, z. B. Namen, steigt die Größe des Arrays ins 
Unermeßliche, bei sechs Zeichen pro Wort auf 

281’000’000’000’000 Felder. Dieses Feld wäre aber nur sehr dünn gefüllt, 
da die Zahl der üblichen Namen weit geringer ist. Könnte man nun je¬ 
dem Namen einen eindeutigen Schlüssel zuordnen, wobei jeder Schlüssel 
nur einmal vorkommt, wäre man aus dem Schneider. Leider ist dies aber 
unmöglich (oder möchten Sie gerne Herr/Frau 123 245 heißen?). Eine 
zwar nicht ganz so gute aber dennoch annehmbare Lösung ist, jedem 
Namen einen eindeutigen Schlüssel zuzuordnen, so daß alle verwende¬ 
ten Schlüssel möglichst gleich häufig benutzt werden. Einen derartigen 
Schlüssel ermittelt man am besten mit einer Eormel aus den ASCII- 
Codes der Buchstaben. Dieses Verfahren nennt sich Hashing (zerha¬ 
cken), der Index Hashwert. 

Die einfachste Möglichkeit wäre, alle Codes aufzusummieren, und 
dann den Rest der Division dieser Summe mit der Anzahl der benutzten 
Schlüsseln als Index zu verwenden: 
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CONST MaxKey = 100; 


PROCEDURE EvalKeyCVAR s : STRING):INTEGER; 
VAR i : INTEGER; 

j : LONGINT; 

BEGIN 
j :=0; 

FÜR i:=0 TO s.Ien-1 DO 
INC(j »INTEGER(s.dataEi])) 

END; 

RETURN j MOD MaxKey 
END EvalKey; 


Dieses Verfahren hat allerdings den Nachteil, daß alle Namen, die sich 
nnr dnrch die Position ihrer Bnchstaben nnterscheiden, den selben Index 
haben. Besser ist dieses Verfahren. 


PROCEDURE EvalKeyCVAR s : STRING):INTEGER; 
VAR i : INTEGER; 

j : LONGINT; 

BEGIN 
j :=0; 

FOR i:=0 TO s.Ien-1 DO 

j:=j*2+INTEGER(s.data[i]); 

END; 

RETURN j MOD MaxKey 
END EvalKey; 


Tauchen in einer Hashtabelle zwei Namen mit dem selben Schlüssel auf, 
spricht man von einer Kollision. Um dem zu begegnen, werden alle Na¬ 
men mit dem selben Schlüssel in einer Liste gehalten, und nacheinander 
mit dem gesuchten verglichen. Es gibt auch die Möglichkeit diese Na¬ 
men über noch freie Felder der Hashtabelle zu verteilen. Dies bringt 
aber einige Probleme mit sich, etwa wenn die Tabelle voll ist. 
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TYPE 

DataPtr = POINTER TO Data; 

Data = RECORD 

next : DataPtr; 
name : STRING(10); 
data : INTEGER 
END; 

VAR 

Hash = ARRAY [0..MaxKey-1] OF DataPtr; 

Um die Tabelle zu initialisieren, müssen alle Felder mit leeren Listen 
belegt werden. 

PROCEDURE Init; 

VAR i : INTEGER; 

BEGIN 

FOR i:=0 TO MaxKey-1 DO 
Hash[i]:=NIL; 

END; 

END Init; 

Einfügen in ein Hasti läuft ab, wie bei einer normalen Liste, hat also 
einen Zeitbedarf von 0(1). 

PROCEDURE Insert (VAR name : STRING;data : INTEGER); 

VAR p : DataPtr; 

i : INTEGER; 

BEGIN 
New(p); 

p'' .name:=name; 
p''.data: =data; 
i:=EvaIKey(name); 
p''. next: =Hash [i] ; 

Hashfi]:=p; 

END Insert; 
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Die Suche läuft ebenfalls ab, wie in einer Liste. Nur ist die Laufzeit 
nicht 0(n), da in den Listen im allgemeinen nicht n Elemente enthalten 
sind. Bei einer Hashgröße von m Schlüsseln, und n Namen ergibt sich 
0{n/m). Sind also m und n einigermaßen gleich, ergibt sich 0(1) für 
das Suchen. 


PROCEDURE SearchCVAR name : STRING):INTEGER; 
VAR p : DataPtr; 

BEGIN 

p:=Hash[EvaIKey(name)]; 

WHILE p#NIL 

AND_WHILE NOT Equal(name,p''.name) DO 
p: =p''. next 
ELSE 

RETURN p''.data 
END 
ELSE 

RAISE2(NotFoundError); 

END; 

END Search; 


Hashing ist das, bei bekannter Zahl von Namen, wohl optimalste Verfah¬ 
ren, Daten wiederzufinden. Dies hat wohl auch die Entwickler des Amiga 
dazu inspiriert, im Gegensatz zu MS-DOS, die Namen in einem Ver¬ 
zeichnis in einem Hash abzulegen. Kollisionen werden dabei durch eine 
verkettete Liste abgefangen. Diese Liste besteht aus den Anfangsblöcken 
der Dateien und Unterverzeichnissen. Dies ist der Grund, warum ein DIR 
auf einem Amiga so viel länger dauert, als auf einem MS-DOS Maschin- 
chen. Dafür ist aber der eigentliche Zugriff auf eine Datei wesentlich 
schneller, da nicht die Liste aller Dateien durchgegangen werden muß. 
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4.10 Graphenalgorithmen 

Graphen spielen in der Informatik eine gewichtige Rolle. Viele auftre¬ 
tende Probleme lassen sich mit Graphen darstellen und lösen. Die ver¬ 
schiedenen Dateien, die zu einem Programm gehören, lassen sich in ihrer 
Abhängigkeit als Graph darstellen. 

DEFINITION MODULE a; 

END a. 

IMPLEMENTATION MODULE a; 

BEGIN 
CLOSE 
END a. 


DEFINITION MODULE b; 
IMPORT a; 

END b. 

IMPLEMENTATION MODULE b; 

BEGIN 

CLOSE 

END b. 


DEFINITION MODULE c; 
IMPORT a; 

END c. 


IMPLEMENTATION MODULE c; 
IMPORT b; 

BEGIN 
CLOSE 
END c. 
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MODULE d; 
IMPORT c; 
IMPORT a; 
BEGIN 
CLOSE 
END d. 


Mit einem derartigen Graphen arbeitet die Make-Rontine, die am Ende 
dieses Kapitels beschrieben wird. 


4.10.1 Depth-First versus Breadth-First 

Müssen alle Knoten nnd/oder Kanten eines Graphen bearbeitet werden 
(man sagt auch „besucht“), gibt es zwei grundlegende Methoden. Depth- 
First (Tiefensuche) besucht erst alle Nachfolger des ersten Nachfolgers 
des Knotens, bevor es sich dem zweiten zuwendet. Breadth-First (Brei¬ 
tensuche) besucht erst alle direkten Nachfolger eines Knotens, bevor es 
sich deren Nachfolger zuwendet. Um bei einem zyklischen Graphen einen 
Knoten nicht unendlich oft zu besuchen, werden die besuchten Knoten 
markiert. 


TYPE 


KantePtr = POINTER TO Kante; 

Kante = RECORD 

next : KantePtr 

to : KnotenPtr 


END; 

KnotenPtr= POINTER TO Knoten; 
Knoten = RECORD 

next : KnotenPtr; 
kanten : KantePtr 
END; 
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Für Depth-First bietet sich natürlich ein reknrsiver Algorithmus an. 


PROCEDURE DepthFirst(k : Knoten); 

VAR p : KantePtr; 

BEGIN 

...WorkOn...; (* hier wird was getan *) 

p:=k'' .kanten; 

WHILE p#NIL DO 

DepthFirst (p''. to) ; 
p:=p'' .next; 

END; 

END DepthFirst; 


Zur Breitensuche braucht man eine Queue, in der die zu besuchenden 
Knoten gehalten werden. 


PROCEDURE BreadthFirst(k : Knoten); 

VAR p : KantePtr; 

BEGIN 

PutQueue(k); 

WHILE NOT QueueEmpty DO 

...WorkOn...; (* hier wird was getan *) 

GetQueue(k); 
p:=k'' .kanten; 

WHILE p#NIL DO 
PutQueue (p''. to) ; 
p:=p'' .next 
END; 

END; 

END BreadthFirst; 


Im allgemeinen ist die Tiefensuche vorteilhafter, da sie mit weniger Auf¬ 
wand auskommt. 
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4.10.2 Abhängigkeiten 

Häufig wird über Graphen die Abhängikeit von Objekten untereinan¬ 
der ausgedrückt (z. B. wie oben die Abhängigkeiten von Programmein¬ 
heiten). Aus diesen Abhängigkeiten müssen dann weitere Folgerun¬ 
gen gezogen werden. Als Beispiel möchte ich wieder auf das Make 
zurückgreifen. Alle Objekt- und Symboldateien werden durch einen ei¬ 
genen Knoten repräsentiert, wobei neben den Abhängigkeiten auch noch 
ein Flag toCompile im Knotenrecord enthalten ist und angibt, ob dieses 
File neu kompiliert werden muß. Dies Eigenschaft vererbt sich auf alle 
abhängigen Knoten. 


PROCEDURE IsToCompileCk : KnotenPtr):B00LEAN; 

VAR p : KantePtr; 

BEGIN 

p:=k'' .kanten; 

WHILE p#NIL DO 

k''. toCompile: =k''. toCompile OR IsToCompileCp''. to) ; 
p: =p''. next 
END; 

RETURN k''. toCompile 
END IsToCompile; 


Diese Funktion wird für den obersten Knoten (das fertige Programm 
D) aufgerufen und ermittelt alle Dateien, die compiliert werden müssen. 
Wenn die Dateien dann nacheinander compiliert werden, muß darauf 
geachtet werden, daß ein Modul erst dann übersetzt werden darf, wenn 
alle Module, von dem es abhängig ist, übersetzt sind. 

PROCEDURE CompileCk : KnotenPtr); 

VAR p : KantePtr; 

BEGIN 

IF k^.toCompile THEN 
p: =k''.kanten; 
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WHILE p#NIL DO 
CompileCp''. to) ; 
p:=p'' .next 
END; 

Compiler.Compile(k); 
k''. toCompile : =FALSE 
END; 

END Compile; 


Diese Prozedur wird für alle Knoten nacheinander aufgerufen und sorgt 
selbst dafür, daß weder ein Modul doppelt compiliert und eins das müßte, 
nicht oder zu früh compiliert wird. 

4.10.3 Kürzester Pfad 

Eine brauchbare Anwendung für BreadthFirst ist die Lösung der Auf¬ 
gabe, den kürzesten Weg von einem Knoten zu einem anderen zu finden. 
Dabei ist die Länge eines Weges gleich der Anzahl der besuchten Knoten. 

PROCEDURE ShortestPathCfrom,to : KnotenPtr):INTEGER; 

VAR p : KantePtr; 

i : INTEGER; 

BEGIN 

PutQueue(from); 

PutQueue(O); 

WHILE NOT QueueEmpty DO 
GetQueue(from); 

GetQueue(i); 

IF from#to THEN 
INC(i); 

p: =from''. kanten; 

WHILE p#NIL DO 
PutQueue (p''. to) ; 

PutQueue(i); 
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p:=p'' .next 
END; 

ELSE 

RETURN i 
END 
END; 

RAISE2(NoWayError); 
END ShortestPath; 


Sollen die kürzesten Entfernnngen aller Knoten zu einem bestimmten 
ermittelt werden, geschieht dies wegen der geringeren Verwaltung mit 
DepthFirst. 


TYPE 

Knoten = RECORD 

entf : INTEGER 
END; 

VAR 

KnotenO : KnotenPtr; 

PROCEDURE Depth(k : Knoten); 

PROCEDURE Depth2(k : Knoten;entf : INTEGER); 
VAR p : KantePtr; 

BEGIN 

INC(entf); 

IF k''. entf >entf THEN 
k''. entf : =entf ; 
p: =k''.kanten; 

WHILE p#NIL DO 

Depth2 (p''. to, entf ) ; 
p:=p'' .next 
END; 

END; 

END Depth2; 
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VAR q : Knoten; 

BEGIN 

q: =KnotenO; 

WHILE q#NIL DO 

q''. entf : =INTEGER ’ MAX; 
q: =q'' .next 
END; 

Depth2(k,-1); 

END Depth; 
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4.11 Strukturiertes Programmieren 

Cluster ist eine strukturierte Programmiersprache der Pascal-Schule. 
Ein besonderes Merkmal einer strukturierten Sprache ist, daß Schleifen 
und Bedingungen nicht durch Sprünge sondern durch Strukturen bes¬ 
chrieben werden. 

Eine Schleife, die ein Element in einem Array sucht, hat in Urbasic 
folgendes Aussehen: 

1000 i=0 

1010 IF a(i)<>wert THEN i=i+l : GOTO 1010 


Und in Cluster: 


i:=0; 

WHILE a[i]#wert DO 
INC(i) 

END; 


In einem unstrukturierten Programm ist der Programmfluß häufig 
nicht einfach zu erkennen, da mangels Strukturierungsmöglichkeiten wild 
hin und her gesprungen wird (Spaghetticode, da der Programmfluß viel¬ 
fach verknotet ist). In einer strukturierten Programmiersprache gibt es 
keine Sprünge. Der Programmfluß ist deutlich an den Strukturen zu 
erkennen. 

Beispiel: Bilden des GGT mit Basic 

1000 INPUT a,b 
1010 IF b>a THEN 1030 
1020 x=b:b=a:a=x 
1030 c=a/b 

1040 IF c=INT(c) THEN 1070 
1050 c=a-b*INT(c):a=b:b=c 
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1060 GOTO 1030 
1070 PRINT b 

Und jetzt dieses Programmfragment mit Cluster: 

Readlnt(a);ReadInt(b); 

IF b>a THEN 

X:=a; a:=b; b:=x 
END; 

c:=a MOD b; 

WHILE c#0 DO 
a:=b; b:=c; 
c:=a MOD b 
END; 

Writeint(b); 

Der Programmflnß im oberen Programm ist nnr sehr schwer zn erkennen, 
da man den Sprüngen nachlaufen muß. Im unteren Programm ist der 
Fluß wesentlich einfacher zu erkennen, da sich Bedingung und Schleife 
sofort unterscheiden lassen. 

Strukturierte Programmiersprachen sind meist auch formatfrei, das 
heißt, es ist kein festes Format vorgegeben, in dem der Programmtext 
stehen muß. Somit kann der Programmtext so ausgerichtet werden, daß 
er einen Leser unterstützt. 

Eine weitere wichtige Eigenschaft moderner Programmiersprachen 
ist die Strukturierbarkeit von Daten. In Basic und Eortran gibt es als 
einzige Typen Zahlen, Zeichen und Arrays. Dynamisches Programmie¬ 
ren ist also so gut wie unmöglich. 


4.11.1 Außere Form eines Programms 

Das Ziel eines Programmierers ist es, einen Algorithmus richtig, lesbar 
und effizient (in dieser Reihenfolge) zu implementieren. Um die Lesbar- 
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keit und damit die Bearbeit- und Überschaubarkeit eines Programms zu 
verbessern, sollten einige Regeln eingehalten werden. 

Innere Programmteile, z. B. Schleifenkörper sollten gegenüber dem 
Kopf um etwa zwei Zeichen nach rechts eingerückt werden. Das Ende 
der Schleife (END oder REPEAT) sollte wieder auf gleicher Höhe mit dem 
Anfang stehen. 

WHILE ... DO 
Anweisung 1; 

Anweisung n 
END; 

Gleichrangige Anweisungen sollten mit dem Kopf der Struktur auf glei¬ 
cher Höhe erscheinen. 

IF ... THEN 
Anweisung 1.1; 

Anweisung l.n 
0R_IF ... THEN 
Anweisung 2.1; 

Anweisung 2.n 
ELSE 

Anweisung n.l 

Anweisung n.n 
END; 

Eine einschränkende Anweisung (AND_IF, AND_WHILE) sollte ebenfalls 
zwei Zeichen eingerückt werden. Anweisungen sollten nur dann hinterei¬ 
nander in eine Zeile geschrieben werden, wenn sie unmittelbar zusam¬ 
mengehören, z. B. bei einem Tausch zweier Variablen, oder der Ausgabe 
gemischter Daten. 
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x:=a; a:=b; b:=x; 

WriteStringC a*b="); Writeint(a*b,0); WriteLn; 

Bei einer Anweisung mit dem Schlüssel wert KEY sollten die Schlüssel und 
die zugehörigen Anweisungen in verschiedenen Spalten stehen. 

IF KEY a 

OF 1..2,3 THEN 

Anweisung 1.1; 

Anweisung l.n 
END 

OF 4,7,8 THEN 

Anweisung 2.1; 

Anweisung 2.n 
END 

ELSE 

Anweisung n.l 

Anweisung n.n 
END; 


Gehört zu jedem Wert nur eine Anweisung, können diese auch gemein¬ 
sam in der selben Zeile stehen, wobei auch alle END untereinander stehen 
sollten. 


IF KEY a 


OF 1..2,3 

THEN 

Anweisung 1 

END 

OF 4,7,8 

THEN 

Anweisung 2 

END 

OF . . . 

THEN 


END 


END 
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Ein Ausdruck sollte nur dann geteilt werden, wenn es unbedingt nötig 
ist. In diesem Fall sollte man darauf achten, daß deutlich wird, daß die 
Zeilen zusammengehören. 


det: =a [0,0] *a [1,1] *a [2,2] -a [2,0] *a [1,1] *a [0,2] + 
a[0,l]*a[l,2]*a[2,0]-a[2,l]*a[l,2]*a[0,0] + 
a[0,2]*a[l,0]*a[2,l]-a[2,2]*a[l,0]*a[0,l] ; 

Hat eine Prozedur eine größere Anzahl Parameter, so sollte die Definition 
des Prozedurkopfes in mehrere Zeilen zerlegt werden, wobei wieder auf 
die Spalten geachtet werden sollte. 

PROCEDURE OpenFileCVAR file : File; 

VAR name, 

path : STRING; 

buffer : INTEGER; 

new : BOOLEAN):BOOLEAN; 

Namen sollten so vergeben werden, daß die Bedeutung des beschriebe¬ 
nen Objekts deutlich wird. Namen sollten nicht völlig groß geschrieben 
werden, um sich von den Standardnamen zu unterscheiden. Großbuchs¬ 
taben im Wort, oder der Unterstrich können in Bezeichnern verwen¬ 
det werden, um deren Lesbarkeit zu erhöhen. Prozeduren und Typen 
sollten immer mit einem Großbuchstaben beginnen. Recordbezeichner 
und Namen in einem Aufzählungstyp sollten klein geschrieben werden. 

Bei der Deklaration von Typen, Variablen und Konstanten sollte 
man sich ebenfalls an Spalten halten. 

TYPE 

Koordinate = RECORD 

X, 

y : INTEGER 
END; 
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Polygon 

PolygonPtr 


ARRAY OF Koordinate; 
POINTER TO Polygon; 


VAR 

myTriangle 

myPolygon 


PolygonO) ; 
PolygonPtr; 


CONST 

Quadrat 


Polygon:((x=-10,y=-10), 
(x= 10,y=-10), 
(x= 10,y= 10), 
(x=-10,y= 10)); 


Zusammengehörende Objekte sollte man von anderen durch Leerzeilen 
abtrennen, um deren Gemeinsamkeit deutlich hervorzuheben. 


4.11.2 Kommentierung 

Dies ist das dunkelste Kapitel in der Geschichte der Informatik. Es gibt 
wohl keinen Programmierer, der seine Programme gerne kommentiert. 
(Es sollen aber auch schon Exzesse geschehen sein, in denen das Pro¬ 
gramm derart im Kommentar verschwand, daß der Programmierer es 
selbst nicht mehr entdecken konnte.) Aber Kommentierung muß sein; 
bei kleinen Programmen mag man ja noch den Überblick behalten, aber 
größere Projekte, an denen auch noch mehrere Programmierer arbeiten, 
sind ohne ausreichende Kommentierung nicht fertigzustellen. 

Am wichtigsten sind Kommentare in Definitions-Modulen, da diese 
vermutlich auch von anderen benutzt werden. Dabei sollten alle Typen 
mit ihren Aufgaben kurz beschrieben werden. Jede Prozedur sollte einen 
Kommentarkopf erhalten. 
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AUFGABE 

PARAMETER 

SEITENEFFEKTE 

BEMERKUNGEN 


Die Listenelemente werden nicht sortiert 
eingefuegt! 


Element an den Anfang der Liste einfügen 
Listenanfang, einzufügendes Element 


PROCEDURE Insert (VAR list : List; 

node : NodePtr); 

Es empfiehlt sich einen derartigen Kopf auch in Implementations-Modulen 
zu verwenden. Globale Variablen sind ebenfalls mit einem Kommentar 
zu versehen. 

Grundsätzlich läßt sich sagen, daß eine Kommentierung immer so 
sein sollte, daß ein anderer Programmierer Sinn und Verwendung im 
Definitions-Modul und die Funktion in der Implementierung erkennen 
kann. 

4.11.3 Datenstrukturierung 

Cluster verfügt über die in modernen Programmiersprachen üblichen 
Typkonstruktoren, Verbund (RECORD), Reihung (ARRAY, STRING), Menge 
(SET) und Indirektion (POINTER, CLASSPTR). Diese Möglichkeiten sollten 
auch so genutzt werden, da Sinn und Zusammenhang deutlich werden. 
Sollen z. B. die Daten von 20 Personen bearbeitet werden, gibt es zwei 
Möglichkeiten: 

TYPE 

Daten = RECORD 


namen : ARRAY [0..19] OF STRING(20); 
alter : ARRAY [0..19] OF INTEGER; 
phone : ARRAY [0..19] OF STRING(12); 


END; 
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oder: 


TYPE 


Person= RECORD 

namen : STRING(20); 
alter : INTEGER; 
phone : STRING(12); 
END; 

Daten = ARRAY [0..19] OF Person; 


wobei die erste Lösung abzulehnen ist, da sie den Zusammenhang der 
Felder nicht deutlich macht. Der Sinn von Typen ist, die Datenobjekte 
abstrakter zu machen, um so das Programmieren zu erleichtern. Arbeitet 
ein Programm zum Beispiel mit Vektoren, so vereinfacht ein Typ Vector 
die Arbeit, im Vergleich zur Verwendung von immer drei Variablen. 


TYPE 

Vector = ARRAY [0..2] OF REAL; 

VAR 

va, vb, vc, VC : Vector; 

PROCEDURE VAdd(vl,v2 : Vector):Vector; 
BEGIN 

END VAdd; 

BEGIN 

va:=VAdd(vb,VAdd(vc,vd)); 
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4.11.4 Modularisierung 

Ein wichtiges Konzept in Cluster ist die Modnlarisiernng. Sie dient der 
Vereinfachnng der Arbeit, da das Rad nicht immer neu erfunden werden 
muß. Die meisten Programmiersprachen verfügen über die Möglichkeit, 
Programmeinheiten getrennt zu übersetzten. Dies ist meist jedoch nur 
rudimentär gelöst, so daß die Typprüfung und ähnliches nicht über Mo¬ 
dulgrenzen hinweg möglich ist. Cluster prüft Typen über Modulgren¬ 
zen hinweg, so daß importierte Objekte genauso sicher sind wie eigene. 
Durch die Zerlegung eines Moduls in Definitions- und Implementations- 
Teil wird die Implementations-Entscheidung nach hinten verlegt. Wird 
nur das Implementations-Modul neu compiliert, braucht kein abhängiges 
Modul neu übersetzt werden. Durch den Datentyp HIDDEN ist es möglich, 
Objekte und Prozeduren damit zu definieren, ohne daß im Definitions- 
Modul schon fest gelegt ist, wie der Typ aussieht. 

DEFINITION MODULE IntStack; 

TYPE 

Stack = HIDDEN; 

PROCEDURE CreateStackCVAR s : Stack;size : INTEGER); 
PROCEDURE DeleteStackCVAR s : Stack;size : INTEGER); 
PROCEDURE IsEmptyCs : Stack):B00LEAN; 

PROCEDURE PushCs : Stack;elem : INTEGER); 

PROCEDURE PopCs : Stack; VAR elem : INTEGER); 

END IntStack; 

Dieses Definitions-Modul funktioniert, egal, ob der Stack als Liste oder 
Array realisiert wird, und selbst wenn dies geändert wird, muß kein 
abhängiges Modul übersetzt werden. Dieses Verbergen von Informatio¬ 
nen nach außen nennt sich “information hiding”, und sollte wann immer 
möglich Verwendung finden. 
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Module sollten möglichst allgemein sein, um ein breites Anwendung¬ 
sspektrum zu besitzen. Dies kann besonders in Verbindung mit offenen 
Typen und Prozedurvariablen erreicht werden. 


DEFINITION MODULE SortedList; 


TYPE 

NodePtr 

= POINTER 

TO Node; 

Node 

= RECORD 



prev, 

next 

: NodePtr; 

Greater 

END; 

= PROCEDURE(VAR nodel,node2 

List 

= HIDDEN; 



Node):B00LEAN; 


PROCEDURE CreateList (VAR I : List; greater : Greater); 
PROCEDURE Insert(I : List;elem : NodePtr); 


END SortedList; 

IMPLEMENTATION MODULE SortedList; 
TYPE 

List = POINTER TO 

RECORD OF Node 

greater : Greater 
END; 

PROCEDURE CreateList... 


I'' .prev:=I; 

I'' .next :=I; 

I''. greater: =greater; 

END CreateList; 

PROCEDURE Insert(I : List; elem : NodePtr); 
VAR p : List; 

BEGIN 
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p:=l'' .next; 

WHILE (p#l) AND NOT 1^ . greater (p'', elem'') DO 
p: =p''. next 
END; 

END Insert; 


Der wirkliche Typ, den diese Liste zu verwalten hat, ist dem Modul 
selbst völlig egal. 

4.11.5 Dinge, die man niemals tut!!! 

• In diesem Abschnitt möchte ich ein paar Beispiele dafür geben, 
was ein guter Programmierer vermeiden wird. 

• Vermeiden Sie globale Variablen und Prozeduren mit Namen wie 
i, p, do(...) etc., denen wirklich nicht anzusehen ist, wofür sie 
gut sind. 

• Benutzen Sie keine globalen Variablen für lokale Daten. Dies sorgt 
für die interessantesten Effekte, wenn das Programm wächst. 

• Deklarieren Sie keine Objekte, die niemals Anwendung hnden. 
Diese Objekte werden zwar durch den Linker entfernt, verwirren 
aber den Leser des Programmtextes. 

• Verändern Sie keine importierten Variablen, wenn ihnen dies nicht 
ausdrücklich erlaubt wurde. Vermeiden Sie möglichst Variablen zu 
exportieren. 

• Dehnieren Sie nichts in einem Dehnitions-Modul, was besser in die 
Implementation gehört. 

• Schreiben Sie Anweisungen, die nicht zusammengehören, nicht in 
eine Zeile. 

• Benutzen Sie keine nichtinitialisierten Variablen, besonders Poin¬ 
ter, obwohl diese meistens NIL enthalten. 
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• Vermeiden Sie LOOP.. .EXIT.. .END, soweit dies geht. 

• Verzichten Sie auf Funktionen mit Nebeneffekten. Eine Funktion 
sollte einen Wert zurückliefern, nicht aber andere Daten verändern. 
Eine Ausnahme bilden hier Prozeduren, die mit einem Boolwert 
angeben, ob Sie funktioniert haben. Auf solche sollte man jedoch 
in der Zwischenzeit verzichten, und stattdessen Exceptions ver¬ 
wenden, um einen Fehler anzuzeigen. 

• Vermeiden Sie wenn möglich die Übergabe größerer Typen an eine 
Prozedur als Werteparameter, da dies Stack und Laufzeit belastet. 
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4.12 Programmiertechniken 

Die Informatik beschäftigt sich nun seit über dreißig Jahren ziemlich 
erfolglos damit, aus dem Programmieren eine Wissenschaft zu machen. 
Der größte Erfolg dieser Forschung ist wohl die strukturierte Program¬ 
miersprache. Einige Dinge, die bei diesen Versuchen noch abgefallen 
sind, habe ich hier zusammengefaßt. Sie mögen ihnen skuril, oder zu¬ 
mindest doch relativ weltfremd Vorkommen, sind aber Bestandteil der 
modernen Informatik. 

4.12.1 Top-Down, Bottom-Up 

Ein Programm wird in zwei Richtungen entwickelt. Zuerst wird die Auf¬ 
gabe in immer kleinere Teilaufgaben zerlegt (Top-Down). Danach wer¬ 
den diese wieder aufsteigend implementiert (Bottom-Up). Dies hat den 
Vorteil, daß der Bereich, an dem gearbeitet wird, klein und überschaubar 
wird. Auf den Punkt gebracht heißt das nichts anderes als: „Ein Pro¬ 
gramm besteht aus Programmen“ und „Viele kleine Programme ergeben 
ein großes“. 

4.12.2 Programmentwicklung mit Induktion 

Induktion ist ein Verfahren Programme zu entwickeln, das im allge¬ 
meinen zu rekursiven Lösungen führt, und Top-Down verherrlicht. Ein 
Induktions-Fanatiker geht davon aus, daß er jedes Problem lösen kann, 
wenn er es in kleinere zerlegt. Soll er in einem Feld ein Element suchen, 
wird er sich folgendes Überlegen: 

Ich kann das Element finden, wenn ich es in einem kleineren Feld 
finden kann. In einem Feld mit einem Element, kann ich es finden, wenn 
es dieses ist. Um von einem Feld mit n Elementen auf eines mit einem 
Element weniger zu kommen, muß ich ein Element entfernen. Ist dieses 
Element das gesuchte, bin ich fertig, sonst muß ich das kleinere Feld 
prüfen. 
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PROCEDURE SearchCVAR feld : ARRAY OF INTEGER; 

elem, 

size : INTEGER):INTEGER; 

BEGIN 

IF feld[size-l]=elem THEN 
RETURN size-1 
ELSE 

RETURN Search(feld,elem,size-1) 

END; 

END Search; 


Dieses Verfahren ist durchaus geeignet, einfache Probleme zu erschwe¬ 
ren, sorgt aber bei Aufgaben, die man zerlegen kann, für meist richtige 
Lösungen. 


4.12.3 Divide and Conquer 

Die beste Technik, die mit Induktion arbeitet, ist Divide und Conquer 
(Teile und Herrsche). Bei diesem Verfahren wird die Aufgabe in zwei 
möglichst gleich große Aufgaben zerlegt und diese getrennt sortiert. Bei¬ 
spiele dafür sind Binärsuche und Quicksort. Dieses Verfahren liefert 
meist optimale Algorithmen und sollte Berücksichtigung finden. 


4.12.4 Programmentwicklung mit Deduktion 

Dieses Verfahren versucht mit Regeln und logischen Überlegungen Algo¬ 
rithmen zu entwicklen. Ein Deduktions-Fanatiker wird das Suchproblem 
von oben etwa so angehen. 

Es handelt sich um ein Feld, also wird wohl eine Schleife nötig sein. 
WHILE ... DO ... END; 
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Die Schleife ist dann beendet, wenn das richtige Element gefnnden ist. 
WHILE feld[i]#such DO ... END; 


Das beste wird es wohl sein, die Schleife am Anfang zn beginnen, nnd 
dann vorwärts lanfen zn lassen. 


i:=0; 

WHILE feld[i]#such DO INC(i) END; 


Mit Dednktion lassen sich viele Probleme so lösen, wie man es ohne auch 
machen würde. 

4.12.5 Rekursion versus Iteration 

Rekursive Verfahren bestehen darin, daß ein Problem in kleinere zerlegt 
wird, und die Lösungsroutine sich damit aufruft. Dies führt irgendwann 
einmal auf einen Basisfall, der sich einfach lösen läßt. Iterative Verfahren 
schreiten im Lösen einer Aufgabe in Richtung auf die Lösung hin. Diese 
erreichen sie nach einer endlichen Zahl Schritte. 

Rekursive Algorithmen sind wegen der häufigen Prozeduraufrufe meist 
langsamer und Speicher-verschwendender als iterative. Dafür sind sie 
aber häufig überschaubarer als diese. Theoretisch läßt sich jeder rekur¬ 
sive Algorithmus mit einem Stapel in einen iterativen umsetzen. 

4.12.6 Programmbeweise 

Dies ist der jüngste und abstrakteste Einfall der theoretischen Infor¬ 
matik. Das Problem beim Programmieren ist, daß man nie weiß, ob 
ein Programm auch fehlerfrei ist. Man kann noch so viel testen und 
probieren, früher oder später taucht doch wieder ein Eehler auf. Um 
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dem abzuhelfen wurde eine Methode entwickelt, mit der sich die Rich¬ 
tigkeit eines Programmes im mathematischen Sinn beweisen läßt (Sie 
haben richtig gelesen, es gibt Leute die beweisen, daß ihr Programm 
auch funktioniert). Die Technik basiert auf der mathematischen Logik, 
und ist extrem abstrakt. Doch hat man ein Programm bewiesen, ist man 
völlig sicher, daß es korrekt ist. Es sei denn, im Beweis steckt ein Fehler. 
Dies, und der immense Zeitaufwand machen diese Technik für die Praxis 
unanwendbar. Doch in diese Forschung werden Millionen gepumpt. Der 
größte Sponsor ist das Dod (Department of Defence) und die NATO, 
und der Auslößer ist das SDI-Projekt. Das einzig interresante an der 
ganzen Forschung, ist mal wieder, daß sich die Größen der Forschung 
mit Geld durch die Militärs korrumpieren lassen. 
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Nachdem Sie bisher bei der Programmierung nur über die Standardmo- 
dule die Möglichkeit hatten, die phantastischen Fähigkeiten Ihres Ami- 
gas zu nutzen, wird Ihnen jetzt gezeigt, wie das Betriebssystem direkt 
programmiert wird, damit Sie noch flexibler mit Ihrer Maschine umgehen 
können. 


5.1 Was ist ein Betriebssystem? 

Das Betriebssystem ist das grundlegende Verwaltungssystem, das die 
ganze Zeit, die der Rechner eingeschaltet ist, wie ein öffentlicher Dienst 
(der nie streikt) den Programmen die Rechnerresourcen zur Verfügung 
stellt. So kann man einige Hauptaufgaben unterscheiden: 

Prozesse Ein modernes Betriebssytem kann mehrere Prozesse (Pro¬ 
gramme) gleichzeitig ausführen. Dazu muß die zur Verfügung ste¬ 
hende Zeit ehrlich aufgeteilt werden und dafür gesorgt werden, daß 
alle Programme gleichzeitig die Resourcen des Betriebssystems in 
Anspruch genommen werden können, ohne daß dabei Konfliktsi¬ 
tuationen auftreten. 

Kommunikation Wenn man mehrere Programme gleichzeitig 
ausführen kann, dann möchte man auch diese Programme mitei¬ 
nander kommunizieren lassen, um optimale Flexibilität zu ermöglichen 
(z. B. Drucken im Hintergrund und Unterbrechung, wenn es Pro¬ 
bleme gibt). Die Kommunikation zur Außenwelt (Graphik, Sound, 
Schnittstellen, Speichermedien, Tastatureingabe, etc.) wird eben¬ 
falls vom Betriebssystem organisiert. 

Hardware Eine jede Rechnerhardware unterliegt einer gewissen Evo¬ 
lution und da wäre es praktisch, wenn die alten Programme die 
neuen Möglichkeiten des Rechners nutzen können (z. B. neue Gra¬ 
phikmodi von neuen Graphikchips). Außerdem kann in einem 
Multitaskingsystem nicht jeder gleichzeitig auf die Hardware zu¬ 
greifen, da diese sonst sicherlich sehr schnell durcheinander geraten 
würde. 
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Bibliotheken Ein jedes Betriebssystem bietet eine gewisse Menge an 
Standardroutinen, die von den Programmen genutzt werden können 
Das spart zum einen Platz (sowohl auf der Platte, als auch im 
Speicher), zum anderen erleichtert es die Anpassung an eine neue 
Version, da das Programm nur neu gestartet werden muß, aber 
kein neues Programm hergestellt werden muß. 


5.2 Cluster und Kickstart 

Um sich die Organisation des Rechners besser vorstellen zu können, stelle 
man sich den Amiga als ein großes Fabrikunternehmen vor und das Be¬ 
triebssystem als Firmenleitung. 

Unser eigenes und alle anderen Programme sind lediglich kleine Ab¬ 
teilungen, die der Firmenleitung unterstehen und deren Anlagen nutzen 
können. 

Nun stellt sich natürlich die Frage, wie man die Resourcen des Rech¬ 
ners, also die Anlagen der Firmenleitung, verwenden kann. Normaler¬ 
weise muß man von Hand alle zu verwendenden Resourcen öffnen und 
schließen, wie es z. B. Assembler- oder C-Programmierer tun. 

Als Clusterprogrammierer brauchen Sie sich nicht darum zu kümmern, 
da sich alle Schnittstellenmodule selbst darum kümmern, daß die Bi¬ 
bliotheken und Gerätetreiber bei Programmstart geöffnet und bei Pro¬ 
grammbeendigung wieder geschlossen werden, sogar wenn das Programm 
unvorhergesehen abgebrochen wird. 

Doch gerade bei der Nutzung der Bibliotheksfunktionen von der 
Sprache Cluster aus entsteht ein kleines Problem. Das Betriebssystem 
des Amigas wurde nämlich in „C“ geschrieben, und „C“ kennt zum ei¬ 
nen nicht den Typ String, besitzt keine VAR-Parameter und kann keine 
komplexen Typen an Prozeduren übergeben. 

5.2.1 Komplexe Typen 

Das Problem komplexer Typen oder VAR-Parameter umgeht „C“, in¬ 
dem es Zeiger auf die übergebenen Werte übergibt, so auch bei Strings. 
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Außerdem sind Strings in „C“ einfach ARRAY OF CH AR, und ein Null-Byte 
kennzeichnet das Stringende. 

Bei der Implementierung der Systemmodule sind wir so vorgegan¬ 
gen, daß wir, wenn sinnvoll, Pointer durch VAR/REF-Parameter ersetzt 
haben, wenn die zu verwendenden Parameter eher als Variable statt als 
dynamisch allozierte Struktur vorliegt. 

5.2.1.1 Strings 

Strings erhielten eine besondere Unterstützung, so daß der Unterschied 
von Cluster- zu C-Strings kaum noch ins Gewicht fällt. Voraussetzung 
für die sichere Verwendung von Clusterstrings im Zusammenhang mit 
Systemfunktionen ist, daß sie mit einem Nullbyte terminiert sind. So¬ 
lange Sie nur Stringkonstanten sowie die Prozeduren aus den Modulen 
Str und Strings verwenden, ist dies immer sichergestellt. Modifizieren 
Sie jedoch einzelne Zeichen eines Strings von Hand, so müssen Sie sichers¬ 
tellen, daß danach der Längeneintrag sowie das Nullbyte korrekt gesetzt 
worden sind. Um aus einem fehlenden Nullbyte resultierende Fehler zu 
vermeiden verfügt der Compiler über den Laufzeitcheck StrZeroChk der 
bei jeder Stringzuweisung überprüft, ob str. data [str. len] = &0 ist. 

Bei Library-Prozeduren, die einen REF-Parameter vom Typ String 
haben, kann man sowohl einen Strin^als auch auch einen SysStringPtr 
übergeben. 

Bei Parametern vom Typ SysStringPtr kann man sowohl Zeiger als 
auch einen konstanten String übergeben; im letzteren Fall ermittelt der 
Compiler den Zeiger automatisch. Dies funktioniert auch bei Einträgen 
in Systemstrukturen vom Typ SyStringPtr. Der Typ „SysStringPtr“ 
ist im Modul System folgendermaßen definiert: 

TYPE 

SysStringPtr : POINTER TO ARRAY OF CHAR; 

Einen Clusterstring in einen SysStringPtr zu verwandeln ist sehr ein- 
^Der Compiler übergibt automatisch einen Zeiger auf str.data 
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facl:|^ ptr :=str .data’PTR, man ermittelt einfach den Zeiger des Da¬ 
tenfeldes des gewünschten Strings. 

Um einen SysStringPtr in einen ClusterString umzuwandeln exis¬ 
tiert im Modul Strings die Prozedur Str(): 

$$0wnHeap:=TRUE 

PROCEDURE StrCptr IN AO : SysStringPtr):STRING; 

War ptr = NIL, wird ein String mit Länge Null zurückgegeben. Mit 
dieser Unterstützung sollte es leicht sein, mit den Systemstrings fertig 
zu werden. 

5.2.1.2 Tags 

Seit OS 2.0 verwendet das Betriebssystem eine neue Methode zur Übergabe 
von Parametern an Systemfunktionen, sogenannte „Tags“. Tags bie¬ 
ten den Vorteil, daß man leicht neue Parameter hinzufügen kann, ohne 
mit den alten in Konflikt zu kommen. Tags werden immer in Listen 
übergeben, dabei setzt sich ein Tag immer aus einer Tag-Id und einem 
32-Bit Tag-Wert zusammen. Anhand der Tag-Id erkennt die Prozedur, 
der eine Tagliste übergeben wird, welche Bedeutung der Tag-Wert hat. 

Im Gegensatz zu der Tag-Implementierung von „C“ verfügt Cluster 
über einen Typcheck für Tags, d. h. es wird überprüft, ob der Wert 
hinter der Tag-Id auch dem Typ der Tag-Id entspricht. Um dies zu 
gewährleisten, muß man für die einzelnen Ids die entsprechenden Typen 
definieren. Dabei ist daran zu denken, daß die Typen maximal 4 Bytes 
groß sein dürfen, für größere Objekte verwenden Sie bitte Zeiger. 

Es ist möglich von bestehenden Tagtypen zu erben, somit enthält 
der neue Tagtyp die Elemente des Alten plus die neu definierten. Im 
Normalfall erbt man von StdTags die in Utilities. def definiert sind. 
Sie enthalten einige Standardtags, insbesondere den Tag DONE, durch 
welchen das Ende einer TagListe definiert wird. 

^ Seit die Nullbyte-Termination in die Sprachdefinition aufgenommen 
wurde, hat die Funktion SysStrO aus dem Modul Strings seine Bedeutung 
verloren und existiert nur noch aus Kompatibilitätsgründen. 
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Neben dem Typen trägt jede Tag-Id noch eine Nnmmer, an der Sie 
erkannt werden kann. Bei der Definition von neuen Tags muß nur der 
ersten Tag-Id ein Wert zugewiesen werden, die darauffolgenden werden 
automatisch durchnummeriert, ähnlich wie bei Aufzählungstypen. Am 
Beispiel der ScreenTags, die zum Öffnen eines Screens benötigt werden^ 
soll die Definition von Tags gezeigt werden: 


ScreenTags = TAGS OF StdTags 


width = $80000020 

INTEGER; 

height 

INTEGER; 

depth 

INTEGER; 

name 

POINTER TO STRING; 

f lags 

ScreenFIagSet 


END; 


Tags werden in Form von TAG-Listen verwendet, das sind (nach Bedarf 
auch verkettete) Arrays von Tag-Typen. 

Beispiel: 


TYPE 

ScreenTagList = ARRAY OF ScreenTags; 

Um nun einen Screen zu öffnen, muß eine Tag-Liste angegeben wer¬ 
den, in der die Elemente aufgeführt sind, die sich von den Werten eines 
Standardscreens unterscheiden. Der Vorteil auch hier, man muß keine 
unnötigen Werte angeben, die man gar nicht verändern möchte. 

OpenScreenTagList (ScreenTagList: (width. : 320, 

height : 256, 
name : "Naine"’PTR, 

DÜNE)); 


Sicher ist Ihnen aufgefallen, daß bei Tags die Werte von der Tag-Id durch 
Doppelpunkte getrennt werden, da es sich hierbei um keine Zuweisung 
handelt. Bitte beachten Sie den letzten Tag-Eintrag DOME, er darf auf 

^Die hier definierten entsprechen nicht den in Intuition definierten. 
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gar keinen Fall fehlen, da das System an ihm erkennt, daß die Liste hier 
endet. 

Anstelle von einem konstanten Array können Tags auch als Typ eines 
LIST OF-Parameters verwendet werden, dann können als Argumente der 
Tags auch nicht konstante Ausdrücke verwendet werden. Die Funktion 
Max in unserem Beispiel gibt jeweils den größeren der Parameter zurück, 
StandardWidth sei eine Variable. 

OpenScreenTagsCns : NewScreenPtr;tags : LIST OF ScreenTags); 

OpenScreenTagsCNIL, width : Max(320,StandardWidth), 

height : Max(256,StandardHeight), 
name : "Name"’PTR, 

DÜNE); 

Da ein Tag kein gewöhnlicher Clustertyp ist, kann man auch nicht direkt 
auf die einzelnen Elemente einer TagListe zugreifen. Hierfür sind zwei 
spezielle Standardfunktionen definiert, TGET und TPUT. TGET extrahiert 
einen Tag wertaus einer Liste, TPUT ändert einen Wert in einer Tagliste. 
TGET erhält drei Argumente: Die Liste, den Namen des Tags, dessen 
Wert ermittelt werden soll und einen Defaultwert, der zurückgeliefert 
werden soll, falls der Tag nicht in der Liste enthalten ist. TPUT hat eine 
ähnliche Argumentliste, lediglich der letzte Wert ist kein Defaultwert, 
sondern der neue Inhalt des Taglistenelements. 


VAR tags := ScreenTagList:(width 

name 

w : INTEGER; 


320, height : 256, 
"Name"’PTR,DÜNE); 


w:=TGET(tags,width,0); 

TPUT(tags,name,"Neuer name"); 


Da nur 32-Bit breite Tagtypen zugelassen sind, wurden zwei neue Ty¬ 
pen für 32-Bit Zeichen und Booleanwerte eingeführt: LONGBOOL und 
LONGCHAR. Diese sind zu BOOLEAN bzw. CHAR vollkommen kompatibel, 
nur daß sie nicht 8 sondern 32 Bit belegen. 
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5.2.2 Weiterführende Literatur 

Dieses Kapitel kann nnd will keine vollständige Abliandlnng in das Amiga- 
Betriebssystem sein, vielmehr soll es als eine kleine Einführnng dienen. 
Wer tiefer in diese Materie einsteigen will, dem seien die Rom-Kernel- 
Reference-Mannals (knrz RKMs), erschienen bei Addison Wesley, wärmstens 
empfohlen, sie ist die beste Literatnr zn diesem Thema, leider nnr in en¬ 
glischer Sprache. Desweiteren sei anf das Amiga-Gnrn-Bnch von Ralph 
Babel hingewießen, in dem wohl die nmfangreichste Doknmentation znm 
Thema Dos enthalten ist. 

Anßerdem empfiehlt es sich die Includes nnd Antodocs anf Diskette 
bei Hirsch & Wolf zn besorgen, da in den Antodocs eine knrze Beschrei- 
bnng aller Library-Fnnktionen enthalten ist, auf die man dann direkt 
aus dem Editor zugreifen kann. 
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5.3 Exec, der Boss 

Exec ist, wie schon die Überschrift sagt, der Teil des Betriebssystems, 
der über allem steht und alles koordiniert. Exec ist auch die einzige 
Library, die nicht geöffnet werden muß, sondern immer offen ist, denn 
schließlich enthält diese Library den Befehl zum Offnen von Libraries. 
Schließlich kann man sich nicht wie Münchhausen an den eigenen Haaren 
aus dem Sumpf ziehen. 

Daher steht die Basisadresse von Exec immer in Adresse $04 des 
Speichers. Eolglich sollte man sich auch zurückhalten, den Inhalt die¬ 
ser Adresse zu verändern, da sonst unvergleichliche Ausflüge nach In¬ 
dien bevorstehen, die unerwünschte Amnesie im Kurz- und Langzeit¬ 
gedächtnisses des Rechners hervorrufen können. 

Doch Exec ist nicht nur dazu da Bibliotheken zu öffnen oder zu 
schließen. Von ihm wird auch das recht komplexe Multitasking gehand- 
habt (oder neudeutsch gehandelt). D. h., da auch beim Multitasking 
mehrere Programme nicht wirklich gleichzeitig ablaufen, sondern nur 
zwischen den einzelnen Programmen umgeschaltet wird, muß schließlich 
jemand bestimmen, welches Programm gerade läuft und welche Pro¬ 
gramme zu warten haben. 

Die dritte wichtige Aufgabe von Exec ist die Verwaltung des Spei¬ 
chers, doch dazu später mehr. 

5.3.1 Knoten, die allgegenwärtige Struktur 

Man kann sich vor st eilen, daß in einem derartig großen System die Ver¬ 
waltung nicht gerade einfach ist, und ebenso wie in einem Großunterneh¬ 
men sich der Chef nicht die Namen und Daten aller Angestellten merken 
kann, kann sich auch Exec nicht alle Verwaltungsstrukturen merken. 

Wie ein Unternehmer, der Listen über seine Angestellten führt, macht 
dies auch Exec über verkettete Listen im Speicher, und weiß immer nur 
wo diese Listen „liegen“. Denn in der exec.library gibt es eine Struktur 
namens ExecBase, in der die Anfänge aller wichtigen Listen verzeichnet 
sind. 

Listen bestehen neben einem Listenkopf (dazu gleich) aus sogenann- 
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ten Knoten oder auch „Nodes“, die Records von folgendem Aufbau sind: 


TYPE 

MinNodePtr = POINTER TO MinNode; 

MinNode = RECORD 

succ, 

pred : SAMEPTR; 
END; 


NodePtr = POINTER TO Node; 

Node = RECORD OE MinNode 

type : NodeType; 
pri : NodePri; 
name : SysStringPtr; 
END; 


I 8 Bytes 


I 14 Bytes 


Da eine Node Nachfahre von MinNode ist, enthält sie natürlich auch deren 
Felder. Zur Erinnerung, ein SAMEPTR zeigt immer auf das Objekt, in dem 
es verwendet wird, also in einer MinNode auf eine MinNode, in einer Node 
auf ein Node. Die Felder im einzelnen: 

succ Zeiger auf vorhergehenden Knoten 
pred Zeiger auf nachfolgenden Knoten 

type Wie Sie sicher schon denken können, erben alle möglichen System¬ 
strukturen, die in Listen verwaltet werden, von Node oder einem 
ihrer Nachfolger, so daß man immer eine Node am Anfang einer 
jeden Struktur hat. Um nun näher anzugeben, um welche Art von 
Node es sich handelt, dient das Feld type vom Aufzählungstyp 
NodeType. typ sollte bei der Initialisierung bereits angegeben wer¬ 
den. 


TYPE 

NodeType = 


( unknown, 
device, 
freeMsg, 
library, 


task, 
msgPort, 
replyMsg, 
memory, 


Interrupt, 
message, 
resoucre, 
softint, 
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font, process, semaphore, 

signalSem, bootNode, kickMem, 

graphics, deathMessage, user = 254, 
extended ); 

pri gibt die Priorität eines Knotens im Verhältnis zn den anderen Nodes 
an, manche Systemlisten werden abhängig von der Priorität geord¬ 
net, wobei +127 die größte nnd —128 niedrigste Priorität angibt, 
meistens wird dieses Feld jedoch gar nicht benntzt. 

name Zeiger anf den Namen der Node (ist oft anch NIL), zeigt natürlich 
anf einen Systemstring mit „&0“ am Ende. 

Nachdem wir nnn die Einzelheiten einer Liste genan genng angesehen 
haben, wollen wir nnn betrachten wie eine Liste darans anfgebaut wird. 

5.3.2 Aufbau von Systemlisten 

Eine Systemliste besteht normalerweise ans einem Listenkopf nnd an¬ 
gehängten Knoten, so daß es ganz nach einer doppelt verketteten Liste 
aussieht. In Wirklichkeit sind Systemlisten aber eigentlich Ringlisten 
(zirkurläre Listen), die Sie schon aus Kapitel 5 her kennen. Allerdings 
ist das Hilfselement nicht ganz offensichtlich, denn dabei handelt es sich 
um den Listenkopf. Dieser ist folgendermaßen aufgebaut: 

TYPE 

List = RECORD 
head, 
tail, 
tailPred 
type 
pad 
END; 

head Pointer auf die erste Node der Liste, 
tail ist immer NIL; 


NodePtr; 
NodeType; 
SHORTCARD 
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tailPred Zeiger auf das letzte Element der Liste 
type gibt an, welche Nodes in dieser Liste sind 

pad hat keine Funktion, sondern ist nur da, damit die Länge stimmt 



Die einzelnen Elemente sind über die Felder succ und pred miteinander 
verkettet, wobei succ des letzten Knotens auf den Eintrag tail des 
Listenkopfes zeigt. So wird innerhalb des Listenkopfes ein Schlußele¬ 
ment (Sentinel) gebildet, dessen succ-Feld, also das tail-Feld des Lis¬ 
tenkopfes, NIL enthält. Das type-Feld des Listenkopfes ist das type-Feld 
des Sentinels und das scheinbar sinnlose pad-Feld des Listenkopfes ent¬ 
puppt sich als pri-Feld des Sentinels. Somit könnte man den Listenkopf 
auch so definieren: 

TYPE 

List2 = RECORD 

head : NodePtr; 
sentinel : Node; 

END; 

Die List2 hat lediglich das name-Feld zuviel, das bei einem Sentinel so¬ 
wieso nicht verwendet wird. Obige Darstellung soll aber nur verdeutli¬ 
chen, wie die Liste aussieht, wenn man versucht sie als normale, doppelt 
verkettete Liste zu interpretieren. 
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Achtung: Eine Liste ist nicht leer, wenn head nnd tailPred NIL sind, 
wie man vielleicht annehmen könnte; sie ist leer, wenn head auf den 
Eintrag tail des Listenkopfes zeigt und tailPred auf head. Das ist 
logisch, wenn man sich List2 anschaut, da die Systemlisten eben immer 
diesen inhaltslosen Sentinel am Ende haben. Siehe Skizze: 


head — 

tail=NIL 

tailPred- 

type 

pad 


Da Listen dynamischer Art sind werden alle Strukturen, die auf Kno¬ 
ten und Listen aufbauen über Pointer angesprochen, also ohne VAR- 
Parameter. Sie sollten generell dynamisch über das Modul T Exec ar¬ 
beiten (siehe Kapitel T_Exec), da dieses Modul für automatische Besei¬ 
tigung des Datenmülls sorgt und konsistente Konstruktionsfunktionen 
bereitstellt. 

Da die Handhabung der Systemlisten nicht ganz einfach ist, stellt 
uns das Exec Modul und die exec.library (nicht alles stammt aus der 
library) einige Routinen für die Arbeit mit Listen zur Verfügung. 

Um eine neue Node in eine Liste einzutragen, stehen Ihnen folgende 
Eunktionen zur Verfügung: 

PROCEDURE NewList(VAR list : List; 

type : NodeType ); 

PROCEDURE EnqueueC list IN AO : ListPtr; 

node IN Al : NodePtr); 


PROCEDURE 

Insert( list 

IN AO : 

ListPtr; 


node 

IN Al, 



listNode 

IN A2 : 

NodePtr ) 

PROCEDURE 

AddHeadC list 

IN AO 

: ListPtr; 
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node IN Al : NodePtr ); 

PROCEDURE AddTaiK list IN AO : ListPtr; 

node IN Al : NodePtr); 

NewList initialisiert eine Variable list vom Typ List als Listenkopf, 

so daß Sie danach eine leere Liste für Knoten vom typ type haben. 

Enqueue fügt node prioritätssortiert in die Liste list ein. Praktisch 
bedeutet es, daß node vor den ersten Knoten in der Liste mit einer 
niedrigeren Priorität eingefügt wird. 

Insert fügt den Knoten node in die Liste list hinter dem Knoten 
listNode ein. 

AddHead fügt node als erstes Element von list ein. 

AddTail fügt node am Listenende ein. 

Um ein Knoten aus einer Liste zu entfernen existieren entsprechende 

Funktionen: 


PROCEDURE Remove( minNode IN Al : MinNodePtr ); 
PROCEDURE RemHeadC list IN AO : ListPtr ): NodePtr; 
PROCEDURE RemTaiK list IN AO : ListPtr ): NodePtr; 


Remove entfernt minNod43 aus der Liste. Sie sollten sich trotzdem eine 
Referenz auf den Knoten behalten, da er sonst verlorener Speicher 
wird. 

RemHead entfernt den ersten (list''.head'') Knoten aus der Liste 
list. Wenn list leer ist, wird NIL als Ergebnis zurückgegeben, 
ansonsten einen Zeiger auf den entfernten Knoten. 

®Diese Funktion funktioniert auch mit Knoten vom Typ Node 
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RemTail wie RemHead, jedoch mit dem letzten Knoten in list. 

Wollen Sie eine bestimmte Node nach ihrem Namen suchen, sollten Sie 
die Funktion FindName verwenden: 


PROCEDURE FindName( list 

name 


IN AO : ListPtr; 

IN Al : SysStringPtr ): NodePtr; 


list Liste, in der gesucht werden soll 

name Zeiger auf den Namen, nach dem gesucht werden soll. 

Nach so viel Theorie wollen wir uns eine Liste in der Praxis ansehen. 
Wie schon erwähnt, gibt es im Modul Exec eine Struktur, die soge¬ 
nannte ExecBase, in der die Köpfe einiger Systemlisten stehen. Unter 
anderem auch eine Liste aller Libraries. Mit dem untenstehenden Pro¬ 
gramm können Sie die Namen aller vorhandenen Libraries ausgeben. 

MODULE WriteLibNames; 

FRÜH Exec IMPORT NodePtr, ExecBase,Forbid,Permit; 

FROM InOut IMPORT WriteString, WriteLn; 

FROM Strings IMPORT Str; 

VAR p : NodePtr; 

ch : STRINGPTR; 

BEGIN 

Forbid; 

p:=ExecBase".libList.head; 

WHILE p^.succ#NIL DO 

WriteStringC Str( p'.name ) );WriteLn; 
p:=p".succ 
END; 

Permit; 

END WriteLibNames. 

Achtung: Dieses Programm soll lediglich dazu dienen, die Verwendung 
von Exec-Listen zu demonstrieren. Nur erfahrene Programmierer sollten 
direkt auf die ExecBasestruktur zugreifen, für alle andere bedeutet dies: 
Einger weg! 
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5.3.3 Prozesse 

Auch wenn vorher schon erwähnt, möchte ich noch mal kurz erklären, 
worum es beim Ausführen von Prozessen im Multitasking eigentlich geht. 

Multitasking bedeutet, daß mehrere Programme scheinbar gleich¬ 
zeitig arbeiten. In Wirklichkeit schaltet das Betriebssystem aber nur 
zwischen den einzelnen Programmen hin und her, so daß jeder Prozeß 
eine seiner Priorität entsprechende Rechenzeit erhält. Das ganze geht 
jedoch so schnell vor sich, daß der Anwender in der Regel nichts davon 
merkt, es sei denn es laufen sehr viele Prozesse gleichzeitig. 

Im Amiga gibt es zwei Arten von Prozessen, den Task und den Pro- 
cess (bitte auf die Schreibweise achten: Prozeß ist allgemein, Process ist 
eine Amiga Systemstruktur). Tasks sind die grundlegende Verwaltungs¬ 
struktur für das Multitasking, Processe sind eine Erweiterung davon, um 
Tasks den Zugang zum Dos zu ermöglichen (siehe Kapitel über Dos). 

Nun gibt es prinzipiell zwei Möglichkeiten einen Prozeß zu star¬ 
ten. Zum einen durch Start eines Programmes von der Workbench aus 
oder von der SHELL mit run (auch wenn dabei eigentlich nicht nur ein 
Task sondern auch ein Process gestartet wird, doch dazu später). Zum 
anderen, indem Sie eine Prozedur ihres Programmes als eigenen Task 
erklären. Von den zwei Möglichkeiten, interessiert uns jetzt nur die letz¬ 
tere: 

Um nun einen eigenen Task zu erzeugen, muß man eine entspre¬ 
chende Struktur initialisieren und diese dann mittels AddTaskO aus Exec 
ins System einbinden. 

Da die meisten bei den ersten Versuchen einen eigenen Task zu er¬ 
zeugen die erstaunlichsten Orientreisen unternommen haben oder der 
Amiga zeitweise gar nicht mehr aus dem Meditieren herauskam, waren 
wir der Meinung, daß man das keineswegs jemanden zumuten könne, der 
gerade erst mit dem Programmieren begonnen hat. 

Aus diesem Grund bereicherten wir T_Exec um eine Punktion, die 
Ihnen die gesamte Initialisierung abnimmt: 

PROCEDURE CreateTaskCREF name : STRING; 

priority : SHORTINT; 

initPC : ANYPTR; 
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stackSize : LONGINT := 20000; 

context : ContextPtr := NIL):TaskPtr; 

name Name des neuen Tasks. Da es sich hier nicht um eine Sys¬ 
temfunktion handelt, können Sie hier einen gewöhnlichen String 
übergeben. 

priority Priorität des neuen Tasks. Bei einer Priorität von über 50 
kommt im Prinzip kein anderer Task mehr zum Zuge, bei unter 
-50 bekommt ihr eigener Task nur Rechenzeit, wenn kein anderer 
Task Rechenzeit benötigt. Geben Sie Ihrem Task am besten eine 
Priorität von Null oder Eins. 

initPC Hier tragen Sie ihre Prozedur ein, die Sie als eigenen Task 
wünschen. Achtung, die Prozedur darf keine Parameter erwarten. 

stackSize Größe des Stacks in Bytes, den Ihr Task erhalten soll. Bei 
einem Wert kleiner 100 wird eine EXCEPTION ausgelöst. Am sinn¬ 
vollsten ist es hier normalerweise einen Wert zwischen 500 und 
1000 anzugeben. Hat ihr Task viele lokale Prozeduren oder ruft er 
Prozeduren rekursiv auf, kann es sein, daß Sie einen noch größeren 
Wert wählen müssen. 

context Kontext, zu dem der Task erzeugt werden soll. Wird dieser 
Parameter nicht angegeben, wird der Task zum aktuellen Kontext 
erzeugt. Näheres zu Kontexten siehe Beschreibung des Moduls 

Resources 

Ergebnis Zeiger auf die initialisierte und eingebundene Taskstruktur. 

Die TaskStruktur, die von GreateTask erzeugt wird und die von Exec 

zur Verteilung der Systemzeit und zur grundlegenden Kommunikation 

zwischen Tasks verwendet wird, sieht folgendermaßen aus: 

TYPE 

Task = RECORD OF Node 

flags iTaskFlagSet; | Eigenschaften des Tasks 

state :TaskState; | Zustand des Tasks 

idNestCnt, | Zähler für DISABLE 
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tdNestCnt 

SHORTINT; 

Zähler für FORBID 

sigAlloc, 


allozierte Signale 

sigWait, 


erwartet werdende Signale 

sigRecvd, 


empfangene Signale 

sigExcept 

TaskSigSet; 

Signale, die Exception auslösen 

trapAlloc, 


Traps die belegt sind 

trapAble 

BITSET; 

nicht belegte Traps 

exceptData 

ANYPTR; 

Daten für Exception 

exceptCode 

ExceptPROC; 

Code für Exception 

trapData 

ANYPTR; 

Daten für Traps 

trapCode 

PROC; 

Code für Traps 

spReg, 


Stackpointer des Tasks 

spLower, 


Stackuntergrenze 

spUpper 

ANYPTR; 

Stackobergrenze 

switch, 


Abgaberoutine 

launch 

PROC; 

Übernahmeroutine 

memEntry 

List; 

Speicherliste des Tasks 

userData 

ANYPTR; 

Frei für Userroutinen 


END; 


flags Set mit Informationen über den Task, enthält er except, befindet 
er sich gerade in einem Ausnahmezustand, ist das Flag switch 
gesetzt, wird vor dem Umschalten zu einem anderen Task noch 
die Routine im Feld switch angesprungen, ist launch gesetzt, 
wird die Routine im Feld launch aufgerufen, bevor der eigentliche 
Task bearbeitet wird. 

state Gibt den momentanen Zustand des Tasks an (siehe unten). 

sigAlloc Zur Verständigung zwischen den Tasks existieren 32 Signale in 
einem Set, wovon die unteren 16 für das System reserviert sind. In 
diesem Feld sind die Signale, die von diesem Task belegt werden. 
Achtung: Jedem Task stehen also maximal 16 eigene Signale zur 
Verfügung. 

sigWait Signale, auf die der Task im Moment wartet. 

sigRecvd Hier werden alle empfangenen Signale eingetragen. Steht ein 
empfangenes Signal auch in sigWait, wird der Task in den ready- 
Zustand versetzt. 
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sigExcept Signale, die bei Empfang eine Exception auslösen (auch wenn 

der Task gerade läuft). Das bedeutet, daß die Eunktion in exceptCode 
aufgerufen wird und exceptData als Zeiger auf private Daten ver¬ 
wenden kann (vor allem interessant, wenn der Code nicht zum 
geladenen Programm gehört). 

trapAlloc Bits der Traps, die der Task für sich in Anspruch nimmt. 
Traps werden mit AllocTrap und FreeTrap wie Signale alloziert 
und freigegeben. Wenn der Prozessor auf eine Trap-Instruktion 
trifft, wird die eigene Pehlerroutine in trapCode aufgerufen. Traps 
werden von Cluster direkt verwaltet. Eür Programmierer heißt 
dies: Einger weg!. 

trapAble Wird vom System verwaltet. 

switch Wenn in f lag das switch-bit eingetragen ist, wird die hier ein¬ 
getragene Prozedur vor dem Umschalten auf einen anderen Task 
angesprungen. 

launch Wenn in f lag das launch-bit eingetragen ist, wird die hier ein¬ 
getragene Prozedur vor dem Aktivieren des eigenen Tasks anges¬ 
prungen. 

memEntry Speicherliste des Tasks, die am Ende wieder freigegeben 
wird. 

Die Eelder sigAlloc, sigWait, sigRecvd, trapAlloc und trapAble sind 
nicht vom Task zu verwenden, sondern die entsprechenden Eunktionen 
(siehe Tasksignale). 

Der Task wird vom System vom einem Zustand in den anderen ver¬ 
setzt, wobei das den Anwendertask nicht zu interessieren hat, sondern 
höchstens einen Debugger. Damit der Abschnitt über Tasks komplett 
ist, sind hier auch noch die möglichen Zustände eines Tasks aufgeführt. 

inval Task ist ungültig, d. h. mit großer Wahrscheinlichkeit nicht mehr 
lauffähig. 

added Der Task wurde soeben hinzugefügt und ist noch nicht ablauf¬ 
bereit. 
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run Der Task wir gerade abgearbeitet (muß wohl der eigene Task sein, 
soweit es nur eine CPU im System gibt ...). 

ready Der Task ist ablaufbereit, wartet aber, bis er dran kommt. 

wait Der Task befindet sich im Wartezustand und wartet auf ein Signal. 

except Der Task ist gerade in einer Ausnahmesituation. 

removed Der Task wird gerade entfernt. 

Nach dem Aufruf von CreateTaskO beginnt die übergebene Routine 
selbständig zu arbeiten. Ein großer Vorteil gegenüber der Methode von 
Hand einen Task zu initialisieren ist, daß die mit CreateTask erzeugten 
Task nach Möglichkeit alle Gurus abfangen. Außerdem werden alle Task 
mit Beendigung des Hauptprogramms auch beendet. 

Wollen Sie einen Task vor dem Ende des Hauptprogramms abschal¬ 
ten, dann benutzen Sie dazu DeleteTask: 

PROCEDURE DeleteTask( tsk : TaskPtr ); 

Wichtig: Versuchen Sie nie einen mit CreateTaskO erzeugten Task 
mit RemTaskO aus Exec zu entfernen, für die Eolgen übernehmen wir 
nämlich keinerlei Haftung. Dasselbe gilt, wenn man einen von Hand 
erzeugten Task mit DeleteTask() zu entfernen versucht. 

Wenn Sie wissen wollen, wie man einen Task selbst initialisiert, dann 
schauen Sie sich am besten den Quelltext von T_Exec .mod an oder kaufen 
Sie sich das RKM und lesen nach, wie „C“-Programmierer von Hand im 
Speicher herumwühlen. 

Wenn Sie Strukturen untersuchen oder verändern, die auch von an¬ 
deren Prozessen verändert werden, empfiehlt es sich so lange das Multi¬ 
tasking mit der Punktion ForbidO auszuschalten. Wenn Sie fertig sind, 
schalten Sie es bitte mit der Punktion PermitO so schnell wie möglich 
wieder an (spätestens am Programmende), weil Sie sonst ihren Amiga 
zu einem Primitiv-PC degradieren, der immer nur ein Programm gleich¬ 
zeitig ausführen kann. 
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Wenn Sie auch die Systeminterrupt^ sperren müssen, benutzen Sie 
die Prozedur DisableO, und EnableO. Die Systeminterrupts brau¬ 
chen Sie nur auszuschalten, wenn Sie an Strukturen arbeiten, die von 
Interrupts verändert werden, wie zum Beispiel die Taskliste. 

Vielleicht werden Sie nun fragen, warum sollen zwei Prozeduren glei¬ 
chzeitig arbeiten, wo ich doch eh nur eine zur gleichen Zeit bedienen 
kann. 

Da mögen Sie vielleicht schon recht haben, aber stellen wir uns mal 
vor, wir wollten ein Textverarbeitungsprogramm schreiben. Wäre es 
nicht toll, wenn wir die Möglichkeit hätten, während wir einen Text 
eingeben, einen anderen auszudrucken? 

Wichtig: Von einem Programm erzeugte Tasks unterliegen einer Ein¬ 
schränkung. Sie können nicht auf das Dos zugreifen. Also auch keine 
Ausgaben auf die SHELL mittels InOut machen. Wenn Sie dies dennoch 
versuchen, landen sie bald in Indien. Auf alle anderen Libraries können 
Sie jedoch zugreifen. 

Wollen Sie von einem Task aus das Dos nutzen, reicht dazu kein 
normaler Task, sondern Sie brauchen einen Process, eine Erweiterung 
der Taskstruktur, doch dazu mehr im Kapitel über Dos. 

5.3.3.1 Taskfunktionen 

Hat man einen Task erzeugt, bietet Exec verschiedene Prozeduren an, 
um mit diesen zu arbeiten. 

PROCEDURE FindTaskC name IN Al : SysStringPtr ): TaskPtr; 

PROCEDURE SetTaskPriC task IN Al : TaskPtr; 

pri IN DO : SHORTINT ): SHORTINT; 

FindTask sucht den Prozeß (egal ob Task oder Process), der den Na¬ 
men name trägt. Rückgabewert ist die Adresse des Prozesses oder 

®Was ein Interrupt ist erfahren Sie in Kürze 
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NIL, wenn er nicht gefnnden wnrde. Wollen Sie die Adresse Ihres 
eigenen Tasks ermitteln, übergeben Sie für name einfach NIL. 

SetTaskPri Setzt die Priorität des Prozesses task auf pri und gibt die 
bisherige Priorität als Rückgabewert zurück. 

5.3.4 Das Nachrichtennetz der Tasks 

Sie haben im letzten Kapitel gelernt, wie man eigene Tasks erzeugt. 

Tasks bringen jedoch nur dann etwas, wenn Sie sich untereinander verständigen 
oder Daten austauschen können. 

Zwar könnte man dies über globale Variablen erreichen, aber stellen 
Sie sich einmal vor, ein Task wartet darauf, das ein anderer einen Wert 
in eine globale Variable schreibt und deshalb dauernd diese Variable 
ausliest. Damit würde eine Menge Rechenzeit vergeudet, die andere 
Tasks verwenden könnten. Aus diesem Grund stellt das Betriebssystem 
uns ein spezielles Nachrichtennetz zur Verfügung. 

Die grundlegende Kommunikation läuft über die sogenannten Si¬ 
gnale. Ein Task kann auf ein oder mehrere Signale warten, oder einem 
anderen Task ein Signal schicken und diesen somit „wecken“. Die emp¬ 
fangenen Signale sind wie oben beschrieben, Bits in einem Set. Diese 
werden mit Bits in einem anderen Set, der die zu erwartenden Signale 
beschreibt, verglichen und entschieden, ob der Prozeß aus dem Warte¬ 
zustand „aufgeweckt“ werden kann. Kommt dabei ein Signal sehr oft 
nacheinander (z. B. von mehreren Prozessen höherer Priorität), dann 
wird der Prozeß nur einmal geweckt. Das heißt, daß man über Signale 
keine Informationen verschicken kann, sondern nur Ereignisse signalisie¬ 
ren (daher der Name ...). 

Aus diesem Grunde gibt es neben Signalen Messages, die in einer 
Liste einer Empfangstation (MsgPort) aufgefangen werden. Das Ver¬ 
schicken einer solchen Nachricht (mit Information) besteht also aus dem 
Einträgen der Nachricht in eine Empfangsliste und dem Aktivieren eines 
dafür vorgesehenes Signals. Der Empfänger liest dann die Empfangsliste, 
bis sie leer ist und wartet dann eventuell auf neue Nachrichten. So wird 
gewährleistet, daß pro verschickter Information der empfangende Prozeß 
eine Aktion unternimmt. 
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Diese beiden Teile der Kommunikation über die execdibrary wird in 
den folgenden beiden Unterabschnitten ausführlich beschrieben. 

5.3.4.1 Tasksignale 

Im Amiga Betriebssystem besitzt jeder Prozeß 32 Signale, wovon die 
unteren 16 für das System reserviert sind. Die oberen 16 stehen jedem 
Prozeß zur freien Verfügung, was bedeutet, daß jeder Prozeß selber wis¬ 
sen muß, was für ihn ein bestimmtes Signalbit bedeutet. Man kann einen 
Task auf eine Menge von Signalen warten lassen oder eine Menge von 
Signalen bei sich selber oder einem anderen Prozeß setzen. Um sicherzu¬ 
gehen, das kein Signalbit doppelt verwendet wird, werden die Signalnum¬ 
mern für jeden Prozeß verwaltet. Wenn eine Signalnummer gebraucht 
wird, muß sie vorher angemeldet werden und wenn sie nicht mehr ver¬ 
wendet wird, kann sie abgemeldet werden. So wird sichergestellt, daß 
immer auf das richtige Ereignis gewartet wird. Folgende Signale gibt es: 

TaskSignals = ( noSignal = -1, 


anySignal = 
abort, 

-1, 

child, 

ts2, 

ts3, 

blit, 

single=4, 

Intuition, 

ts6, 

ts7, 

dos, 

ts9, 

tslO, 

tsll, 

ctrlC, 

ctrlD, 

ctrlE, 

ctrlF, 

userl6, 

userlT, 

userlS, 

userl9, 

user20, 

user21, 

user22, 

user24, 

user25, 

user26, 

user27, 

user28, 

user29, 

userSO, 

userSl 


TaskSigSet = SET OF TaskSignals; 

Dabei sind userlG—userlT zur eigenen Verfügung. 

Die Verwaltung der Signalnummern wird mit zwei einfachen Funk¬ 
tionen bewerkstelligt, die nicht aufgerufen werden dürfen, während der 
Prozeß im „exception“-Zustand ist. 

PROCEDURE AllocSignaK signalNum IN DO : TaskSignals ):TaskSignal 
PROCEDURE FreeSignaK signalNum IN DO : TaskSignals ); 
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AllocSignal Versucht das Signal signalNum oder ein beliebiges, freies 
Signal (anySignal) zu belegen und gibt die Nummer des belegten 
Signals oder noSignal zurück, wenn der Anmeldeantrag abgelehnt 
wurde. Normalerweise übergibt man immer —1, da man dadurch 
sich nicht darum zu kümmern braucht, welche Signale schon belegt 
sind und welche nicht. 

FreeSignal Gibt das Signal signalNum wieder frei. 

Die Kommunikation läuft nun über das Verschicken von und warten auf 

Signale. 

PROCEDURE SetSignalsC newSignals IN DO, 

signalMask IN Dl : TaskSigSet ): TaskSigSet; 

PROCEDURE Signal( task IN Al : TaskPtr; 

Signals IN Dl : TaskSigSet ); 

PROCEDURE WaitC Signals IN DO : TaskSigSet ): TaskSigSet; 

SetSignals setzt die Signale im Feld sigRecvd des Tasks, die in signalMask 
gesetzt sind, auf den entsprechenden Wert in newSignals. Damit 
kann man gezielt Signale setzen (sich selber ein Signal schicken) 
oder löschen (nach Bearbeitung). Als Ergebnis erhält man die 
vorherige Signalbelegung von sigRecvd. Ein beliebter Aufruf ist 
SetSignals ({},{}), um alle empfangenen Signale zu lesen, je¬ 
doch keines zu verändern. Um beispielsweise alle empfangenen 
Signale zu löschen muß man nur für newSignal ein leeres Set und 
für signalMask die empfangenen Signale übergeben. 

Signal schickt dem Prozeß task alle Signale in Signals. 

Wait wartet auf alle Signale im Set Signals. Das heißt natürlich, daß 
der Prozeß geweckt wird, sobald irgendeins der Signale ankommt. 

Das Ergebnis ist die Menge der empfangenen Signale. War vor 
dem Aufruf von Wait im Eeld SigRcvd der Taskstruktur schon ein 
zu erwartendes Signal gesetzt, wird der Prozeß nicht erst in den 
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Wartezustand versetzt, sondern darf gleich Weiterarbeiten. Die 
empfangenen Signale werden nicht automatisch gelöscht, sondern 
müssen mit SetSignals explizit gelöscht werden, damit der Pro¬ 
zeß beim nächsten Warten nicht in eine Endlosschleife verfällt. 

Wenn ein selbsterzeugter Task an den Hauptask Signale senden will, 
benötigt er dazu dessen TaskPtr. Dieser sollte vom HauptTask mittels 
FindTask(NIL) ermittelt werden und dem Untertask mittels einer Mes¬ 
sage übermittelt werden. 

5.3.4.2 Messages 

Mit Signalen können wir nun die Tasks untereinander signalisierend kom¬ 
munizieren lassen. Was aber, wenn man mehr Informationen benötigt 
und man nicht über globale Variablen gehen kann (sowieso nicht die 
feine Art), z. B. wenn zwei getrennte Programme sich verständigen sol¬ 
len. Ja, Sie haben ganz richtig gelesen, zwei Programme können recht 
einfach miteinander in Verbindung treten. Dies geschieht immer, wenn 
man Informationen vom Betriebssystem erhalten will, z. B. wenn man 
die Tastatur oder die Maus abfragen möchte. 

Hierzu dienen sogenannte MessagePorts oder Nachrichtenempfang¬ 
sstationen, mit denen man richtige Datenkanäle aufbauen kann. Auch 
hierzu benötigt man eine Systemstruktur, die erst erzeugt werden muß. 

TYPE 

MsgPort = RECORD OF Node 

IF KEY flags : MsgPortAction 
OF Signal THEN 

sigBit : TaskSignals; 
sigTask : TaskPtr 
OF softint THEN 

softint : InterruptPtr 
END; 

msgList : List; 

END; 
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flags Gibt an, ob der Port auf Signal- oder Interruptbasis arbeitet. Der 
Rest der Struktur sieht je nach Wert verschieden aus. 

sigBit Wenn f lags=signal, enthält dieses Feld die Signalnummer, die 
der wartende Prozeß bekommt, wenn eine Nachricht am Port an¬ 
kommt. 

sigTask Der Prozeß der si gBit bekommt, wenn eine Nachricht an¬ 
kommt. 

softint Der Interrupt, der ausgelöst wird, wenn eine Nachricht ankommt 
und flags=softInt ist. 

msgList Liste der erhaltenen Nachrichten (FIFO). Die Knoten dieser 
Liste sollten alle vom Typ message oder replyMsg sein. 

Bei den MsgPorts muß man unterscheiden zwischen privaten und öffentlichen 
MsgPorts. In der ExecBase gibt es eine Liste von öffentlichen MsgPorts, 
mit denen jeder Prozeß kommunizieren kann. Private MsgPorts können 
nicht von anderen Prozessen gefunden werden, können also nur für eigene 
Zwecke verwendet werden (z. B. IDCMP, siehe hierzu Intuition). 

Exec bietet seit V36 Eunktionen an, um MsgPorts zu initialisieren 
und zu zerstören. Da es sich dabei immer nur um private MsgPorts 
handelt, sind diese nur begrenzt zu verwenden. Das Modul T_Exec bietet 
dafür eine Punktion zur Erzeugung von privaten als auch öffentlichen 
MsgPorts. Der Unterschied besteht im Aufruf der Punktion. 

PROCEDURE CreatePortCREF portName : STRING 

priority : SHORTINT := 0; 

context : ContextPtr := NIL):MsgPortPtr; 


portname Name des Ports. Hier kann man auch einen leeren String 
angeben. Will man aber zwei Programme miteinander in Verbin¬ 
dung treten lassen, sollte man einen möglichst eindeutigen Namen 
angeben, denn anhand des Namens kann man den Port im System 
wiederfinden, wenn man den Pointer auf ihn nicht kennt. 
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priority Priorität des Ports. Die Portliste wird ebenso wie die Prozeß¬ 
liste der Priorität geordnet. 

context Kontext, zn dem der Port erzeugt wird. 

Ergebnis Zeiger auf die initialisierte Portstruktur. 

Da für die meisten Anwendungen sowieso Ports nur mit Signalen ar¬ 
beiten, haben wir uns dafür entschieden, daß CreatePort einen Port 
auf Signalbasis und immer für den gerade laufenden Task erzeugt. Ha¬ 
ben Sie mit CreatePort() einen Port erzeugt, können Sie diesen mit 
DeletePort aus T_Exec wieder vernichten. 

Nachdem wir uns die Empfangsstation für Nachrichten angesehen 
haben, wenden wir uns der Nachricht selber zu. Die eigentlichen Daten, 
die mit der Message verschickt werden sollen, werden einfach hinter die 
Messagestruktur angehängt. In Cluster erbt man einfach von Message. 
Folgendes Beispiel zeigt dies deutlich: 

TYPE 

Message = RECORD OF Node 

replyPort : MsgPortPtr; 
length : CARDINAL; 

END; 

MyString = STRING(20); 

MyMsg = RECORD OF Message 
str : MyString 
END; 

replyPort MsgPort, an die die Message nach Erhalt zurückgeschickt 
werden soll. Wenn man also eine Nachricht verschicken möchte, 
benötigt man auch einen Port, um die Nachricht wieder aufzufan¬ 
gen. Dieser muß vor der Versendung in dieses Feld eingetragen 
werden. Erst wenn die Message zurückgeschickt wurde, darf man 
davon ausgehen, daß der andere Task sie bearbeitet hat. Um sie 
z. B. erneut zu verschicken. 
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length Länge der Nachricht inklusive der eigentlichen Daten (maximal 
64KB). Im Beispiel MyMsg also Message’SIZE + str’SIZE, bzw. 
MyMsg’SIZE. 

Beide Felder müssen vor dem Verschicken unbedingt initialisiert werden. 

Die Nachrichten werden mit PutMsgO zu einem MsgPort geschickt. 
Ist der bearbeitende Prozeß fertig mit dem Lesen (und eventuell Verändern) 
der Nachricht, so kann dieser die Nachricht mit ReplyMsg beantworten. 
Die Nachricht geht dann zurück an den Sender, wobei in das type-Feld 
der Node der Message ein freeMsg eingetragen wird. So weiß der erste 
Prozeß, daß er mit der Nachricht tun und lassen kann, was er will. 

Wichtig: Die Nachricht wird nicht in den Speicher des empfangenden 
Tasks kopiert, dieser kann lediglich auf den Speicherbereich des senden¬ 
den Tasks zugreifen. Daher sollten immer nach Empfang einer Nachricht 
die benötigten Daten in eigene Variablen kopiert werden und die Na¬ 
chricht zurückgeschickt werden. Es könnte sonst sein, daß der sendende 
Task unnötig wartet. 

PROCEDURE PutMsgC port IN AO : MsgPortPtr; 

msg IN Al : MessagePtr ); 

PROCEDURE GetMsgC port IN AO : MsgPortPtr ): MessagePtr; 
PROCEDURE WaitPortC port IN AO : MsgPortPtr ): MessagePtr; 

PROCEDURE ReplyMsg( msg IN Al : MessagePtr ); 

PutMsg schickt die Nachricht msg zu dem MsgPort port, reiht die Na¬ 
chricht in die Nachrichtenliste ein und schickt dem empfangenden 
Prozeß das zugehörige Signal. 

GetMsg holt eine Nachricht von der Empfangstation port und gibt die 
Adresse der Nachricht zurück. Gibt es keine neuen Nachrichten, 
so wird NIL zurückgegeben. Will man auf eine Nachricht warten, 
sollte man jedoch nicht mit einer WHILE-Schleife den MsgPort 
abfragen, hierfür existiert WaitPortO, welches keine Rechenzeit 
vergeudet. 
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WaitPort wartet auf eine neue Nachricht und gibt die Adresse der ers¬ 
ten neuen Nachricht als Ergebnis zurück. Die Nachricht muß den¬ 
noch mit GetMsg aus der Nachrichtenliste entfernt werden. Wenn 
schon eine neue Nachricht da war, wird der Prozeß nicht erst in 
den Wartezustand versetzt, sondern bekommt gleich das Ergebnis 
zurück. 

ReplyMsg schickt msg zum replyPort zurück. Wenn kein replyPort 
eingetragen ist (also NIL), dann wird freeMsg in das type-Eeld 
der Node der Message eingetragen. Danach darf man nicht mehr 
auf die Nachricht zugreifen. 

Wollen Sie an einen Port eine Nachricht senden, von dem Sie nur den 
Namen kennen, nicht aber dessen PortPtr, dann können Sie diesen über 
EindPort erhalten: 

PROCEDURE FindPortC REF name IN Al : STRING ): MsgPortPtr; 

In Verbindung mit Intuition werden Sie noch einmal mit Messageports 
konfrontiert werden. 

5.3.5 Semaphoren 

In jedem Multitaskingsystem ist es notwendig Daten unter unabhängig 
arbeitenden Tasks zu teilen. Solange die Daten statisch sind (d. h. 
sie werden nicht verändert) ist dies kein Problem. Sobald sie aber 
veränderbar sind, muß es eine Möglichkeit für den Task geben, der die 
Daten bearbeitet, andere Tasks daran zu hindern, auf die Daten gleich¬ 
zeitig zuzugreifen. 

Z. B. um einen Knoten in eine Liste einzuhängen würde ein Task 
normalerweise diese einfach einhängen. Können jedoch mehrere Tasks 
auf diese Liste zugreifen, kann dies sehr gefährlich sein: Ein anderer 
Task könnte gerade dabei sein, sich an der Liste entlangzuhangeln und 
einen ungültigen Zeiger auslesen. Schlimmer wird es, wenn zwei Tasks 
an der selben Stelle zur gleichen Zeit einen Knoten einhängen wollen. 
Eür dieses Problem stellen Semaphoren die ideale Lösung da. 
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Man kann sich eine Semaphore ungefähr wie einen Schlüssel zu ver¬ 
schlossenen Daten vorstellen. Wenn Sie den Schlüssel (die Semaphore) 
haben, können sie mit den Daten machen was Sie wollen, ohne daß Ihnen 
ein anderer Task in die Quere kommen kann. Jeder andere Task, der 
diese Semaphore beansprucht, wird augenblicklich in den Wait-Status 
versetzt wird, bis die Semaphore wieder freigegeben wird. Wenn Sie 
Ihre Arbeit beendet haben, müssen Sie deshalb sobald als möglich die 
Semaphore wieder freigeben. 

Achtung: Sempahoren können nur dann zuverlässig arbeiten, wenn fol¬ 
gende zwei Bedingungen von allen Tasks eingehalten werden: 

• Alle Tasks, die gemeinsame Daten haben, die durch eine Sema¬ 
phore gesichert sind, müssen diese zuerst beantragen, bevor sie 
auf die Daten zugreifen können. Wenn irgendein Task direkt auf 
die Daten zugreift, ohne über die Semaphore zu gehen, können die 
Daten ungültig werden, kein Task kann dann mehr sicher darauf 
zugreifen. 

• Es können Deadlocks (Kurzschlüsse) entstehen, wenn ein Task, 
der eine exklusive Semaphore innehat, auf einen anderen Task 
wartet, der auf die selbe Semaphore wartet. Es ist also äußerste 
Vorsicht geboten, damit Deadlocks vermieden werden, sie können 
das gesamte System lahmlegen. 

Um eine eigene Semaphore zu erzeugen, muß man folgende Struktur 
initialisieren: 

SignalSemaphore = RECORD OF Node 

nestCount 
waitQueue 
multipleLink 
owner 

queueCount 
END; 

In dieser Struktur müssen Sie nur das name und pri Eeld der Node 
initialisieren, den Rest erledigt die Prozedur InitSemaphoreO: 


INTEGER; 

MinList; 

SemaphoreRequest; 
TaskPtr; 

INTEGER; 
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PROCEDURE InitSemaphoreC sigSema IN AO : SignalSemaphorePtr ) 

Nachdem die Semaphore initialisiert wurde, kann man sie der Öffentlichkeit 
zugänglich machen, indem man sie mittels AddSemaphoreO in die Liste 
der Semaphoren einbindet: 

PROCEDURE AddSemaphore( sigSema IN Al : SignalSemaphorePtr ); 

Dabei ist darauf zu achten, daß sich noch keine andere Semaphore mit 
gleichem Namen im System befindet. Dies läßt sich mit der Funktion 
FindSemaphoreO herausfinden, mit der man normalerweise eine Sema¬ 
phore, von der nur der Namen bekannt ist, finden läßt: 

PROCEDURE FindSemaphoreCname IN Al : SysStringPtr):SignalSemaphore; 

Befindet sich keine Semaphore mit Namen name im System, wird NIL 
zurückgegeben. 

Bevor man nun auf die Daten, die von einer Semaphore geschützt wer¬ 
den, zugreifen kann, muß man die Semaphore belegen. Dafür dient die 
Funktion ObtainSemaphoreO: 

PROCEDURE ObtainSemaphoreCsigSema IN AO : SignalSemaphorePtr); 

War die Semaphore schon belegt, wird Ihr Task in den Wartezustand 
versetzt. Will man nur lesend auf die Daten zugreifen, kann man auch 
ObtainSemaphoreSharedO verwenden. Bei dieser Art der Belegung 
können auch noch andere Tasks die Semaphore Shared obtainen und die 
Daten lesen, jedoch kann kein Task mehr ein exklusives Obtain machen: 

PROCEDURE ObtainSemaphoreSharedCsigSema IN AO : SignalSemaphorePtr); 

Manchmal möchte man jedoch nicht warten, sondern nur feststellen, ob 
die Semaphore gerade frei ist. Wenn dies nicht der Fall ist, kann man in 
der Zwischenzeit etwas anderes machen. In einem solchen Fall hilft die 
Funktion AttemptSemaphoreO 
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PROCEDURE AttemptSemaphoreCsigSema IM AO : SignalSemaphorePtr): BOOLEAN; 

Ist man mit der Bearbeitung der Daten fertig, muß man die Semaphore 
wieder freigeben, damit die eventuell wartenden Tasks Weiterarbeiten 
können. Hierzu dient ReleaseSemaphore () : 

PROCEDURE ReleaseSemaphore(sigSema IM AO : SignalSemaphorePtr); 

Benötigt ein Task mehrere Semaphoren gleichzeitig, kann es sehr leicht 
zu Deadlocks kommen. 

Beispiel: Task A belegt Semaphore X, Task B belegt Semaphore 
Y. Nun versucht Task A Semaphore Y zu belegen und wird auf Wait 
gesetzt, Task B versucht seinerseits Semaphore X zu belegen und wird 
auch auf Wait gesetzt. Beide Tasks habe keine Möglichkeit aus diesem 
Zustand herauszukommen. Um etwas derartiges zu vermeiden, existiert 
die Funktion ObtainSemaphoreList (): 

PROCEDURE ObtainSemaphoreList( list IN AO : ListPtr ); 

Wenn nicht alle Semaphoren der Liste belegt werden konnten, wird Ihr 
Task auf Wait gesetzt. Achtung, bitte hängen Sie keine öffentlichen Se¬ 
maphoren in eine eigene Liste ein, um sie dieser Funktion zu übergeben, 
da hierfür die normalen Node-Felder verwendet werden und die öffenliche 
Semaphorenliste nicht zerstört werden darf. Also nur mit privaten Se¬ 
maphoren verwenden bzw. auf die gesamte Semaphorenliste. 

PROCEDURE ReleaseSemaphoreList( list IN AO : ListPtr ); 

Gegenstück zu ObtainSemaphoreList (). 

Bevor man eine Semaphore freigibt, muß man sichergehen, daß sie nicht 
mehr belegt wird. Dafür sollte man sie zuerst aus der Semaphorenliste 
entfernen, damit kein anderer Tasks sie mehr finden kann. Dies geschieht 
mit RemSemaphoreO: 

PROCEDURE RemSemaphore( sigSema IN Al : SignalSemaphorePtr ); 
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Danach sollte man sie exklnsiv obtainen, damit man sicher ist, daß kein 
anderer Task sie noch belegt hat. Hat man den Zngriff anf die Semaphore 
erhalten, gibt man Sie wieder frei nnd kann danach den Speicher der 
Semaphorestrnktnr freigeben. Sie sehen, man sollte vor jedem Zngriff anf 
eine fremde Semaphore, diese mittels FindSemaphore () suchen, anstatt 
sich die Adresse zu merken. Auf diese Weise geht man sicher, daß die 
Semaphore auch noch existiert und nicht schon wieder aus dem System 
entfernt worden ist. 

5.3.6 Interrupts in Cluster 

An dieser Stelle soll nicht erklärt werden, was ein Interupt ist und wie 
man sie verwendet, dies würde den Rahmen dieses Handbuches spren¬ 
gen. Außerdem empfiehlt es sich nur für erfahrenere Programmierer, 
sich mit Interupts zu beschäftigen. Was hier gezeigt werden soll ist, wie 
man einen Interuptserver in Cluster in das System einbindet. Hierzu ein 
Programmfragment als Beispiel: 

I Checks abschalten 
$$StackChk :=FALSE 
$$RangeChk :=FALSE 
$$NilChk :=FALSE 

$$0verflowChk:=FALSE 
$$TypeChk :=FALSE 

PROCEDURE MylntCode; 

BEGIN 

PUSH(RegSet:{D2..D7,A2..A4,A6});I Register retten 
SETREG(REG(A1),A4); |Setzen von A4 

IF — ist es mein interrupt ? — THEN 

I 

I hier liegt der Interruptcode 

I 

SETREGd ,D0) I Der Interupt wird nicht weitergeben 
ELSE 

SETREG(0,DO) I Interupt wird an andere Heindler weitergereicht 
END 

POP(RegSet:{D2..D7,A2..A4,A6});I Register wiederherstellen 
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END MylntCode; 

I Checks wieder auf alten Zustand 

$$StackChk :=0LD 

$$RangeChk :=0LD 

$$NilChk :=0LD 

$$0verflowChk:=0LD 

$$TypeChk :=0LD 


VAR Mylnt : Exec.Interrupt; 

PROCEDURE AddMylnt; 

BEGIN 

Mylnt.name:="Mylnterrupt"; 

Mylnt.pri :=0; I oder je nach Bedarf 
Mylnt.Code:=MyIntCode; 

Mylnt.data:=REG(A4); 

I Interupt einhängen, hier in den vertical Blank 
Exec.AddintServer(Hardware.vertb,Mylnt’PTR); 

END AddMylnt; 

PROCEDURE RemMylnt; 

BEGIN 

Exec.RemlntServer(Mylnt’PTR); 

END RemMylnt; 

Im Prinzip funktioniert es wie auch in anderen Programmiersprachen, 
interessant sind lediglich die Zeilen: 

Mylnt.data:=REG (A4); 

Hier wird die Localbase A4 ausgelesen, über die die Variablen adressiert 
werden. 

SETREG(REG(Al),A4); 
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Hier wird innerhalb des Interrupts die Localbase gesetzt, so daß man 
auch innerhalb des Interrupthandlers auf alle Variablen des Hauppro- 
gramms zugreifen kann. Ansonsten ist darauf zu achten, daß innerhalb 
des Interrupthandlers alle Compilerchecks ausgeschaltet sind. Weitere 
Informationen zu Interrupts entnehmen Sie bitte den RKMs. 


5.3.7 Speicherverwaltung 

Im Gegensatz zu herkömmlichen Computern wie dem C64 kann man 
beim Amiga nicht davon ausgehen, daß das eigene Programm immer an 
derselben Stelle im Speicher hegt. Man stelle sich nur einmal vor was 
passieren würden, wenn beim Programmstart durch daß Multitasking 
schon ein anderes Programm an dieser Stelle im Speicher hegen würde. 

Außerdem kann man auch nicht einfach seine Daten irgendwo in den 
Speicher schreiben, da auch dort schon ein anderes Programm hegen 
könnte. 

Um das erste Problem brauchen Sie sich nicht zu kümmern, das 
übernimmt beim Programmstart Dos und Exec. 

Benötigen wir jedoch Speicher für dynamische Strukturen, müssen 
wir diesen von Exec anfordern, wozu Exec uns mehrere Routinen anbie¬ 
tet. Hier das wichtigste und verbreiteste Paar: 


TYPE 

MemReqs 


public, 

Chip, 

fast, 

mrS, 

mr4. 

mr5, 

mr6, 

mr7. 

local 

dma24, 

mrlO, 

mrll, 

mrl2. 

mrl3. 

mrl4. 

mrl5, 

clear, 

largest, 

reverse, 

total ! 

); 


PROCEDURE AllocMemC byteSize IN DO : LONGCARD; 

requirements IN Dl : MemReqSet ):ANYPTR; 


PROCEDURE FreeMemC memoryBIock IN Al : ANYPTR; 

byteSize IN DO : LONGCARD ); 
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MemReqs Über diese Flags kann man angeben, welcher Art der belegte 
Speicher sein soll: 

public „Öffentlich“, der Speicherbereich kann von mehreren Tasks 
benntzt werden. Er darf nicht nmgemapped, ausgelagert 
oder unadressierbar gemacht werden. Aller Speicher, der 
von Interrupts oder von anderen Tasks benutzt werden kann 
(z. B. Messages), muß diesen Typ haben. 

Chip Der zu belegende Speicher muß im ChipMem hegen, da nur 
dort die Customchips darauf zugreifen können. Dies ist wich¬ 
tig für Sound- und Grafikdaten. 

fast Der Bereich muß im Fastram liegen. Da die Customchips auf 
diesen Speicher nicht zugreifen können, wird der Prozessor 
nicht gebremst. 

Wenn der Amiga keinen Fastram besitzt, kann natürlich kein 
Fast-Speicher belegt werden! Deshalb geben Sie in der Re¬ 
gel weder chip noch fast an. Exec wird ihnen FastMemory 
geben, und falls keines mehr frei ist, auf ChipMemory aus- 
weichen. 

clear Der Bereich wird beim Belegen erst noch gelöscht. 

largest Es wird der größte Speicherbereich, für den die angege¬ 
benen Bedingungen zutreffen, belegt. 

dma24 Belegt Speicher im 24-Bit-Adreßraum, der DMA-Fähig 
ist. 

total Für AvailMemO, gibt die Summe des freien Speichers zurück. 

AllocMem Belegt einen Speicherblock. Sie geben in byteSize die 
Größe des gewünschten Blocks an und mittels requirements die 
benötigte Art und Eigenschaften, siehe oben. 

Als Ergebnis erhalten Sie einen Zeiger auf den Anfang des reser¬ 
vierten Speicherblocks oder NIL, wenn es nicht möglich war, einen 
Block dieser Größe mit diesen Bedingungen zu belegen. 
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FreeMem Gibt belegten Speicherplatz wieder frei. Ubergeben wird ein 
Zeiger auf den freizugebenden Block und die Anzahl der Bytes, 
die er umfaßt. Der Block darf nicht geteilt werden, also muß die 
Anzahl der Bytes gleich groß sein wie beim Belegen des Blockes. 

Wichtig: Spätestens am Programmende müssen Sie alle belegten 
Blöcke wieder freigeben, denn sonst würde bei mehrmaligem Star¬ 
ten solcher Programme der Speicher bald zu Ende sein. 

Vielleicht möchten Sie wissen, wieviel Speicher überhaupt noch zu Verfügung 
steht oder was für Speicher Sie tatsächlich bekommen haben? Diese 
Funktionen geben darüber Auskunft: 

PROCEDURE AvailMemC requirements IN Dl : MemReqSet ):L0NGCARD; 

PROCEDURE TypeOfMemC address IN AO : ANYPTR ):MemReqSet; 

AvailMem Ermittelt den noch freien Speicher für den bestimmte Be¬ 
dingungen zutreffen. Ergebnis ist die entsprechende Anzahl freier 
Bytes, entweder des größten Blocks (largest), oder aller freien 
Speicherblöcke zusammen. 

TypeOfMem Anhand einer Speicheradresse ermittelt diese Funktion, 
welcher Art (etwa chip, public) dieser Bereich ist. 

Nach Möglichkeit sollten Sie, wenn Sie Speicher allozieren wollen, nicht 
die Funktionen von Exec, sondern besser die Routinen aus Resources 
verwenden, da dieses Modul darauf achtet, daß am Programmende auch 
wirklich alle Speicherstücke wieder freigegeben werden. 

Achtung: Versuchen Sie nie ein mit Resources alloziertes Speicherstück 
mit FreeMem 0 wieder freizugeben, ein Absturz ist sicher. 

5.3.8 Die Execbase-Struktur 

Innerhalb von Exec gibt es die sogenannte ExecBase. Dies ist eine Sys¬ 
temstruktur, in der für die Systemprogrammierung wichtige Felder en¬ 
thalten sind. 
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ExecBaseType = RECORD OF Library 


softVer 

CARDINAL; 

lowMemChkSum 

INTEGER; 

chkBase 
coldCapture, 
coolCapture, 

LONGCARD; 

warmCapture 
sysStkUpper, 

PROC; 

sysStkLower 

ANYPTR; 

maxLocMem 

LONGCARD; 

debugEntry 

debugData, 

PROC; 

alertData 

ANYPTR; 

maxExtMem 

ANYPTR; 

chkSum 

CARDINAL; 

intVects 

ARRAY IntFlags OF IntVector; 

thisTask 

idleCount, 

TaskPtr; 

dispCount 
quantum, 

LONGCARD; 

elapsed 

CARDINAL; 

sysFlags 
idNestCnt, 

CARDINAL; 

tdNestCnt 

SHORTCARD; 

attnFlags 

AttnFlagSet; 

attnResched 

CARDINAL; 

resModules 
taskTrapCode, 

ANYPTR; 

taskExceptCode 


taskExitCode 

: PROC; 

taskSigAlloc 

: LONGSET; 

taskTrapAlloc 
memList, 
resourceList, 
deviceList, 
intrList, 
libList, 
portList, 

: BITSET; 
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taskReady, 


taskWait : List; 


softlnts : ARRAY 

[0..4] OF SoftlntList; 

lastAlert : ARRAY 

[0..3] OF LONGINT; 

vBlankFrequency : 

SHORTCARD; 

powerSupplyFrequency : 

SHORTCARD; 

semaphoreList : 

List; 

kickMemPtr, 


kickTagPtr : 

ANYPTR; 

kickCheckSum : 

LONGCARD; 

execBaseReserved, 


execbaseNewReserved : 

ARRAY 9 OF SHORTCARD; 

exPadO 

CARDINAL; 

exReservedO 

LONGCARD; 

RamLibPrivate 

ANYPTR; 

eClockFrequency, 


cacheControl, 


taskID, 


puddleSize, 


poolThreshold 

LONGCARD; 

publicPool 

MinList; 

mmuLock 

ANYPTR; 

exReservedl 

ARRAY[ 0..11 ] OF SHORTCARD; 

execBaseReserved, 


execbaseNewReserved 

ARRAY [0..9] OF SHORTCARD; 


END; 


An dieser Stelle werden nnr die Einträge behandelt, anf die man recht 
unproblematisch zugreifen kann und die im Alltag von Interesse sind: 

thisTask Zeiger auf den momentan aktiven Task. In der Vergangen¬ 
heit wurde dieses Feld oft dazu benutzt die Adresse seines eige¬ 
nen Tasks herauszubekommen. Dies ist jedoch aus Kompatibi¬ 
litätsgründen untersagt, also Finger weg! Will man seine Taska¬ 
dresse ermitteln, geschieht dies systemkonform durch FindTask (NIL). 

attnFlags Attention-Flags. An diesen Flags kann man erkennen, welche 
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CPU und FPU im System sind. Die Namen der Flags sind so ein¬ 
deutig, das eine Erklärung überflüssig ist. 

resourceList Liste aller im System befindlichen Resourcen. 

deviceList Liste aller gemounteten Devices. 

libList Liste aller im Speicher befindlichen Libraries. 

portList Liste der öffentlichen MessagePorts im System. 

taskReady Liste der zum Ablauf bereiten Taks. 

taskWait Liste der wartetenden Tasks. 

Da Sie nun die Anfänge dieser Systemlisten kennen, schreiben sie doch 
unser Beispielprogramm WriteLibNames um, so daß es als TaskMonitor 
oder zur Ausgabe aller Devices dient. Achtung: Wenn Sie auf diese 
Listen zugreifen, tun Sie dies bitte nur nach Aufruf von ForbidO oder 
noch besser einem DisableO. 

Alle anderen Felder sind eigentlich nur für sehr erfahrene Systempro¬ 
grammierer von Bedeutung und man sollte besser die Finger von ihnen 
lassen. 

Weiterhin kann ich nur abraten, in den Feldern der ExecBase etwas 
zu verändern, da dies meist mit einer Lektion im Meditieren endet. 

5.3.9 T_Exec 

Wie Sie sicher schon der Beschreibung von Resources entnommen ha¬ 
ben, enthält das Modul T_Exec einige Funktionen aus Exec, mit dem 
Unterschied, daß hier dafür gesorgt wird, daß alle Resourcen am Pro¬ 
grammende bzw. am Ende eines Kontextes wieder freigegeben werden. 
Dies ist in vielen Eällen sicherer und komfortabler. Einige Eunktionen 
wie z. B. CreateTaskO existieren in Exec gar nicht. Eolgende Eunktio¬ 
nen wurden getrackt: 

OpenLibraryO Offnet eine Library, diese wird am Programmende wie¬ 
der geschlossen. 
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CloseLibraryO Schließt eine Library, mit Berücksichtigung der Re- 
sourceverwaltung. 

OldOpenLibraryO Wie OpenLibrary(), jedoch ohne Versionsnum¬ 
mer. 

CreateTask() Startet eine Clusterprozedur als Task, sorgt dafür, daß 
der Task am Programmende wieder beendet wird. 

DeleteTask() Entfernt einen mit CreateTask erzeugten Task. 

CreatePort() Erzeugt einen MessagePort inklusive Signalen. Beide 
werden am Programmende wiederfreigegeben. 

DeletePort() Gibt einen mit CreatePort erzeugten Port inklusive Si¬ 
gnal frei. 

GetMsgO Sorgt dafür, daß erhaltene Nachrichten am Programm- oder 
Kontextende wieder zurückgeschickt werden. 

ReplyMsgO Schickt eine erhaltene Nachricht zurück, entfernt sie dabei 
aus dem Resourcepool. 

OpenDevice() Offnet ein Device und trägt es in die Resourceverwal- 
tung ein. 

CloseDevice() Gegenstück zu OpenDeviceO. 

Achtung: Haben Sie eine Resource mit einer Punktion von T_Exec allo- 
ziert, dann müssen Sie sie auch mit der entsprechenden Punktion aus die¬ 
sem Modul freigeberl^ auf keinen Pall mit der entsprechenden Punktion 
aus Exec, da diese Punktionen die Resourcen nicht aus der Resourcever- 
waltung austragen. Am Programmende würden sie dann ein zweites mal 
freigegeben, was zu einem Absturz führen würde. Genauso sollten Sie 
eine Resource, die mit Exec erzeugt worden ist, mit T_Exec freigeben, da 
dann das Resourcesystem etwas freizugeben versucht, welches gar nicht 
eingetragen wurde. 

Doch damit genug von Exec, nun wenden wir uns der zweiten nicht 
weniger wichtigen Library zu: Dos. 

^Bzw. im Falle von Messages zurückschicken. 




42 


KAPITEL 5. SYSTEMPROGRAMMIERUNG 


5.4 Dos, der Ein- Ausgabespezialist 

Dos ist eine Abkürzung für Disk Operating System, was soviel bedeu¬ 
tet wie Datenträger-Betriebssystem. Damit wird auch die Aufgabe der 
dos.library beschrieben. Sie ist die Schnittstelle zu den Datenträgern 
wie Diskette und Festplatte. Doch darüber hinaus enthält diese Library 
auch Funktionen zum Starten von Prozessen. Es ist leicht einzusehen, 
daß Dos ein zentraler Teil des Amiga-Betriebssystems ist. Ohne Dos 
könnten zwar Exec-Tasks laufen, aber diese könnten mit der Umwelt 
nicht in Kontakt treten. Ohne Dos läuft also nichts. 

Als CLUSTER-Programmierer fragt man sich natürlich, wofür man 
überhaupt die Dos-Eunktionen zur Dateiverwaltung braucht. Schließlich 
gibt es ja das Standardmodule EileSystem und DosSupport. Sie haben 
nicht ganz unrecht, dennoch enthält die dos.library einige interessante 
Eunktionen, die in diesen Modulen nicht enthalten sind, die jedoch sehr 
nützlich sind. 

5.4.1 Datei-Funktionen 

PROCEDURE OpenC REE name IM Dl : STRING; 

accessMode IM D2 : OpenMode ): FileHandlePtr; 

Mit dieser Eunktion kann man eine Datei öffen. Dabei stehen vier ver¬ 
schiedene Modi für accessmode zur Verfügung: 

readWrite Eine Datei wird zum Lesen und Schreiben geöffnet. Ealls 
sie noch nicht existiert, wird sie neu erzeugt. 

oldFile Eine bereits existierende Datei wird zum Lesen und Schreiben 
geöffnet. 

newFile Es wird eine neue Datei zum Schreiben geöffnet. Ealls schon 
eine Datei mit diesem Namen existiert, wird diese gelöscht. 

Ealls Open() fehlschlägt, bekommt man kein EileHandle, sondern NIL 
zurück. 
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PROCEDURE CloseC file IM Dl : FileHandlePtr); 

Mit dieser Funktion wir die zuvor mit OpenO geöffnete Datei wieder 
geschlossen. 

PROCEDURE ReadC file IN Dl : FileHandlePtr; 

buffer IM D2 : ANYPTR; 

length IN D3 : LONGINT ): LONGINT; 

In den buff er werden length Bytes eingelesen. Der Rückgabewert ist 
die Anzahl der tatsächlich gelesenen Bytes. Falls ein Fehler auftritt, 
wird -1 zurück gegeben. Da diese Funktion ungepuffert arbeitet, ist 
es empfehlenswert, sie nur für größere Datenmengen anzuwenden. Für 
kleinere „Reads“ stehen ab OS 2.0 gepufferte Funktionen wie FReadO 
und FGets 0 zur Verfügung. Will man Funktionsaufrufe von gepufferten 
und ungepufferten Funktionen mischen, so muß man zwischenzeitlich 
Flush 0 aufrufen. 


PROCEDURE WriteC file 

buffer 
length 


IM Dl : FileHandlePtr; 

IM D2 : ANYPTR; 

IM D3 : LONGINT ): LONGINT; 


Diese Funktion ist das logische Gegenstück zu ReadO und muß deshalb 
nicht genauer erklärt werden. 


PROCEDURE SeekC file IM Dl : FileHandlePtr; 

Position IM D2 : LONGINT; 

mode IM D3 : SeekMode ): LONGINT; 

Mit SeekO kann man den internen Datenzeigeij^der FileHandles verändern, 
um Daten zu überspringen oder nochmals zu lesen. Es gibt drei verschi- 
dene Modi für position: 

^Dieser gibt die Position im File an, an der das nächste Zeichen gele¬ 
sen/geschrieben wird. 
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beginning Gibt an, an welche Stelle - gezählt in Bytes vom Dateian¬ 
fang - der Zeiger gestellt werden soll. 

current Es wird relativ znr momentanen Position verschoben, man 
kann also positive nnd negative Werte für position angeben. 

end Spricht für sich: Positionierung relativ zum Dateiende. 

Der Rückgabewert entspricht der neuen absoluten Position in der Datei 
oder -1, falls ein Fehler aufgetreten ist. 

PROCEDURE SetFileSizeC fh IN Dl : FileHandlePtr; 

pos IN D2 : LONGINT; 

mode IN D3 : SeekMode): LONGINT; 

Wie schon oben erwähnt, kann man mit dieser Funktion die Größe ei¬ 
ner Datei verändern. Sie kann sowohl vergrößert, als auch verkleinert 
werden. Dabei gibt pos die Position des neuen Dateiendes an, mode 
bestimmt dabei wie bei SeekO, wie pos zu interpretieren ist. Wichtig: 
Vergrößert man eine Datei, darf man keinerlei Annahmen über die Daten 
in dem vergrößerten Teil machen. Verkleinert man eine Datei und die 
aktuelle Fileposition befindet sich hinter dem neuen Dateiende, befindet 
sich diese danach auf diesem. 

Als Rückgabewert erhält man die Position des neuen Dateiendes oder 
-1, falls ein Fehler auftrat. Achtung: Sie sollten diesen Rückgabewert 
auf gar keinen Fall ignorieren, da es möglich ist, daß einige Devices diese 
neue Funktion noch nicht unterstützen. 

Nach Möglichkeit sollte man diese Dateifunktionen nicht verwenden, son¬ 
dern die gepufferten Funktionen aus FileSystem benutzen. 

Als Beispiel für die Benutzung der Dos-Funktionen kann das Modul 
FileSystem und das Beispielprogramm DosFileTest dienen: 

MODULE DosFileDemo; 

IMPORT Dos AS d; 

CONST 
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BufSize = 1024; 

VAR 
File 
Buffer 
Size, Err 

BEGIN 

File := d.Opeii ( "S : Startup-Sequence" , d. oldFile) ; 

IF File # NIL THEM 
REPEAT 

Size := d.Read (File, Buffer’PTR, BufSize); 

IF Size > 0 THEM 

IF d.Write (d.Output (), Buffer’PTR, Size) # Size THEM 
Size := -1; 

END; 

END; 

UNTIL Size < BufSize; 

IF Size = -1 THEM 

FORGET d.PrintFault (d.IoErrO, "lO-Error: ") ; 

HALT (20); 

END; 

END; 

CLOSE 

IF File # NIL THEN 

FORGET d.Close (File); 

File := NIL; 

END; 

END DosFileDemo. 

Es gibt seit OS 2.0 noch einige weitere Fnnktionen, so wie die oben 
erwähnten Funktionen zur gepufferten Ein-/Ausgabe. Der Sinn dieser 
Prozeduren erschließt sich aber aus ihrem Namen und sollte deshalb nach 
einem Blick in die Definitionsdatei Dos. def klar sein. 

Neben OpenO gibt es noch weitere Funktionen, um einen FileHandle 
zu erhalten. Nämlich die Funktionen Input () und Output (), die einen 
FileHandle auf den Standard-Ein/Ausgabekanal zurückliefern. Dabei 


d.FileHandlePtr; 

ARRAY [BufSize] OF CHAR; 
LONGINT; 
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handelt es sich normalerweise nm das Console-Device des Shellfensters, 
von dem das Programm gestartet wurde, oder das File/Device, auf den 
die Standard-Ein/Ausgabe mittels </> umgelenkt wurde. Wurde das 
Programm von der Workbench gestartet, erhält man NIL. Hier die zwei 
Funktionen: 

PROCEDURE InputO: FileHandlePtr; 

PROCEDURE Output(): FileHandlePtr; 

Da wir gerade bei Consolefenstern sind, es ist ganz einfach über Dos ein 
solches zu öffnen: 

fh:=0pen("C0N:20/10/100/50/MyWindow",readWrite); 

Verwendet man statt CON: RAW:, erhält man neben normalen Zeichen 
auch Cursor- und andere Steuertasten. Man hat jedoch keine Editierun- 
testützung wie bei CON: 

Gerade bei einem Konsolefenster möchte man eventuell nur eine bes¬ 
timmte Zeit auf die Eingabe eines Zeichens warten. Hierfür existiert die 
Funktion WaitForChar () 

PROCEDURE WaitForChar( File IN Dl : FileHandlePtr; 

Timeout IM D2 : LONGINT ): LONGBOOL; 

Diese Funktion wartet TimeOut Microsekunden auf die Eingabe eines 
Zeichens auf dem FileHandle f ile. Sie gibt TRUE zurück, wenn inne¬ 
rhalb des Zeitraums ein Zeichen eingegeben wurde. Dieses kann dann 
mittels ReadO gelesen werden. 

Wichtig, diese Funktion ist nur auf interaktive FileHandles anwend¬ 
bar, d. h. FileHandles, die einem virtuellen Terminal, von dem Benut¬ 
zereingaben gelesen werden können, zugeordnet sind. Um zu testen, 
ob ein Filehandle interaktiv ist existiert folgende Funktion, die TRUE 
zurückliefert, falls es sich um ein interaktives File handelt: 

PROCEDURE IsInteractiveC File IN Dl : FileHandlePtr ): LONGBOOL; 
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5.4.2 Argumentparsing / Read Args () 

Um einen Compnter möglichst einfach bedienen zn können, sollte sich 
jedes Programm an einen bestimmten Standard halten. Für den Amiga 
ist dieser Standard im „User Interface Style Gnide“ festgelegt. Falls ein 
Programm Parameter von der Kommandozeile erwartet, so sollten diese 
nach einem bestimmten Schema behandelt werden. Dieses Schema ist 
ausführlich im Benutzerhandbuch des Amigas erklärt. Mit der Prozedur 
ReadArgsO wird es sehr einfach, solche Kommandozeile zu parsen. 

PROCEDURE ReadArgsC REF template IN Dl : STRING; 

array IN D2 : ANYPTR; 

args IN D3 : RDArgsPtr ): RDArgsPtr; 

Als args übergibt man im Normalfall NIL. Für hier nicht behandelte 
Sonderfälle kann es sinnvoll sein, hier eine mithilfe von AllocDosObj ect () 
allozierte RDArgs-Struktur, die mit eigenen Werten gefüllt wurde, ein¬ 
zutragen. 

In template wird eine Argumentenschablone angegeben, anhand der 
der Array, auf den ärray”zeigt, ausgefüllt wird. Die Schablone besteht 
aus durch Kommas getrennten Optionen, die möglichst im Klartext an¬ 
gegeben werden sollten. Abkürzungen sind mit Hilfe eines Gleichheits¬ 
zeichens möglich (z.B.: „Q=QUICK“). 

Jede Option entspricht einem Langwort im Array. Die Langwör- 
ter sind im Normalfall SysStringPtrs. Bei bestimmten Steuerkennun¬ 
gen, sind jedoch Abweichungen möglich. Wird ein Argument nicht an¬ 
gegeben, so wird das korrespondierende Element in dem Array nichts 
geändert, deshalb sollte man das Array vor dem Aufruf von ReadArgs() 
mit Vorgabewerten füllen. 

Folgende Steuerkennungen gibt es: 

/S Schalter. Bei dieser Option kommt es nur darauf an, ob sie gesetzt 
ist, oder nicht. Falls die Option angegeben wird hat das Langwort 
einen Wert ungleich 0. 

/K Schlüsselwort. Bei dieser Option muß immer der Name der Option 
mit angegeben werden. Wenn die Option z. B. „TEST“ heißt, so 
wird diese nur ausgefüllt, falls die Eingabe entweder durch 
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„TEST=<beliebiger string>“ oder 
„TEST <beliebiger string>“ erfolgt. 

/N Zahl. Die Option ist eine Zahl. Znrückgegeben wird ein Zeiger 
auf einen LONGINT, der die Zahl enthält. 

/T Schalter. Entspricht /S, aber negiert den Vorgabewert. 

/A Bedeutet, daß das Argument angegeben werden muß. 

/F Der Rest der Kommandozeile wird als Parameter ausgewertet, 
selbst wenn sich darin Schlüsselwörter anderer Optionen befinden. 

/M Durch diese Steuerkennung kann eine Option mehrere Strings be¬ 
kommen. Das entsprechende Langwort in array zeigt dann auf ein 
Array von SysStringPtrs. Das Ende dieses Arrays erkennt man an 
einem NIL. 

Beispiel: Bei einem Template „DIR/M, ALL/S“ und einer Komman¬ 
dozeile „foo bar all qwe“ wird der Schalter ‘ALL“ gesetzt und 
für „DIR“ ein Array zurückgegeben, der „foo“, „bar“, „qwe“ und 
NIL enthält. 

ReadArgsO gibt eine RDArgs-Struktur zurück, die man erst wieder mit 
FreeArgsO freigeben darf, wenn man nicht mehr auf array zugreift. 

Bei einem Fehlschlag von ReadArgsO wird NIL zurückgegeben. In 
einem solchen Fall sollte man das richtige Format ausgeben (in diesem 
Fall das template ausgeben und das Programm beenden. 

Das Beispielprogramm zur Dos Funktion ExAllO zeigt auch, wie 
man ReadArgs 0 verwendet. Achtung: Ein Programm, daß ReadArgs () 
verwendet, kann nicht aus dem Editor heraus gestartet werden. 
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5.4.3 Dateiinformationen 

Falls man zu einem Dateinamen nähere Informationen braucht, bekommt 
man diese durch die Funtion Examine(). Diese füllt eine FilelnfoBlock- 
Struktur aus. Hier ist sie: 


FileinfoBlock 


RECORD 
diskKey 
dirEntryType 
fileName 
protection 
entryType 
size 

numBlocks 

date 

comment 

reserved 

END; 


LONGINT; 

EntryType; 

ARRAY [0..107] OE CHAR; 
ProtectionFlagSet; 
LONGINT; 

LONGINT; 

LONGINT; 

Date; 

ARRAY [0..79] OF CHAR; 
ARRAY [0..35] OF CHAR; 


Es ist wichtig, daß diese Struktur ab OS 2.0 mit AllocDosObject(), 
ansonsten mit New alloziert wird, da die Adresse auf einer durch 4 teil¬ 
baren Adresse liegen muß; daher keine Variable diesen Typs verwenden. 
Ansonsten sind unvorhersehbare Abstürze möglich. 

Die wichtigsten Felder der Struktur im einzelnen (alle anderen Felder 
sind privat und sollten deshalb ignoriert werden): 

dirEntryType Interessant sind hier nur die Werte: f ile/linkFile, es 
handelt sich um eine Datei; root, es handelt sich um ein Root- 
Verzeichnis und userDir/linkDir es handelt sich um ein Ver¬ 
zeichnis. 

fileName Der Filename, sonst nichts. 

protection Die bei den Shell-Befehlen „List“ und „Protect“ bekannten 
Schutzbits: delete, execute, writeProt, readProt, archive, 
pure, und script. Alle anderen Bits sind reserviert und sollten 
deshalb nicht beachtet und nicht verändert werden. Die Bits kann 
man übrigens mit der SetProtectionO Funktion verändern. 
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size Die Dateigröße in Bytes, falls es sich um eine Datei handelt. Ab 
OS 2.0 kann man mit SetFileSizeO die Dateigröße ändern (also 
auch verkleinern). Ansonsten kann man eine Datei nur durch 
WriteO und verwandte Funktionen vergrößern. 

numBlocks Die Anzahl der Blocks, die die Datei belegt. 

date Das Datum der Datei, welches ab OS 2.0 mit SetFileDateO 
geändert werden kann. 

comment Der Kommentar der Datei, dieses Feld wird jedoch bei den 
wenigsten Dateien benutzt. Mit der SetComment () Funktion kann 
man den Kommentar jederzeit ändern. 

Doch wie kommt man an all diese Informationen? Zuerst braucht man 
einen sog. FileLock^ den man dann an Examine () übergeben kann. Die¬ 
sen Lock besorgt die gleichnamige Funktion: 

PROCEDURE Lock( REE name IM Dl : STRING; 

accessMode IM D2 : LockMode ): FileLockPtr; 

Es gibt zwei verschiedene Arten von FileLocks, die man über den accessMode 
anfordern kann. Einen exlusiveLock kann nur ein Programm alleine 
halten. Es können jedoch beliebig viele Programme einen sharedLock 
haben. 

Ealls die gewünschte Datei existiert und kein anderes Programm ei¬ 
nen exclusiveLock hält, bekommt man einen BCPL-Zeiger auf eine 
EileLock-Struktur zurück, ansosten NIL. 

Eine andere Möglichkeit an einen Lock zu kommen ist, einen beste¬ 
henden sharedLock zu kopieren: 

PROCEDURE DupLockC lock IN Dl : FileLockPtr ): FileLockPtr; 

Unter OS 2.0 kann man sogar einen Lock von einem mit OpenO geöffneten 
EileHandle bekommen: 

®Einen Zugriff auf die Datei 
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PROCEDURE DupLockFromFHC fh IN Dl: FileHandlePtr ): FileLockPtr; 

Den so erhaltenen Lock muß man nach dem Gebrauch auf jeden Fall so 
schnell wie möglich wieder freigeben, damit ein reibungsloser Ablauf im 
Multitaskingsystem möglich ist. Dazu dient: 

PROCEDURE UnlockC Lock IM Dl : FileLockPtr ); 


Jetzt kann man die oben besprochene Funktion Examine() aufrufen, die 
diese Syntax hat: 

PROCEDURE Examine( Lock IN Dl : FileLockPtr; 

InfoBlock IN D2 : FileinfoBlockPtr ): LONGBOOL; 


Eine weitere häufig benötigte Funktion ist das Einlesen von Verzeichnis¬ 
sen. Seit OS 2.0 wurde die umständliche und fehlerträchtige Methode 
über Examine0 und ExNextO durch eine viel komfortablere abgelöst, 
die sich der Eunktion ExAllO bedient. 

Um ExAllO verwenden zu können, muß man sich zuerst mit 
AllocDosObject 0 eine ExAllControl-Struktur besorgen. 


ExAllControlPtr = 
ExAllControl = 


POINTER TO ExAllControl; 
RECORD 


entries 

lastkey 

matchString 

matchFunc 

END; 


LONGCARD; 
LONGCARD; 
SysStringPtr; 
HookPtr; 


Im Eeld entries steht nach einem erfolgreichen Aufruf von ExAllO 
die Anzahl der zurückgegebenen Eiles. Es ist möglich, daß ExAllO 
mehrmals aufgerufen werden muß, dies sogar, wenn entries gleich 0 
ist. Dazu später. 

lastkey muß man auf jeden Eall vor dem ersten Aufruf auf 0 setzten. 
Ansonsten sollte man das Eeld in Ruhe lassen, da es von Dos intern 
benötigt wird. 




52 


KAPITEL 5. SYSTEMPROGRAMMIERUNG 


Trägt man bei matchString nicht NIL, sondern ein AmigaDOS- 
Pattern-String ein, so werden nur Files zurückgegeben, die auf dieses 
Pattern passen. 

Achtung: Dieser String muß mit ParsePatternNoCaseO zuvor behan¬ 


delt worden sein. Siehe Patternmatching 5.4.6 


Eine weitere Möglichkeit, bestimmte Files auszuwählen, hat man, 
wenn man bei matchFunc mit Hilfe eines Hooks eine Prozedur installiert, 
die für jedes File entscheidet, ob es angenommen werden soll. Diese 
Vorgehensweise wird hier aber nicht beschrieben. Näheres findet man in 
den AutoDocs und im AmigaDOS-Manual. 

Um jetzt ExAllO verwenden zu können, braucht man nur noch einen 
Lock auf das Verzeichnis, das man untersuchen will und einen Puffer, in 
dem die Informationen zu den Files gespeichert werden. Den Puffer holt 
man sich am besten mit AllocMemO, wobei man beachten sollte, daß 
bei einem kleinen Puffer ExAll sehr oft aufgerufen werden muß. Ein 
vernünftiger Wert ist hier 2 KB. 

Jetzt endlich kann der Aufruf von ExAll () stattfinden. 


PROCEDURE ExAll( lock IM Dl : FileLockPtr; 

buffer IM D2 : AMYPTR; 

size IM D3 : LOMGIMT; 

type IM D4 : ExAllType; 

control IM D5 : ExAllControlPtr ): LOMGBOOL; 

Im Feld type gibt man an, welche Informationen zu einem File man 
gerne hätte. Es gibt diese Möglichkeiten: 

ExAllType = (name=l, type, size, protection, 

date, comment); 

Dabei ist zu beachten, daß wenn man z.B. size verwendet auch die 
Felder name und type der unten erklärten ExAllData-Struktur gültige 
Werte besitzen. Alle felder ab prot enthalten jedoch keine gültigen 
Informationen. 

Wenn nach dem Aufruf von ExAll () in der Control-Struktur mehrere 
Einträge angezeigt werden, so wurde der Puffer mit mehreren ExAllData- 
Strukturen gefüllt. 
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ExAllDataPtr 

ExAllData 


POINTER TO ExAllData; 


RECORD 

next 

ExAllDataPtr; 

name 

SysStringPtr; 

type 

EntryType; 

size 

LONGCARD; 

prot 

ProtectionFlagSet; 

date 

Date; 

comment 

SysStringPtr; 

END; 



Uber das next kann man die Liste nacheinander dnrchgehen. Alle an¬ 
deren Felder sind selbsterklärend. 

Falls der Anfrnf von ExAll() erfolgreich war (mit loErr () zn überprüfen), 
so mnß man diesen solange wiederholen, bis ExAll() FALSE znrückgibt 
nnd damit signalisiert, das alle Einträge abgearbeitet wnrden. 

Die Feinheiten sollten aus dem Beispielprogramm ersichtlich sein: 


MODULE ExAllDemo; 


FROM InOut IMPORT WriteString,WriteLn; 

FROM Strings IMPORT Str; 

FROM System IMPORT SysStringPtr; 

FROM Resources IMPORT Allocate,Dispose,MemReqs; 

IMPORT Dos AS d; 


CONST 

BufSize = 2048; 

Template = "DIR,ALL/S"; 

VAR 

RD : d.RDArgsPtr; 

ArgArray : ARRAY [2] OF ANYPTR; 

Dir : STRING(256); 

Level : INTEGER; 

PROCEDURE ShowDir (Dir: STRING; All: BOOLEAN); 
VAR 
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ObjLock, OldDir 

res2 

more 

Buffer, ead 

control 

i 


d.FileLockPtr; 
d.loErrors; 
BOOLEAN; 
d.ExAllDataPtr; 
d.ExAllControlPtr; 
INTEGER; 


BEGIN 

TRACK 


I control MUST be allocated by AllocDosObject! 
control := d.AllocDosObject (d.exAllControl, DÜNE); 

Allocate(Buffer, BufSize, mem:={public, clear}); 

IF (control # NIL) THEN 

ObjLock := d.Lock (Dir, d.sharedLock); 

IF ObjLock # NIL THEN 

OldDir := d.CurrentDir (ObjLock); 
control.lastkey := 0; (* paranoia *) 

REPEAT 

more := d.ExAll (ObjLock, Buffer, BufSize, d.type, control); 
res2 := d.loErr(); 

IF (NOT more) AND (res2 # d.noMoreEntries) THEN 


FORGET d.PrintFault (res2,"Abnormal exit, error = "); 
HALT (20); 


END; 


IF control.entries # 0 THEN 
ead := Buffer; 

REPEAT 

i := Level; 

WHILE i > 0 DO 

WriteString(" "); 

DEC (i); 

END; 

WriteString(Str(ead.name)); 

IF ead.type OF d.root,d.userDir,d.linkDir THEN 
WriteString(" (dir)"); 

WriteLn; 

IF All THEN 


INC (Level); 
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ShowDir (Str(ead.name), All); 

DEC (Level); 

END; 

ELSE 

WriteLn; 

END; 

ead := ead.next; 

UNTIL ead = NIL; 

END; 

UNTIL NOT more; 

OldDir := d.CurrentDir (OldDir); 
d.Unlock (ObjLock); 

ELSE 

WriteStringC'Couldn’t find ");WriteString(Dir); 
WriteLn; 

END; 

END; 

CLOSE I Sorgt dafür, daß auch im HALT-Fall 
I alles wieder freigegeben wird. 

I Buffer wird automatisch freigegeben 
IF control # NIL THEN 

d.FreeDosObject (d.exAllControl, control); 
control := NIL 
END; 

END; 

END ShowDir; 

VAR 

c : CHAR; 

BEGIN 

ArgArrayEO] := NIL; ArgArrayEl] := 0; 

RD := d.ReadArgs (Template, ArgArray’PTR, NIL); 

IF RD = NIL THEN 

WriteStringC'Usage: ");WriteString(Template); 
WriteLn; 

HALT (20); 

END; (* IF *) 
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IF ArgArrayEO] # NIL THEN 

Dir:=Str(SysStringPtr(ArgArray[0])); 

ELSE 
Dir := 

END; 

Level := 0; 

ShowDir (Dir, ArgArray[1] # 0); 

CLOSE 

IF RD # NIL THEN d.FreeArgs (RD); RD := NIL END; 

END ExAllDemo. 

5.4.3.1 Weitere Lock-Funktionen 

Hat man einen Lock auf ein Directory, kann man dieses Directory zum 
Current-Directory für den eigenen Prozess machen. Dies entspricht dem 
Kommando CD in der Shell. Alle Dateipfade, sofern sie kein Device oder 
Volume enthalten, beziehen sich immer auf das Current-Directory. Hat 
man viele Zugriffe auf ein Verzeichnis zu machen, empfiehlt es sich, dieses 
zum aktuellen Verzeichnis zu machen, da dadurch die Zugriffe erheblich 
beschleunigt werden. Hierzu dient die Funktion CurrentDir () : 

PROCEDURE CurrentDirC Lock IN Dl : FileLockPtr ): FileLockPtr; 

Als Ergebnis erhält man einen Lock auf das vorherige aktuelle Verzeich¬ 
nis, den man sich merken und am Programmende wieder setzen sollte. 
Ubergibt man für Lock NIL, wird das Volume, von dem gebootet wurde 
zum aktuellen Verzeichnis (entspricht SYS:. Wichtig: Einen Lock, den 
man zum aktuellen Verzeichnis gemacht hat, darf man nicht mittels Un- 
lock freigeben. 

Mittels der Eunktion ParentDirO erhält man den Lock auf das 
Übergeordnete Verzeichnis eines Verzeichnisses oder NIL, wenn es sich 
um ein Root-Verzeichnis gehandelt hat: 

PROCEDURE ParentDirC Lock IN Dl : FileLockPtr ): FileLockPtr; 

Eür Lock übergibt man den Lock auf das Verzeichnis, dessen Parent- 
Directory man ermitteln will. 
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Bisher war es immer schwierig, wenn ein Programm anf znsetzliche 
Dateien zngreifen wollte, aber nicht wnßte, wo es sie suchen soll. Bisher 
wurde meist ein assign auf das Programm Verzeichnis verwendet, das 
vorhanden sein mußte. Seit OS 2.0 gibt es die Möglichkeit das Verzeich¬ 
nis, in dem ein Programm abgelegt ist, zu ermitteln. Hierfür dient die 
Funktion GetProgramDir(): 

PROCEDURE GetProgramDirO: FileLockPtr; 

Möchte man zu einem Lock dessen Pfad erhalten, kann man die Funktion 
Name Fr omL o ck() verwenden: 

PROCEDURE NameFromLockC lock : FileLockPtr; 

VAR buffer : STRING; 

len : L0NGINT:=0): LONGBOOL; 

Für buff er übergibt man einen String, in den der Pfad eingetragen 
werden soll, len gibt die maximale Länge von buff er an, ist aber 
Überflüssig, da nicht direkt die Dos-Funktion aufgerufen wird und die 
Clusterfunktion die Länge des Strings einträgt, wenn für len Null ein¬ 
getragen wird. 

Für FileHandles existiert eine entsprechende Funktion: 

PROCEDURE NameFromFHC fh : FileHandlePtr; 

VAR buffer : STRING; 

len : L0NGINT:=0 ): LONGBOOL; 

Beide Funktionen liefern FALSE zurück, falls ein Fehler auftrat, z. B. 
wenn der String zu kurz war. loErrO auslesen, um die genaue Fehle¬ 
rursache festzustellen. 

Will man feststellen, ob sich zwei Locks auf dem selben Device befin¬ 
den, z. B. um sicher zu sein, daß man ein File mit RenameO von einem 
Directory in ein anderes bewegen kann, kann man dies mit der Funktion 
SameDeviceO tun, die TRUE zurückliefert, wenn sich beide Locks auf 
dem selben Device befinden: 

PROCEDURE SameDeviceC lockl IN Dl : FileLockPtr; 

lock2 IN D2 : FileLockPtr ): LONGBOOL; 
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5.4.4 Diskinformationen 

Um Informationen über einen Datenträger zu erhalten, kann man die 
Funktion InfoO verwenden: 

PROCEDURE InfoC Lock IM Dl : FileLockPtr; 

ParameterBlock IM D2 : InfoDataPtr ): LOMGBOOL; 


Für Lock übergibt man einen Lock auf den Datenträger oder irgendein 
File auf ihn, für ParameterBlock einen Zeiger auf einen Record vom 
Typ InfoData. Dabei ist wichtig, daß dieser Record auf einer durch 4 
teilbaren Adresse liegt, am einfachsten alloziert man ihn mit Allocate, 
bitte nicht als Variable definieren. Der Record hat folgenden Aufbau: 


InfoData 


RECORD 

numSoftErrors 
unitMumber 
diskState 
numBlocks, 
numBlocksUsed 
bytesPerBlock 
diskType 
volumeMode 
inUse 
EMD; 


LOMGIMT; 
LOMGIMT; 
DiskStatus; 

LOMGIMT; 
LOMGIMT; 
DiskType; 
DeviceListPtr; 
LOMGBOOL; 


Nach dem Aufruf der Funktion ist der Record mit folgenden Daten 
gefüllt: 

numSoftErrors : Die Anzahl der Diskettenfehler 
unitNumber : Die Nummer des Laufwerks 
diskState : Status der Disk: 

writeProtected : Disk ist schreibgeschützt. 

validating : Disk wird validiert, es kann nicht darauf geschrieben 
werden. 
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validated : Disk ist ok und beschreibbar. 

numBlocks : Anzahl der Blöcke auf der Disk. 
numBlocksUsed : Anzahl der belegten Blöcke. 
bytesPerBlock : Größe eines Blocks in Bytes. 
diskType : Art der Disk: 

noDiskPresent : Es befindet sich keine Diskette im Laufwerk. 

unreadableDisk : Diskette ist nicht lesbar. 

dosDisk : Normale Dos-Disk mit dem alten FileSystem. 

ffsDisk : Dos-Disk mit FastFileSystem. 

notReallyDos : Zwar Dos-Format, jedoch keine Dos-Disk. 

kickstartDisk : Es handelt sich um eine Kickstart-Diskette, kommt 
eigentlich nur beim AlOOO vor. 

msdosDisk : Diskette, die im MS-Dos-Format formatiert ist. 

volumeNode : BCPL-Zeiger auf die VolumeNode der Disk. 
inUse : Ist FALSE, wenn keiner darauf zugreift. 

5.4.5 Dateiverwaltung 

Neben den Funktionen zum Anlegen und Beschreiben von Dateien, gibt 
es auch eine Reihe von Verwaltungsfunktionen, die mit vielen Shellfunk¬ 
tionen identisch sind und daher einfach zu benutzen sein sollten: 

PROCEDURE DeleteFileC REF Name IM Dl : STRING ): LONGBOOL; 

Löscht die Datei Name. Gibt FALSE zurück, falls ein Fehler auftrat. 

PROCEDURE RenameC REF OldName IN Dl, 

NewName IN D2 : STRING ): LONGBOOL; 
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Benennt die Datei OldName in NewName nm. Dabei kann NewName auch 
in einem anderen Verzeichnis hegen, sofern sich dieses auf dem selben 
Volume befindet. Es findet dann ein „Move“ statt. Gibt FALSE zurück, 
falls ein Fehler auftrat. 

PROCEDURE SetComment( REE Name IM Dl, 

Comment IN D2 : STRING ): LONGBOOL; 

Setzt für die Datei Name den Kommentar Comment. Gibt FALSE zurück, 
falls ein Fehler auftrat. 

PROCEDURE SetFileDateC REE name IN Dl : STRING; 

date IN D2 : DatePtr ): LONGBOOL; 

Setzt für die Datei name das neues Datum date. Gibt FALSE zurück, 
falls ein Fehler auftrat. 

PROCEDURE CreateDirC REF Name IN Dl : STRING ): FileLockPtr; 

Erzeugt ein Verzeichnis mit Pfad Name und gibt einen FileLockPtr darauf 
zurück oder NIL wenn ein Fehler auftrat. 

PROCEDURE RelabeK REF drive IM Dl : STRING; 

REF newname IN D2 : STRING ): LONGBOOL; 

Benennt das Volume (Diskett/Festplatte) drive auf den Namen newname 
um. Gibt FALSE zurück, falls ein Fehler auftrat. 

5.4.6 Patternmatching 

Bisher war die Bearbeitung von Dos-Pattern sehr aufwendig, da es keine 
spezielle Funktion hierfür in Dos gab. Seit 2.0 hat sich dies nun geändert. 
Um zu prüfen, ob ein String einem Dos-Pattern enspricht, gibt es nun 
die Funktion MatchPatternNoCase () : 

PROCEDURE MatchPatternNoCase( pat IN Dl : ANYPTR; 

REF str IM D2 : STRING ): LONGBOOL; 
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Sie liefert TRUE zurück, falls str dem Dos-Pattern entspricht. Dabei ist 
zu beachten, daß Sie für pat nicht direkt einen Patternstring übergeben 
können, sondern es muß ein Zeiger auf einen vorbearbeiteten Patterns¬ 
tring übergeben werden. Um diesen zu erzeugen, gibt es die Funktion 
ParsePatternNoCase(): 

PROCEDURE ParsePatternNoCaseC REF buf IM Dl : STRING; 

pat IM D2 : ANYPTR; 

bullen IM D3 : LONGINT ): LONGINT; 

Diese Funktion erhält in buf einen String mit dem gewünschten Pattern, 
dabei sind alle Patternsymbole erlaubt, die man aus der Shell kennt wie 
z. B. #? I etc. Für pat übergibt man einen Zeiger auf einen Puffer, in dem 
das bearbeitete Pattern abgelegt werden soll. Dabei ist zu beachten, daß 
der Puffer mindestens doppelt so groß sein muß wie der Patternstring 
lang ist, zuzüglich zwei Bytes, da jedes Patternzeichen zu zwei Tokens 
verwandelt wird, eines sogar in drei, allerding nur einmal pro Pattern. In 
buf len übergibt man die Länge des Puffers. Als Ergebnisse kann man 
folgende Werte erhalten: 

1 Bedeutet, daß innerhalb des Pattern sich Wildcard^^ befinden. 

0 Es befinden sich keine Wildcards im Pattern. 

-1 Es trat ein Fehler auf, möglicherweise war Ihr Puffer zu klein. 

Diese Funktion ist auch zu verwenden, wenn man einen Patternstring 
für die ExAllControl-Struktur erhalten will. 

Beide Funktionen sind nicht Case-Sensitiv, d. h. sie machen keinen 
Unterschied in der Groß/Kleinschreibung. Will man case-Sensitives Pat- 
ternmatching, bietet Dos die Funktionen 

MatchPatternO und ParsePatternO an. Diese werden genau wie die 
oben beschriebenen verwendet. Da Dos keine Unterschiede bei den File¬ 
namen in der Groß/Kleinschreibung macht, wurden nur diese Funktionen 
ausführlich beschrieben. 

^°Dies bedeutet, daß das Pattern auf mehr als einen String zutreffen kann, 
z. B.: #? für beliebige Strings. 
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5.4.7 Fehlerbehandlung 

Nach jedem Dos-Kommando läßt sich überprüfen, ob sich ein Fehler 
ereignet hat nnd wenn ja, nm welche Art von Fehler es sich handelt. 

Hierzn dient die Fnnktion loErrO: 

PROCEDURE loErr():loErrors; 

loErrors ist ein in Dos definierter Anfzählnngstyp. Die Namen der 
Elemente geben ausreichend den Grund für den Fehler an, so daß es 
nicht nötig ist die Elemete im einzelnen zu beschreiben. 

Will man einen Dos-Eehler ausgeben, kann man dazu die Eunktion 
PrintFaultO verwenden, die eine Ausgabe auf die Standardausgabe 
macht: 

PROCEDURE PrintFaultC code IM Dl : loErrors; 

REF header IN D2 : STRING ): LONGBOOL; 

Code ist dabei der Eehlercode, den loErrO zurückgibt, header ein Vors¬ 
pann, der vor der dem Code zugeordneten Eehlermeldung ausgegeben 
wird. Ealls ein Eehler auftrat, wird EALSE zurückgegeben. 

5.4.8 Prozessverwaltung 

Manchmal kommt es vor, daß man aus einem Programm heraus ein 
anderes Programm starten muß. Seit OS 2.0 hat man dazu die kom¬ 
fortable Prozedur System() zur Verfügung, die das problematische Exe- 
cute() ablöst. 

PROCEDURE CallSystemTags (REF command IM Dl : STRING; 

tags IN D2 : LIST OF SystemTags):LONGINT; 

Hier werden nur die wichtigsten Tags besprochen, die anderen kann man 
durch einen Blick in das Definitions-Eile leicht finden. 

input : FileHandlePtr; 
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output : FileHandlePtr; 

Diese Tags bestimmen das Input- bzw. Output-Filehandle, also 
die Datei, die für die Ein- bzw. Ausgaben des gestarteten Pro¬ 
gramms zuständig sind. Läßt man diesen Tag weg, so wird das 
FileHandle des aufrufenden Programms vererbt. 

asynch : LONGBOOL; (nicht ANYPTR!) 

Hier kann bestimmt werden, daß das Programm asynchron aus- 
gefürt wird. Man bekommt in diesem Fall von CallSystemTags () 

-1 als Ergebnis geliefert, anstelle des Returncodes des Programms. 
Achtung: Die FileHandles werden automatisch geschlossen! Man 
sollte also mit sys Input und sysOutput auf jeden Fall neu er¬ 
zeugte FileHandles übergeben, da einem sonst die eigenen Handles 
geschlossen werden! 

priority : LONGINT; 

Die Priorität, die das Programm erhalten soll. Wie man sieht, 
kann man bei CallSystemTags() auch Tags der Prozedur Create- 
NewProc() übergeben. 

Will man jedoch kein fremdes Programm, sondern eine Prozedur als 
eigenen Prozess starten, dient hierzu die Prozedur CreateNewProcO: 

PROCEDURE CreateNewProcCtags IN Dl : LIST OF NewProcTags):ProcessPtr; 

Wer sich für die Tags im einzelnen interessiert, sei das AmigaDos-Manual 
wärmstens ans Herz gelegt. Vielmehr soll hier die Lösung eines Problems 
gezeigt werden. Leider besteht keine Möglichkeit, einem neu erzeugten 
Prozess irgendwelche Daten zu übergeben. Damit jedoch der Prozess auf 
die Globalen Variablen des Moduls zugreifen kann, benötigt er den Inhalt 
des Adreßregisters A4 des erzeugenden Programmes. Hierzu gibt es zwei 
Möglichkeiten: Das prozesserzeugende Programm schickt eine Message 
mittels PutMsgO an den Nachrichtenport des neuen Prozesses und der 
neue Prozess holt als allererstes diese Nachricht ab. Dies geschieht am 
besten in Assembler. 

Die zweite Möglichkeit ist sehr viel einfacher, hat jedoch den Nach¬ 
teil, daß das Programm die Fähigkeit der Multientranz verliert, da das 
Programm selbst verändert wird: 
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CONST 

MyA4 = ARRAY OF L0NGINT:(0); 

IProzedur, die als Prozess laufen soll 
PROCEDURE MyProcess; 

BEGIM 

SETREG(MyA4[0],A4); 

END MyProcess; 

BEGIN 

$$ConstChk:=FALSE | Schreibschutz für Konstanten ausschalten 
MyA4[0]:=REG(A4) | Patchen der Konstanten 

$$ConstChk:=0LD 

FORGET CreateNewProcCentry 

name 

stackSize 
DONE); 

Da konstante Teile des Programmcodes absolnt adressiert werden, sind 
sie sowohl vom erzeugenden Programm als auch vom neuen Prozess er- 
reichbaiF^ In den meisten Fällen sollte diese Art vollkommen ausrei¬ 
chen, da eigene Prozesse meist nur von größeren Programmen erzeugt 
werden, die üblicherweise nicht mehrfach gleichzeitig laufen. 

Eine weitere Funktion, die mit der Prozessverwaltung zu tun hat, 
ist die Dos-Funktion Delay(). Sie dient dazu, eine bestimmt Zeit zu 
warten, ohne anderen Programmen Rechenzeit zu stehlen, unabhängig, 
mit welchem Prozessor und Taktfrequenz der Amiga betrieben wird: 

PROCEDURE DelayC ticks IN Dl : LONGCARD ); 

Dabei sind ticks die Anzahl 1/50 Sekunden, die gewartet werden soll. 
Bitte verwenden Sie immer diese Funktion anstelle einer Warteschleife. 

ist wichtig, die Konstante als Array zu deklarieren und nicht nur als 
LONGINT, das sonst nur eine textuelle Ersetzung stattfindet und keine echte 
Konstante erzeugt wird. 


MyProcess, 
"Dummy", 
20000, 
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Die dos.library besitzt noch viele andere Fnnktionen, die Record- 
Locking (wichtig für Datenbanken), PatternMatching, Händler & Pa- 
ckets, Datnm, Prozeßverwaltnng n. a. ermöglichen. Alle diese Fnnktio¬ 
nen nnd die dazngehörigen Strnktnren zn erklären, sprengt den Rahmen 
dieses Handbuchs. An dieser Stelle sei auf die Autodocs, das AmigaDOS- 
Manual und das Guru-Buch hingewiesen. 

5.4.9 T_Dos 

Falls Sie statt die Funktionen aus Dos, die aus dem Modul T_Dos ver¬ 
wenden, erhalten Sie bei jedem Dos-Fehler eine entsprechende Excep- 
tion. Außerdem sorgt T_Dos dafür, das alle Resourcen, die mit diesem 
Modul geöffnet wurden, auch wieder geschlossen werden. Es folgt eine 
Auflistung der in TJDos definierten Euktionen, mit deren Unterschied zur 
jeweiligen Originalfunktion: 

Open Öffnet Eiles, hängt sie in die Resourceverwaltung ein, so daß sie 
wieder automatisch geschlossen werden. Löst bei Eehlern Excep- 
tions aus. 

Close Schließt Eiles, trägt sie aus der Resourceliste aus. 

Read Wie das normale Read, löst entsprechende Exception aus unter 
anderem EOF, wenn über das Eileende hinaus gelesen wird. 

Write Löst Exceptions bei Eehlern aus. 

CreateDir Sorgt dafür, daß der Lock, den man erhält wieder freigege¬ 
ben wird. Löst Exceptions im Eehlerfall aus. 

CurrentDir Trägt das neue aktuelle Verzeichnis aus der Resourceliste 
aus, den vorherigen in dieselbe ein, so wird dafür gesorgt, daß der 
Lock auf das aktuelle Verzeichnis nicht freigegeben werden kann. 
Löst Exceptions im Eehlerfall aus. 

ParentDir, DupLock, Lock Sorgt dafür, daß der Lock, den man erhält 
wieder freigegeben wird. Löst Exceptions im Eehlerfall aus. 

Unlock Gibt einen Lock wieder frei, und trägt ihn aus der Resource¬ 
verwaltung aus. 
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Sie können auch alle anderen Bezeichner aus Dos von T_Dos importieren, 
diese Verhalten sich jedoch genauso wie wenn Sie sie aus Dos importiert 
hätten. 

Bei der Verwendung vonT_Dos wird übrigens am Programmende wie¬ 
der das aktuelle Verzeichnis gesetzt, das am Anfang gesetzt war, dies ist 
dann wichtig, wenn ein Programm direkt von der Shell gestartet wird. 

Achtung: Mischen Sie niemals Prozeduren aus Dos und TJDos mi¬ 
teinander, ein Kurztrip nach Indien wäre Ihnen sonst sicher. Das heist 
nicht, daß in einem Programm nicht beide Module verwendet werden 
dürfen, lediglich sollte man nie eine Resource, die mit einem Modul be¬ 
legt wurde mit dem anderen wieder freigeben, da sonst die Resourcever- 
waltung ins schlingern kommt. 
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5.5 Intuition &; GadTools, Herren der Maus 
und Gadgets 

Dieses Kapitel versucht einen Überblick über die Programmierung der 
grafischen Benutzeroberfläche des Amiga zu geben. Mehr als ein Überblick 
kann es nicht werden, da dieses Thema im RKM Libraries über 400 Sei¬ 
ten einnimmt. Jedem, der sich intensiver damit befassen will, sei dieses 
Buch dringend empfohlen. 

5.5.1 Screens 

In einem Multitaskingsystem wie dem Amiga besteht das Problem, daß 
mehrere Programme gleichzeitig Ausgaben auf den Bildschirm machen 
können. Dies läßt sich im begrenzten Umfang mit Windows lösen, doch 
ist oft nicht erwünscht, daß man bei seinem Programm ständig noch 
Fenster von anderen Programmen im Blickfeld hat, außerdem wird es 
spätestens dann unmöglich, wenn ein Programm eine andere Auflösung 
als ein anderes beansprucht. Im Grunde genommen müßte man mehrere 
Bildschirme besitzen. 

Dies ist jedoch kostenmäßig keinem normalen Benutzer zuzumuten, 
außerdem müßte dann auch die gesammte Videologik, die für den Bil¬ 
daufbau zuständig ist, mehrmals vorhanden sein. 

Das Zauberwort heißt virtuelle Bildschirme oder Screens. Das heißt, 
der Computer simuliert mehrere Bildschirme. Diese liegen hintereinan¬ 
der, lassen sich aber verschieben und können sich auch so überlappen, 
daß man von mehreren Screens jeweils einen Teil sieht. 

Auf jedem Screen können Fenster geöffnet und unterschiedliche Aufiösunge 
und Farben verwendet werden. Die meisten Screens lassen sich über 
Gadgets rechts oben wie Windows nach vorne oder hinten klicken. Durch 
Drücken von der rechten Amigataste und „n“ kann man die Workbenchs- 
creen nach vorne, durch die linke Amigataste und „m“ nach hinten 
schalten. Es gibt einen Standard-Screen, den jedes Programm benut¬ 
zen kann. Dieser Screen, der „Default Public Screen“, ist normalerweise 
der Workbench-Screen. Dies kann jedoch geändert werden. Darüber hi¬ 
naus kann man auf jedem anderen Public Screen ein Fenster öffen. Mehr 
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dazu im Kapitel über Windows. 

Seit OS 2.0 wird ein Screen mit der Funktion OpenScreenTags () 
geöffnet und mit CloseScreenO wieder geschlossen. 


12 


PROCEDURE OpenScreenTags(newScreen IN AO : NewScreenPtr; 

tagList IN Al : LIST OF ScreenTag 
) : ScreenPtr; 


Der erste Parameter ist ein Zeiger auf eine 1.3 kompatible NewScreen- 
Struktur, den man nicht benötigt und deshalb auf NIL setzen sollte. 
Diese Tags gibt es: 

left, top : LONGINT; 

Diese beiden Tags beschreiben die linke und obere Ecke des Screens. 
Normalerweise gibt man diese Tags nicht an, da automatisch die 
richtigen Vorgabewerte benutzt werden. 

width, height : LONGINT; 

Die Breite und Höhe des Screens muß auch nicht angegeben wer¬ 
den, da auch hier sinnvolle Vorgabewerte benutzt werden. Diese 
Werte hängen vom Overscan und der gewählten DisplayfD ab. 

depth : LONGINT; 

Die Anzahl der Bitplanes, die der Screen bekommen soll. Dadurch 
werden Farben möglich (Ausnahme: HAM und EHB). Vor¬ 

gabewert ist hier 1. 

detailPen, blockPen : LONGCARD; 

Diese beiden Tags werden nicht benötigt, da ihre Aufgabe durch 
den pens-Tag übernommen wurde. 

title : SysStringPtr; 

Zeiger auf den Titel des Screens. 

alternativ kann hier die Fnnktion OpenScreenTagList 0 verwendet wer¬ 
den, die ein Array von Tags übergeben bekommt 
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colors: ColorPtr; 

Hier kann man die Farben des Screens angeben. Der übergebene 
Wert ist ein Zeiger anf ein Array von ColorSpec-Strnktnren, die 
von einer solchen Strnktnr mit dem colorIndex -1 beendet wird. 

errorCode : ErrorTypePtr; 

Diese Tag erlanbt es, näheres über die Gründe zn erfahren, wa- 
rnm der Screen nicht geöffnet werden konnte. An dieser Stelle 
trägt man einen Zeiger anf eine Variable vom Typ ErrorType ein, 
in der nach einem fehlgeschlagenem OpenScreenTags die genaue 
Fehlerursache eingetragen wird. 

font : TextAttrPtr; 

Der Font des Screens. Normalerweise sollte man jedoch die Wünsche 
des Benutzers respektieren und den Tag sysFont verwenden. 

sysFont : FontPrefs; 

oldDefaultFont öffnet einen Screen mit einem nicht-proportio¬ 
nalen Font. wbScreenFont erlaubt auch proportionale Fonts. 

type : ScreenFlagSet; 

Dieser Tag wird nicht benötigt. 

bitMap : BitMapPtr; 

Durch diesen Tag kann man dem Screen eine selbsterstellte Bitmap 
mit auf den Weg geben. 

pubName : SysStringPtr; 

Durch diesen Tag wird ein Screen zum „Public Screen“. Das 
bedeutet, daß auch andere Programme ihre Fenster auf diesem 
Screen öffnen dürfen. Man sollte einen Screen möglichst immer 
Public machen. Wenn der Screen geöffnet wurde, kann man ihn 
mit PubScreenStatus(Screen,0) wirklich öffentlich machen, na¬ 
chdem man mit eigenen Initialisierungen (z. B. öffnen eines Backdrop- 
Windows) fertig ist. Der Name des Screens darf nicht zweimal Vor¬ 
kommen. Er sollte dem ARexx-Port-Namen und damit dem ab¬ 
gekürzten Programmnamen in Großbuchstaben entsprechen. Näheres 
findet man im User Interface Style Guide. Dieser Tag muß vor 
pubSig und pubTask angegeben werden. 
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pubSig : TaskSignals; 

Die Nummer eines mit AllocSignal() allozierten Signals, das bei 
dem in pubTask angegebenen Task gesetzt werden soll, sobald das 
letzte Window auf dem Screen geschlossen wird. 

pubTask : TaskPtr; 

Der Task, an den das in pubSig angegebene Signal geschickt wer¬ 
den. Bitte mit FindTaskO ermitteln, nicht aus der ExecBase 
auslesen. 

displaylD : LONGINT; 

Dieser Tag ist sehr wichtig. Er gibt den Anzeigemodus an. Eine 
Liste der möglichen Modi kann man aus der Datenbank der gra- 
phics.library erhalten. Man sollte dem Benutzer ermöglichen, mit 
einem ScreenMode-Requester aus allen möglichen Modes auszuwählen. 

Einen solchen Requester bieten die asl. library und die reqtools . library 
jeweils ab Version 38. Die mit der jetztigen Harware möglichen 
Modi findet man in Graphics . def. 

Beispiel: ntscMonitorID + hireslaceKey steht für einen Hires- 
Interlace-NTSC-Screen. Eine sinnvolle Alternative zu einem Screenmode- 
Requester ist die Übernahme des Modes des Default Public Screens. 

Wie man dies bewerkstelligt, sieht man im Demo-Programm. 

dClip : RectanglePtr; 

Mit diesem Tag kann man den Bildschirmausschnitt festlegen, in 
dem der Screen erscheint. Man sollte jedoch besser den overScan- 
Tag verwenden. 

overScan : OScanType; 

Hier hat man die vier Möglichkeiten text, Standard, max und 
Video. Die ersten beiden Größen kann man mit den Overscan- 
Preferences einstellen. Default ist text. 

showTitle : LONGBOOL; 

Mit diesem Tag kann man bestimmen, ob der Screen-Titelbalken 
vor oder hinter sogenannten backdrop-Windows erscheinen soll. 
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behind : LONGBOOL; 

Mit diesem Tag kann man erreichen, daß der Screen hinter allen 
anderen geöffnet wird. 

quiet : LONGBOOL; 

Normalerweise zeichnet Intnition einen Titelbalken nnd das Tiefen- 
Gadget. Mit diesem Tag kann man dies verhindern. 

autoScroll : LONGBOOL; 

Durch diesen Tag scrollt ein übergroßer Screen automatisch, falls 
man mit dem Mauspfeil gegen den Rand des Bildschirms stößt. 

pens : PenArrayPtr; 

In dem hier anzugebenden Array werden die Pens in dieser Rei¬ 
henfolge angegeben: detailPen, blockPen, textPen, shinePen, sha- 
dowPen, fillPen, fillTextPen, backgroundPen, highLightTextPen. 
Der Array wird von $FFFF abgeschlossen. Um die Vorgabewerte 
zu erhalten, sollte man einen Array übergeben, der nur aus einen 
einzigen Wert ($FFFF) besteht. Dies ist Voraussetzung für den 
seit 2.0 eingeführten 3D-Look. 

fullPalette: LONGBOOL; 

Normalerweise werden von Intuition nur die Farben 0—3 und 17—19 
gesetzt. Durch diesen Tag wird es möglich, alle Farben setzen zu 
lassen. 

Nach dieser zugegebenermaßen langen Beschreibung, ein kleines Beispiel¬ 
programm, das Licht ins Dunkel bringt und dabei auch noch zeigt, wie 
man die Eigenschaften des Default Public Screens kopieren kann. Außer¬ 
dem wird die Funktion EasyRequest () vorgestellt, mit der man sehr 
einfach Requester erzeugen kann. 

MODULE ScreenDemo; 

FROM Strings IMPORT Str; 

IMPORT Intuition AS I, 

Dos AS d, 

Graphics AS g, 

Utility AS u; 
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VAR 


DefPubScreen, 
Screen 
Drawinfo 
ModelD 
Font 

FontName 

PROCEDURE Assert 
VAR 


I.ScreenPtr; 

I.DrawInfoPtr; 

LONGINT; 
g.TextAttr; 

STRING(32); 

(c: BOOLEAN; REF txt : STRING); 


es : I.EasyStruct; 

BEGIN 

IF NOT c THEN 

es := I.EasyStruct:(structSize = I.EasyStruct’SIZE, 

title = "Screen Demo", 

gadgetFormat = "Abort"); 
es.textFormat := txt.data’PTR; 

FORGET I.EasyRequest (NIL, es’PTR, NIL); 

HALT (20); 

END; 

END Assert; 


BEGIN 

DefPubScreen := I.LockPubScreen (NIL); 

Assert (DefPubScreen # NIL, "Unable to lock default Public Screen"); 

Drawinfo := I.GetScreenDrawInfo (DefPubScreen); 

Assert (Drawinfo # NIL, "Unable to get Drawinfo"); 

ModelD := g.GetVPModelD (DefPubScreen.viewPort’PTR); 

Assert (ModelD # g.invalidID, "Unable to get ModelD"); 

Font.ySize := Drawinfo.font.ySize; 

Font.style := Drawinfo.font.style; 

Font.flags := Drawinfo.font.flags; 

FontName :=Str(Drawinfo.font.name); 

Font.name := FontName.data’PTR; 

IF Drawinfo # NIL THEN 
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I.FreeScreenDrawInfo (DefPubScreen, Drawlnfo); Drawinfo := NIL; 
END; 

Screen := I.OpenScreenTags (NIL, 


width 

DefPubScreen.width, 

height 

DefPubScreen.height, 

depth 

Drawlnf o.depth, 

overScan 

I.text, 

autoScroII 

TRUE, 

pens 

Drawlnf o.pens, 

f ont 

Font’PTR, 

dispIaylD 

ModelD, 

title 

"Cloned Screen", 

pubName 
DONE); 

"SCRDEMO", 


Assert (Screen # NIL, "Unable to open Screen"); 

I Hier wird der Screen öffentlich 
FORGET I.PubScreenStatus (Screen, 0) 

d.Delay (5 * 50); I Warten 
CLOSE 

IF DefPubScreen # NIL THEN 

I.UnlockPubScreen (NIL, DefPubScreen); DefPubScreen := NIL; 

END; 

IF Screen # NIL THEN 

WHILE NOT I.CIoseScreen (Screen) DO 

I Falls der Screen nicht geschlossen werden konnte: 

FORGET I.EasyRequest (NIL, 

I.EasyStruct:(structSize = I.EasyStruct’SIZE, 

title = "Screen Demo", 

textFormat = "Please dose all visitor Windows" 

gadgetFormat = "So I did")’PTR, 

NIL) ; 

END; 

Screen := NIL; 

END; 
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END ScreenDemo. 

Den so geöffneten Screen kann man mit ein paar Funktionen beeinflussen: 

5.5.1.1 Screenfunktionen 

PROCEDURE ShowTitle(screen IN AO: ScreenPtr; 

showlt IN DO: BOOLEAN); 

Mit dieser Funktion kann man nachträglich ändern, ob der Screen-Titelbalken 
vor oder hinter backdrop-Windows erscheinen soll. 

PROCEDURE ScreenToFront(screen IN AO: ScreenPtr); 

PROCEDURE ScreenToBack(screen IN AO: ScreenPtr); 

Bringt den Screen vor bzw. hinter alle anderen Screens. 

PROCEDURE MoveScreen(screen IN AO: ScreenPtr; 

dx IN DO: INTEGER; 
dy IN Dl: INTEGER); 

Mit dieser Prozedur kann man Screens unter Programmkontrolle ver¬ 
schieben. 

Weitere wichtige Screen-Funktionen: 

PROCEDURE DispIayBeep(screen IN AO: ScreenPtr); 

Das sicher jedem bekannte Aufblitzen eines Screens kann mit dieser Pro¬ 
zedur ausgelöst werden. 

PROCEDURE GetScreenDrawInfo(screen IN AO: ScreenPtr):DrawInfoPtr; 

Mit dieser Funktion kann man Informationen über einen geöffneten Screen, 
wie z. B. den benutzten Font einholen. Die Drawinf o-Struktur findet 
man in Intuition. def. Es ist zu beachten, daß die enthaltenen Infor¬ 
mationen nur solange gültig sind, wie der Screen geöffnet bleibt. Dies 
muß ggf. mit LockPubScreenO sichergestellt werden. Die Drawlnfo- 
Struktur muß nach Gebrauch wieder freigegeben werden. 
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PROCEDURE FreeScreenDrawInfo(screen IN AO: ScreenPtr; 

drawinfo IN Al: DrawinfoPtr); 

Gibt eine Drawinfo Struktur frei. Der Zeiger wird dadurch ungültig. 
Speziell für Public Screens sind diese Funktionen von Bedeutung: 

PROCEDURE LockPubScreen (name IN AO: SysStringPtr): ScreenPtr; 

Um auf die Screen-Struktur eines Public Screens zugreifen zu können 
muß man sicherstellen, daß dieser Screen nicht geschlossen wird. Dies 
wird mit dieser Funktion erreicht. Sie bekommt den Namen des Public 
Screens oder NIL für den Default Public Screen übergeben. Falls das 
Ergebnis NIL ist, so existiert der Public Screen nicht. Um ein Window 
auf einem Public Screen zu öffnen, geht man normalerweise so vor: 

LockPubScreen() 

Untersuchung der Screen-Struktur und Anpassung 
(Größe, Font) des Windows 
an diesen Screen 

OpenWindowO 
UnlockPubScreen() 

Arbeiten mit dem Window 

CloseWindowO 

PROCEDURE UnIockPubScreen(name IN AO: SysStringPtr; 

screen IN Al: ScreenPtr); 

Hiermit wird der Public Screen wieder freigegeben. Der ScreenPtr ist 
danach ungültig und sollte auf NIL gesetzt werden. 
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5.5.2 Windows 

Mit einem Screen an sich kann man eigentlich nichts vernünftiges anfan¬ 
gen. Er dient vielmehr als Grnndlage für Windows. Der Screen bestimmt 
die Anzahl der Farben, die Farben selbst, sowie die Anflösnng, die den 
Windows anf diesem Screen znr Verfügnng steht. 

Falls man ein Window öffnen will, mnß man sich entscheiden, ob 
man dieses Window anf dem Defanlt Pnblic Screen (normalerweise die 
Workbench), einem frei wählbaren Pnblic Screen oder einem eigenen 
Screen öffnen will. Normalerweise sollte man hier dem Benntzer, wie im 
Interface Style Gnide vor geschlagen, die freie Wahl lassen. Znm Öffnen 
eines Fensters dient die Prozednr OpenWindowTags(); 

PROCEDURE OpenWindowTags(newWindow IN AO: NewWindowPtr; 

tagList IN Al: LIST OF WindowTags 
):WindowPtr; 

Der erste Parameter ist analog zn OpenScreenTags () ein Zeiger auf eine 
1.3 kompatible NewWindow-Struktur, den man auf NIL sezten sollte. 
Die möglichen Tags sind: 

5.5.2.1 WindowTags 

left, top, width, height : LONGINT; 

Mit diesen vier Werten bestimmt man die Ausmaße des Windows. 
Hierbei ist besonders darauf zu achten, daß man sich mit den Aus¬ 
maßen des Windows an den Font und die Auflösung des Screens 
anpaßt, auf dem das Window geöffnet wird. Windows, die den 
ganzen Screen ausfüllen ohne die Titelzeile zu verdecken, sollten 
diese Ausmaße haben: 

left = 0; top = Screen''.barHeight+1; 
width = Screen''.width; 

height = Screen''.height-(Screen''.barHeight+1) . 

Ansonsten muß man darauf achten, daß man mit verschiedenen 
Fonts zurecht kommt. Eine einfache Methode unabhängig vom 
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Font im Fensterinneren einen verwendbaren Bereich einer bes¬ 
timmten Größe zu erhalten bieten die Tags innerWidth und innerHeight, 
die man anstelle von width und height verwenden kann. Will 
oder kann man diese jedoch nicht verwenden, so erhält man mit 
Screen'' .barHeight-Screen''. barVBorder+Screen'' .wBorTop 
die Größe der Window-Titelzeile und mit Screen''. wBorLeft, 
Screen''. wBorRight und Screen''. wBorBottom die Größe der an¬ 
deren Fensterränder. 

minWidth, minHeight : LONGINT; maxWidth, maxHeigth : LONGCARD; 
Falls das Window in der Größe veränderbar ist, werden hier die mi¬ 
nimalen und maximalen Ausmaße angegeben. Die Maximalwerte 
können auch -1 sein, was bedeutet, daß das Window beliebig groß 
werden darf. 

innerWidth, innerHeigth : LONGINT; 

Diese beiden Tags kann man anstelle von width und height ver¬ 
wenden. Sie vereinfachen das fontsensitive Programmieren, da 
man mit ihnen die innere Größe des Windows angeben kann und 
sich somit nicht um die Breite und Höhe der Fensterrahmen kümmern 
muß. Durch diesen Tag wird die Benutzung von eigenen Gadgets 
im Fensterrand sehr eingeschränkt. 

detailPen, blockPen : LONGCARD; 

Diese beiden Tags sind auf NewLook-Screens, welche unter OS 2.0 
Standard sind, überflüssig. 

IDCMP : IDCMPFlagSet; 

flags : WindowFlagSet; 

Diese beiden FlagSets werden in einem eigenen Abschnitt erklärt. 
sizeGadget, dragBar, depthGadget, closeGadget, 
backDrop, reportMouse,noCareRefresh, 
borderless, activate, RMBTrap, 
wBenchWindow,simpleRefresh, smartRefresh, 
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sizeBRight, sizeBBotton,gimmeZeroZero : LONGBOOL; 

Diese Tags entsprechen einzelnen Bits im WindowFlagSet. Sie 
werden in dem entsprechenden Abschnitt erklärt. 

autoAdjust : LONGBOOL; 

Mit diesem Tag erlaubt man Intuition, die Position und Größe des 
Windows zu ändern, damit es auf den Screen paßt. 

menuHelp : LONGBOOL; 

Durch diesen Tag wird des IDCMPFlag menuHelp zum Leben er¬ 
weckt. Näheres im entsprechenden Abschnitt. 

gadgets : GadgetPtr; 

Hier wird das erste einer Liste eigener Gadgets eingetragen. 

checkmark : ImagePtr; 

Wenn es unbedingt sein muß, kann man dem Menühaken ein ei¬ 
genes Aussehen geben. 

title : SysStringPtr; 

Der Titel des Windows. 

screenTitle : SysStringPtr; 

Der Titel, den der Screen bekommen soll, falls das Window aktiv 
ist. 

customScreen : ScreenPtr; 

Falls man das Window auf einem eigenen Screen öffnen will, so 
muß man hier einen Zeiger auf diesen angeben. 

pubScreenName : SysStringPtr; 

Soll das Window auf einem Public Screen geöffnet werden, so muß 
man hier dessen Namen angeben. 

pubScreen : ScreenPtr; 

Anstelle von pubScreenName kann man auch diesen Tag verwen¬ 
den, falls man einen gültigen Zeiger auf diesen PubScreen hat. 
Der Zeiger ist nur gültig, falls man schon ein Window auf diesem 
Screen offen hat oder ihn mit LockPubScreenO gesichert hat. 
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pubScreenFallBack : LONGBOOL; 

Dieser Tag ermöglicht es Intuition das Fenster auf dem Default 
Public Screen zu öffnen, falls der gewünschte Public Screen nicht 
vorhanden ist. 

superBitMap : BitMapPtr; 

Mit diesem Tag kann man dem Window eine selbsterstellte Bit¬ 
map zuweisen, die auch größer als die maximale Größe des Win¬ 
dows sein kann. Näheres kann aus Platzgründen hier nicht erklärt 
werden. 

Zoom : IBoxPtr; 

Mit diesem Tag kann man die Position und Größe bestimmen, die 
das Window nach dem Anklicken des Zoom-Gadgets bekommen 
soll. Durch diesen Tag bekommen auch Windows ohne Sizing- 
Gadget ein Zoom-Gadget. 

mouseQueue, RPTQueue : LONGINT; 

Falls das Programm Mausbewegungen und Tastendrücke nicht 
schnell genug bearbeiten kann, so kann mit diesen Tags angegeben 
werden, wieviele dieser Nachrichten maximal aufgestaut werden 
sollen. 

backFill : HookPtr; 

Hier kann man eine Prozedur angeben, die verwendet wird, um 
den Hintergrund des Windows zu füllen. Die Einzelheiten werden 
in diesem Handbuch jedoch nicht geklärt. Näheres ündet man wie 
immer im RKM Libraries. 


5.5.2.2 Window-Flags 

Folgende Flags in dem Tag f lags können gesetzt werden: 

windowSizing, windowDrag, windowDepth, windowClose 

Mit diesen Bits kann man bestimmen, welche System-Gadgets das 
Window bekommen soll. Ohne guten Grund sollte ein Window 
mindestens alle bis auf windowSizing haben. 
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sizeBRight, sizeBBottom 

Falls das Window ein Size-Gadget besitzt kann man bestimmen, 
ob dieses den rechten, den nnteren oder beide Rahmen des Fensters 
belegen soll. 

simpleRefresh 

Normalerweise restanriert Intnition den Inhalt von Fenstern au¬ 
tomatisch, wenn diese von anderen Fenstern überlagert werden. 
Durch dieses Bit spart man Speicher, ist aber selbst dafür verant¬ 
wortlich, den Fensterinhalt zu restaurieren, falls man die entspre¬ 
chenden IDCMP-Messages bekommt. 

superBitMap 

Das Window hat eine mit dem Tag superBitMap angegebene Bit¬ 
map. 

backDrop 

Das Window hegt immer hinter allen anderen Windows. Es darf 
kein Tiefen-Gadget haben. Dieses Flag sollte nur in Verbindung 
mit dem Flag borderLess und Fenstern, die den ganzen Hinter¬ 
grund eines eigenen Screens abdecken, benutzt werden. Wird 
gerne verwendet, wenn ein Programm direkt auf einem eigenen 
Screen ohne Fenster arbeiten soll, aber dennoch Benutzereinga¬ 
ben verarbeitet werden sollen. 

borderless 

Das Window hat keinen Rahmen. Es darf deshalb auch keine 
System-Gadgets haben. Weiteres siehe backDrop. 

reportMouse 

Ealls man die Mausbewegungen mitbekommen möchte muß man 
dieses Elag setzen. 

gimmeZeroZero 

Ein Eenster, bei dem dieses Elag gesetzt ist, erhält einen getrenn¬ 
ten RastPort für den Eensterrahmen und für den Eensterinhalt. 
Dadurch kann man einfach in das Eenster zeichnen, ohne sich 
um die Rahmengröße zu kümmern, denn die Position (0/0) ist 
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immer die linke, obere Ecke des Fensterinhaltes. Dieses Flag 
sollte man aus verschiedensten Gründen nach Möglichkeit nicht 
verwenden, vor allem, da dieser Fenstertyp viel Systemperfor¬ 
mance verschlingt. Falls möglich sollte man die ClipRects der 
graphics. library verwenden. 

activate 

Das Window wird beim Offenen aktiviert. 
rmbTrap 

Dieses Flag verhindert die Menüauswahl durch die rechte Maus¬ 
taste. Man bekommt stattdessen eine mouseButtons-IDCMP- 
Message, falls dies gewünscht wird. Man sollte dieses Flag für 
alle Windows ohne Menüs setzten. 

noCareRefresh 

Falls man die Grafik im Window nicht erneuern will, wenn sie 
durch andere Windows verdeckt wurde, so kann man dieses Flag 
setzten. Man ist dadurch auch davon befreit, sich um die IDGMP- 
Message refreshWindow zu kümmern. 

Alle Flags existieren auch als getrennte Tags vom Typ LONGBOOL. 
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5.5.2.3 Der IDCMP 

Die Kommunikation zwischen Intuition und einem Anwenderprogramm 
läuft normaleweise über den Message-Port eines Windows. 

Um zu erfahren, was der Benutzer mit einem Fenster, sowie dessen 
Menüs und Gadgets anstellt, werden zu jeder dieser Aktionen Messages 
verschickt, falls dies gewünscht wird. Die Message hat immer die gleiche 
Struktur: 

IntuiMessage = RECORD OF Message 


dass 

IDCMPFlagSet; 

Code 

CARDINAL; 

qualifier 

QualifierSet; 

iAddress 

mouseX, 

ANYPTR; 

mouseY 

seconds, 

INTEGER; 

micros 

LONGCARD; 

idcmpWindow 

WindowPtr; 

specialLink 

END; 

IntuiMessagePtr 


Die Felder im einzelnen: 

dass Gibt an, um welche Art vom Ereignis es sich handelt. Die möglichen 
Bits werden weiter untern erklärt. 

Code Je nach dass hat dieses Feld eine andere Bedeutung. Diese Be¬ 
deutung wird bei dem entsprechenden Flag erklärt. 

qualifier Mit Hilfe dieses Feldes kann man herausfinden, ob z. B. die 
Shift- und/oder Gtrl-Taste gedrückt ist. Näheres s. u. 

iAddress Ähnlich wie bei code hängt die Bedeutung dieses Feldes von 
der Art der Message ab. Man sollte deshalb nie auf diesen Zeiger 
zugreifen, bevor man nicht dass geprüft hat. Bei gadgetUp und 
gagdetDown enthält iAddress einen GadgetPtr. Bei rawKey ei¬ 
nen Zeiger auf Information für Dead-Keys und bei idcmpUpdate 
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einen Zeiger anf eine Tag-Liste. Bei allen anderen Messages ist 
der iAddress-Zeiger nngültig. Also Vorsicht! 

Wird jedoch GetlMsgO aus der gadtools. library verwendet, 
um die Messages abzuholen, so enthalten auch Messages vom Typ 
mouseMove in iAddress einen Zeiger auf ein Gadget. Dies ist 
jedoch nur im Falle von GetlMsgO der Fall. Also Vorsicht! 

mouseX, mouseY Diese beiden Variablen beinhalten die Koordina¬ 
ten des Mauspfeils relativ zur linken oberen Ecke des Windows. 
Achtung: Auch bei gimmeZeroZero-Fenstern sind die Koordina¬ 
ten relativ zur linken, oberen Ecke des Eensters und nicht zu der 
der Zeichenfläche. Das IDCMPElag deltaMove verändert dieses 
Verhalten. Näheres bei der Erklärung zu diesem Elag. 

seconds, micros Die abgelaufenen Sekunden und Mikrosekunden seit 
dem 0L0L1978. 

idcmpWindow Ein Zeiger auf das Eenster, zu dem diese Message gehört. 
specialLink Dieses Eeld ist nur für Intuition bestimmt. 

Wie bereits angedeutet, enthält dass die Art des Ereignisses. Dabei ist 
zu beachten, daß nur die Ereignisse dem Eenster gemeldet werden, deren 
Elags im Tag IDCMP gesetzt worden sind. Damit ist sichergestellt, daß 
das Programm nur die Benutzereingaben erhält, die für es von Interesse 
sind. 

Hier eine geordnete Übersicht über alle IDCMPElags: 

5.5.2.3.1 Mausabfrage: 

mouseButtons Diese Art von IntuiMessage informiert über Klicks mit 
den zwei (oder drei) Maustasten. In code ist die Information 
enthalten, welche Maustaste gedrückt oder losgelassen wurde. Die 
möglichen Werte sind in Input.def definiert: 

IButton Die linke MausTaste wurde gedrückt. 
mButton Die mittlere Maustaste wurde gedrückt. 
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rButton Die rechte Maustaste wurde gedrückt. Falls man auch 
etwas von der rechten Maustaste mitbekommen möchte, sollte 
man das WindowFlag rmbTrap setzen. 

Addiert man zu diesen Konstanten die Konstante upPrefix aus 
Input, erhält man die Werte für Code, wenn die entsprechende 
Taste losgelassen wurde. 

mouseMove Durch dieses Flag bekommt man alle Bewegenungen der 
Maus mit. Die aktuellen Koordinaten stehen in den entsprechen¬ 
den Felder der IntuiMessage-Struktur. 

deltaMove Dieses Flag steht für keine eigene IntuiMessage-Art. Es 
ändert nur Bedeutung der mouseX- und mouseY-Felder der In- 
tuiMessages. Diese haben dann nur noch bei mouseMove oder 
mouseButtons Werte ungleich 0. Diese Werte beschreiben die Po¬ 
sition der Maus reativ zur letzten Message dieser Art. 

5.5.2.3.2 Gadget-Abfrage: 

gadgetDown Ein Gadget wurde angeklickt. In iAddress steht die 
Adresse dieses Gadgets. 

gadgetUp Ein Gadget wurde wieder losgelassen. In iAddress steht die 
Adresse dieses Gadgets. 

closeWindow Der Benutzer hat das Close-Gadget des Windows an¬ 
geklickt. 

5.5.2.3.3 Menü-Abfrage: 

menuPick Es wurde (möglicherweise) eines oder mehrere Menu-Items 
ausgewählt. Näheres dazu im Abschnitt über Menüs. 

menuHelp Ealls das WindowElag menuHelp gesetzt wurde, bekommt 
man diese Message geschickt, wenn der Benutzer die Help-Taste 
drückt, während sich der Mauspfeil über einem Menü befindet. 
Das Menü findet man wie bei menuPick heraus. 
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menuVerify Ist dieses Flag gesetzt, erwartet Inituition eine Bestäti¬ 
gung des Programms, ob das Menü in diesem Moment gezeichnet 
werden darf oder nicht. Das code-Feld ist entweder menuWaiting, 
falls ein anderes Window auf dem selben Screen ein Menü aufk¬ 
lappen will, menuHot, falls das Menu des eigenen Windows aus¬ 
geklappt werden soll. Durch ändern dieses Feldes auf menuCancel 
wird die Menüoperation abgebrochen. Man bekommt dann er¬ 
satzweise eine mouseButtons-Message geschickt. Wie alle Verify- 
Messages muß diese Message sehr schnell bearbeitet und an Intui¬ 
tion zurückgeschickt werden. Während man sich Verify-Messages 
schicken läßt, darf man z. B. keine DOS-Funktionen aufrufen, da 
diese Requester hervorrufen können. Damit würden sich das Pro¬ 
gramm, da es auf die Verify-Message nicht antworten kann und 
Intuition, das keine Antwort bekommt, gegenseitig blockieren. De¬ 
shalb sollte man Verify-Messages nur verwenden, wenn sie wirklich 
nötig sind und sie mit ModifylDCMPO ausschalten, falls man ir¬ 
gendwelche Aktionen durchführt, die DOS-Operationen und/oder 
das Offnen von Requestern nach sich ziehen könnten. 

5.5.2.3.4 Requester: 

reqSet, reqClear, reqVerify Diese drei Flags beschäftigen sich mit 
echten Requestern, die viele Nachteile haben und deshalb besser 
nicht verwendet werden. 

5.5.2.3.5 Window: 

newSize Die Größe des Windows wurde möglicherweise verändert. 

refreshWindow Falls es sich bei dem Fenster um kein Smartrefresh- 
Window handelt, und der Inhalt des Windows von einem an¬ 
deren Window überlagert wurde, bekommt man diese Message 
geschickt. Man muß dann mindestens die Intuition Funktionen 
BeginRefreshO und EndRefreshO aufrufen. Falls nötig kann 
man zwischen diesen beiden Funktionen auch mit Funktionen der 
graphics.library den Inhalt des Windows restaurieren. Werden 
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GadTools-Gadgets verwendet, so müssen die entsprechenden Funk¬ 
tionen aus der gadtool. library verwendet werden. Durch das 
WindowFlag noCareRef resh kann man sich von der IDGMP-Message 
ref reshWindow befreien, falls man keinen eigenen Window-Refresh 
durchführen will. 

sizeVerify Durch diese Message bekommt man mittgeteilt, daß der Be¬ 
nutzer beabsichtigt, die Größe des Fensters zu verändern. Das Pro¬ 
gramm hat nun die Möglichkeit dies zuzulassen, indem es die Mes¬ 
sage einfach zurückschickt oder es zu verhindern, indem es zuvor 
in das code-Feld der Message okCancel einträgt. Einige wichtige 
Anmerkungen zu den Verify-Messages stehen unter menuVerify. 

activeWindow, inactiveWindow So erfährt man, ob das Window 
aktiviert/deaktiviert wurde. 

5.5.2.3.6 Tastatur ab frage: 

vanillaKey Es wurde eine Taste gedrückt, der ein ASGII-Gode zugeord¬ 
net werden kann. Dieser Gode findet sich im code-Eeld. 

rawKey Mit diesem IDGMP-Elag kann man auch Tastendrücke für 
Tasten wie El oder ESG empfangen. In code-Eeld seht der Tasten¬ 
code der zu dieser Taste gehört. ESC = $45, Fl-FlO = $50-$59, 
DEL = $46, Help = $5F, Backspace = $41, Tab = $42. 

Die Gursortasten sind sind in Intuition als Konstanten definiert. 
Mit der Eunktion MapRawKeyO aus der keymap.library kann man 
diese Tastencodes, falls möglich, nach ASGII umwandeln. Beispiel 
folgt gleich. 

Das folgende Beispiel zeigt, wie eine Tastaturabfrage aussehen könnte: 

TYPE 

KeyType = (esc=$45,del,f1=$50,f2,f3,f4,f5,f6,f7,f8,f9,f10, 
help=$5F,normalkey,iiokey) ; 


VAR 

Code : CHAR; 
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event : InputEvent; 
Type : KeyType; 
m : IntuiMsgPtr; 


IF m.code OF 0..13 THEN 
Type:=KeyType(m.code) 

Code:=&0; 

ELSE 

event.code:=m.code; 

event.qualifier:=m.qualifier; 

event.eventAddress:=LongPtr(m.iAddress)"; 

IF MapRawKey(event’PTR,Code’PTR,1,NIL)=1 THEN 
Type:=NormaIKey 
ELSE 

Type:=NoKey; 

Code:=&0; 

END; 

END; 

Der Funktion MapRawKeyO wird ein InputEvent, ein Puffer, in den das 
konvertierte Zeichen geschrieben werden soll, die Länge des Puffers und 
eine Keymap übergeben. Ubergibt man für die Keymap NIL, wird die 
Standardtastaturbelegung verwendet. Als Ergebnis erhält man die An¬ 
zahl der konvertierten Zeichen, ist diese in unserem Eall ungleich 1, ließ 
sich das Zeichen nicht konvertieren. 

5.5.2.3.7 Verschiedenes: 

newPrefs Ist seit OS 2.0 nicht mehr sinnvoll. 

disklnserted, diskRemoved Es wurde eine Diskette eingelegt bzw. 
aus dem Laufwerk genommen. 

intuiTicks Diese Messages bekommt man ungefähr zehn mal pro Se¬ 
kunde geschickt, falls das Window aktiv ist. Es wird nur eine neue 
Message geschickt, falls die vorige bereits abgeholt wurde. 
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idcmpUpdate Diese Message hat mit sogenannten „BOOPSr‘-Gadgets 
zn tnn haben. Diese Art von Gadgets wird im RKM Libraries ge¬ 
nauer erklärt. 

changeWindow Diese Message bekommt man, falls sich das Window 
in Position oder Größe geändert hat. 

Noch einmal zur Erinnerung: Man erhält nur die Ereignisse gemeldet, 
deren IDGMP-Elags man beim Öffnen des Eensters angegeben hat. 

5.5.2.4 ID CMP-Abfrage 

Der IDGMP-Port ist ein ganz normaler Exec-Messageport, für den man 
die Eunktionen der exec.library verwenden kann. Eine Ausnahme gibt 
es, falls man GadTools-Gadgets oder Menüs verwendet. In diesem Eall 
muß man anstatt GetMsgO und ReplyMsgO aus Exec, die Eunktio¬ 
nen GetlMsgO und ReplylMsgO aus GadTools verwenden. Die Haupt¬ 
schleife eines Programms sieht eigentlich immer gleich aus. Es ist sehr 
wichtig, daß zuerst mit WaitO oder WaitPortO auf das Signalbit der 
Window-UserPorts gewartet wird und dann solange mit Get(I)Msg() 
die Messages abgeholt werden, bis diese Punktion NIL zurück gibt. 

Nach Get (DMsgO sollte man die wichtigen Werte aus der IntuiMessage- 
Struktur kopieren und die Message dann so schnell als möglich mit 
Reply(I)Msg() zurückschicken. Achtung, nachdem man die Message 
zurückgeschickt hat, darf man nicht mehr auf sie zugreifen. 

Da wir in unseren Beispielprogrammen nur GadTools verwenden, um 
Menus und Gadgets zu erstellen und Sie dies aus guten Gründen auch 
tun sollten, wird hier das Paar GetlMsgO/ReplylMsgO verwendet. 
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REPEAT 

WaitPort(Window.userPort); 

IMsg:=GetIMsg(Window.userPort); 

WHILE Imsg # NIL DO 
I 

I Kopieren der wichtigen Felder der IntuiMessage 

I 

ReplylMsg (IMsg) 

I 

I Auswerten der Message, ggf. Quit auf TRUE setzen 

I 

IMsg := GetlMsgCWindow.userPort) 

END; 

UNTIL Quit; 

5.5.2.5 Window-Funktionen 

Nachdem man ein Fenster geöffnet hat, bietet Intnition verschiedene 
Funktionen, um dieses zu bearbeiten. Hier die wichtigsten: 

PROCEDURE CloseWindow(window IN AO : WindowPtr); 

CloseWindowO schließt ein Fenster. 

PROCEDURE ActivateWindow(window IN AO : WindowPtr); 

Aktiviert ein Fenster. 

PROCEDURE ModifylDCMPCwindow IN AO : WindowPtr; 

flags IN DO : IDCMPFIagSet); 

Dient dazu die IDCMPFlags eines Windows zu verändern, flags sind 
dabei die neuen Flags. 


PROCEDURE MoveWindowC window IN AO 

dx IN DO 
dy IN Dl 


WindowPtr; 
LONGINT; 
LONGINT ); 
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Bewegt ein Fenster um dx Pixel in X-Richtung, dy-Pixel in Y-Richtung. 
PROCEDURE RefreshWindowFrameC window IN AO: WindowPtr ); 
Zeichnet den Rahmen eines Fensters neu. 

PROCEDURE SetWindowTitles( window IN AO: WindowPtr; 

windowTitle IN Al: SysStrPtr; 
screenTitle IN A2: SysStrPtr ); 

Setzt einen neuen Titel für das Fenster und einen neuen Screentitel, 
der dann angezeigt werden soll, wenn daß Fenster aktiv ist. Will man 
eine leere Titelleiste, muß man als Zeiger für den String NIL übergeben. 
Will man, daß einer der Titel beibehalten wird, muß man ANYPTR(-l) 
übergeben. 

PROCEDURE SizeWindowC window IN AO: WindowPtr; 

dx IN DO: LONGINT; 
dy IN Dl: LONGINT ); 

Verändert die Größe eines Windows um dx Pixel in der Breite und dy 
Pixel in der Höhe. Achtung: Diese Prozedur überprüft nicht die ihr 
übergebenen Werte. Sie müssen sich also selbst darum kümmern, daß 
diese möglich sind. Ansonsten kommt es zu einem Systemabsturz. 

PROCEDURE ChangeWindowBoxC window IN AO: WindowPtr; 

left IN DO: LONGINT; 

top IN Dl: LONGINT; 

width IN D2: LONGINT; 

height IN D3: LONGINT ); 

Mit dieser Prozedur kann man die Position und die Größe des Fensters 
auf einmal verändern. Zu beachten ist dabei, daß es sich diesmal um 
abslute Koordinaten handelt. 
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PROCEDURE WindowLimits( window IN AO: WindowPtr; 

widthMin IN DO: LONGINT; 
heightMin IN Dl: LONGINT; 
widthMax IN D2: LONGCARD; 
heightMax IN D3: LONGCARD ): LONGBOOL; 

Bei Fenstern mit einem Größengadget, kann man mit dieser Fnnktion 
nachträglich die Minimal- nnd Maximalgröße verändern. Wollen Sie ei¬ 
nen Wert nicht verändern, so übergeben Sie 0. Wollen Sie, daß das 
Fenster so groß wie die ganze Screen werden kann, übergeben Sie -1. 

PROCEDURE WindowToBackC window IN AO : WindowPtr ); 

Bringt ein Fenster hinter alle anderen anf den Screen, ausgenommen 
B ackdr opwindows. 

PROCEDURE WindowToFront( window IN AO : WindowPtr ); 

Bringt ein Fenster in den Vordergrund. 

PROCEDURE MoveWindowInFrontOf( window IN AO : WindowPtr; 

behindWindow IN Al : WindowPtr ); 

Legt das Fenster window vor - hinsichtlich der Tiefenanordnung - das 
Fenster behindWindow. 

PROCEDURE ReportMouseC flag IN DO: LONGBOOL; 

window IN AO: WindowPtr ); 

Mit dieser Prozedur kann man im nachhinein das Flag reportMouse in 
WindowFIags setzen oder löschen. TRUE, wenn Flag gesetzt, FALSE, 
wenn es gelöscht werden soll. 
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Folgendes Beispielprogramm zeigt den Umgang mit Windows: 

MODULE WindowDemo; 

IMPORT 

Intuition AS I, 

Graphics AS g, 

Exec AS e, 

Utility AS u; 

TYPE 

PenArray = ARRAY [1] OF CARDINAL; 

CONST 

Pens = PenArray:($FFFF); 

VAR 

Screen, 

PubScreen : I.ScreenPtr; 

Window : ARRAY [2] OF I.WindowPtr; 

PROCEDURE Assert (c : BOOLEAN; REF txt 
VAR es : I.EasyStruct; 

BEGIN 

IF NOT c THEN 

es := I.EasyStruct:(structSize = 

title = 

gadgetFormat = 

es.textFormat := txt.data’PTR; 

FORGET I.EasyRequest (NIL, es’PTR, 

HALT (20); 

END; 

END Assert; 

BEGIN 

Screen := I.OpenScreenTags (NIL, 

depth 
pens 
sysFont 
displaylD 
title 
pubName 


2 , 

Pens’PTR, 

I.wbScreenFont, 
g.hiresKey, 
"Window Demo", 
"WINDEMO", 


: STRING); 


I.EasyStruct’SIZE, 
"Screen Demo", 
"Abort"); 

NIL) ; 
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DONE); 

Assert (Screen # NIL, "Unable to open Screen"); 


Window [0] := I.OpenWindowTags 

(NIL, 

lef t : 

top : 

width : 

height : 

screenTitle : 
customScreen : 
flags : 

DONE); 

Assert (Window[0] # NIL, "Unable to 


0 , 

Screen.barHeight + 1, 

Screen.width, 

Screen.height - 
(Screen.barHeight + 1), 
"Backdrop-Window is active", 
Screen, 

{I.noCareRefresh, I.backDrop, 
I.borderless, I.rmbTrap}, 

open Backdrop-Window"); 


BORGET I.PubScreenStatus (Screen, 0); 


I simulate to open on a pubscreen *) 

PubScreen := I.LockPubScreen ("WINDEMO"); 

Assert (PubScreen # NIL, "Unable to lock PubScreen"); 
I now it’s time to adapt to the PubScreen *) 


Window[1] := I.OpenWindowTags 

(NIL, 

left 

top 

innerWidth 

minWidth 

maxWidth 

innerHeight 

minHeight 

maxHeight 

title 

screenTitle 

pubScreen 

flags 


100 , 

50, 

400, 

100 , 

Screen.width, 

100 , 

50, 

Screen.height, 

"Work-Window", 

"Work-Window is active", 

Screen, 

{I.noCareRefresh,I.windowClose, 
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I.windowSizing,I.windowDrag, 

I.windowDepth,I.rmbTrap, 

I.activate}, 

IDCMP : {I.closeWindow}, 

DONE); 

Assert (Window[1] # NIL, "Unable to open Work-Window"); 

I.UnlockPubScreen ("WINDEMO", PubScreen); PubScreen := NIL; 

FORGET e.WaitPort (Window[1].userPort); | very simplified event-loop 
CLOSE 

IF Window[1] # NIL THEN 

I.closeWindow (Window [1]); Window [1] := NIL; 

END; 

IF PubScreen # NIL THEN 

I.UnlockPubScreen ("WINDEMO", PubScreen); PubScreen := NIL; 

END; 

IF Window[0] # NIL THEN 

I.closeWindow (Window [0]); Window [0] := NIL; 

END; 

IF Screen # NIL THEN 

WHILE NOT I.CloseScreen (Screen) DO 
FORGET I.EasyRequest (NIL, 

I.EasyStruct:(structSize = I.EasyStruct’SIZE, 

title = "Screen Demo", 

textFormat = "Please dose all visitor Windows" 

gadgetFormat = "So I did")’PTR, 

NIL) ; 

END; 

Screen := NIL; 

END; 

END WindowDemo. 
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5.5.2.6 Mauszeigerdefinition 

Intuition bietet die Möglichkeit, jedes Fenster mit einem eigenen Maus¬ 
zeigersprite zu versehen, der sichtbar wird, sobald das Fenster aktiv ist. 
Will man einen eigenen Mauszeiger verwenden, so kann man sich diesen 
mit folgender Prozedur dehnieren: 


PROCEDURE SetPointerC window IN AO 

pointer IN Al 
height IN DO 
width IN Dl 
xOffset IN D2 
yOffset IN D3 


WindowPtr; 

ANYPTR; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT ); 


Dabei gibt window das Fenster an, für das die Zeigerdehnition gilt, 
pointer einen Pointer auf die Graphikdaten, height die Höhe und 
width die Breite des neuen Mauszeigers. xOf f set/yOf f set gibt die Po¬ 
sition des Hotspots (des Punktes, mit dem wirklich geklickt wird) relativ 
zur linken oberen Ecke des Mauszeigers an. 

Bei den Pointerdaten handelt es sich um eine Sprite-Struktur. Da 
Sprites nur 16 Punkte (Bits) breit sein können, aber beliebig viele Punkte 
hoch, dehnieren Sie die Spritedaten am besten als konstantes ARRAY OF 
CARDINAL, da eine Cardinalzahl 16 Bits belegt. Da der Mauszeiger vier¬ 
farbig ist, besitzt er 2 Bitplanes (2^ = 4). Für jede Zeile des Sprites 
brauchen wir also zwei Words (ein Word = 16 Bit), also zwei Cardinal- 
zahlen. Jenachdem ob in beiden Bitplanes ein Bit gesetzt ist, bekommt 
der Punkt eine entsprechende Farbe (Siehe Graphics: Flächen und Mus¬ 
ter). 

Zu den Words, die die Grafikdaten enthalten benötigt das System 
am Anfang und am Ende des Arrays noch jeweils zwei Words, die man 
gleich Null setzen sollte. 


Beispiel: 

TYPE 

Data = ARRAY OF CARDINAL; 
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COMST I erste Bitplane zweite Bitplane 
Pointer = Data:(0,0 

y.ooooool 111000000, y.oooooi looi looooo, 
y.oooooiiooiiooooo,y.ooooiooooooioooo, 
y.ooooool 111000000, y.oooooi looi looooo, 
0 , 0 ); 


(* System *) 
(* 1.Zeile *) 
(* 2.Zeile *) 
(* 3.Zeile *) 
(* System *) 


BEGIN 

SetPointer(Window,Pointer’PTR,3,16,-7,-1); 

Achtung: Alle Graphikdaten müssen im ChipMem liegen. 

Will man einen selbstdefinierten Zeiger wieder löschen, verwenden 
Sie dazu ClearPointer(). An Stelle des eigenen tritt dann beim Ank¬ 
licken ihres Fensters der vordefinierte Mauszeiger von Intuition, war ihr 
Fenster das aktive, vollzieht sich der Wechsel sofort. 

PROCEDURE ClearPointer( window IN AO: WindowPtr ); 
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5.5.3 Menüs 

Nach langer und beschwerlicher Vorarbeit (Screen und Windows) ist es 
nun endlich möglich, zu den interessanteren Dingen von Intuition vor¬ 
zustoßen, den Menüs und Gadgets. Bei der Erstellung dieser Haupt¬ 
bestandteile der Benutzeroberfläche wird man seit OS 2.0 von Gad- 
tools unterstützt. Durch sie wird die ursprünglich zeitaufwendige und 
umständliche Art der direkten Intuition-Programmierung umgangen. 

Die Menüerstellung könnte wirklich nicht einfacher sein. Es gibt nur 
eine einzige Struktur, die bei der Erstellung von Menüs wichtig ist. 

NewMenu = RECORD 

type : NewMenuType; 

label : SysStringPtr; 

commKey : SysStringPtr; 

flags : NewMenuFlagSet; 

mutualExclude : LONGSET; 

userData : ANYPTR; 

END; 

Mit einem Array dieser Struktur wird das gesamte Menü beschrieben. 

Die Eelder der NewMenu-Struktur im einzelnen: 

type Dieses erste Eeld der NewMenu-Struktur enthält den Typ, den 

diese Struktur beschreibt. Diese Typen stehen zur Verfügung: 

title Die Struktur beschreibt den Anfang eines Menütitels, der 
dann in der Screen-Titelzeile erscheint. 

item, imageltem Diese beiden Typen erzeugen einen Menüpunkt 
im aktuellen Menü. Dabei hat man die Wahl, ob der Menüpunkt 
aus Text (item) oder einer Grafik (imageltem) besteht. 

sub, imageSub Diese beiden Typen erzeugen einen Unter-Menüpunkt 
zum aktuellen Menüpunkt. Einmal nur Text, einmal eine 
Grafik. 

end Das letzte Element der NewMenu-Arrays muß diesen Typ 
haben. 
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label Je nachdem, ob der NewMenu-Eintrag einen Menü-Text oder eine 
Grafik beschreibt, mnß hier ein Zeiger anf einen SysString oder 
ein Zeiger anf eine Image-Strnktnr stehen. Der Zeiger mnß für 
die gesamte Existenz des Menüs gültig bleiben. Anstelle eines 
SysStringPtr kann man auch die Konstante barLabel angeben, 
die zu einem Trennstrich führt. 

commKey Hier kann ein Zeiger auf ein Zeichen, das der Shortcut für 
den Menüpunkt ist, angegeben werden. Achtung, hier darf nicht 
nur ein einzelnes Zeichen stehen, sondern ein SysString mit Null¬ 
byte am Ende, z. B. commKey: "c"+&0 .data’PTR. 

flags Bei den Elags kann man menuDisabled bzw. itemDisabled an¬ 
geben, falls das ganze Menü bzw. ein einzelner Menüpunkt nicht 
anwählbar sein darf. 

Bei Menüpunkten, die mit einem Haken versehen werden können, 
muß man außerdem noch checkit und menuToggle setzen. Mit 
checked kann man dann auch noch bestimmen, ob der Haken 
gleich am Anfang gesetzt sein soll. 

mutualExclude Menüpunkte mit Haken können sich gegenseitig aus¬ 
schließen. Mit diesem Set kann man die Menüpunkte angeben, die 
ausgeschlossen werden sollen. Beispiel: Dies ist der zweite Eintrag, 
er soll alle anderen Einträge ausschließen. mutualExclude muß auf 
-LONGSET: {2} gesetzt werden. Die Nummerierung startet in je¬ 
dem Menustreifen mit Null für den obersten Menüpunkt. 

userData In dieses Eeld können Sie beliebige Daten eintragen, am bes¬ 
ten eine eindeutige ID, um das Item wiederzuerkennen, wenn es 
angewählt wurde. Dadurch erspart man sich die umständliche 
Auswertung des code-Eeldes der IDCMP-Message. Außerdem ist 
diese Art der Auswertung unabhängig vom geometrischen Aufbau 
des Menüs, d. h. auch wenn das Menü verändert wird, wird das 
Item eindeutig erkannt. Im folgenden Beispielprogramm ist dies 
deutlich gezeigt. 

Um das Menu nun zu definieren, füllt man einfach ein Array mit NewMenu- 

Strukturen, dabei startet man mit einem title-Eintrag, gefolgt von den 
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Items des Menus. Die folgenden Einträge werden solange als Menüpunkte 
des zuletzt eingetragenen Titels betrachtet, bis ein weiterer title-Eintrag 
im Feld auftritt. 

Ein Untermenü zu erzeugen ist genauso einfach, zuerst ein normaler 
item-Eintrag, der den Namen des Untermenüs enthält. Darauf folgen 
dann soviel sub-Einträge, wie man Untermenupunkte wünscht. 

Nachdem man ein Array, das das gewünschte Menü beschreibt, ini¬ 
tialisiert hat, kann man es mit CreateMenus () erzeugen. Diese Prozedur 
benötigt nur einen Zeiger auf das Array mit NewMenu-Strukturen und 
Tags als Parameter. Es gibt diese Tags: 

frontPen : LONGCARD 

Mit diesm Tag kann man die Farbe angeben, mit der der Text 
geschrieben werden soll. Da der Vorgabewert (0) vernünftig ist, 
sollte man diesen Tag eigentlich nie benötigen. 

fullMenu : LONGBOOL 

Durch diesen Tag erzwingt man, daß nur korrekte und vollständige 
Menüs erzeugt werden. Dadurch werden Fehler, wie zum Beispiel 
ein Sub-Item, das direkt auf einen Menü-Titel folgt, entdeckt. 

secondaryErr : POINTER TO CM2ndErr 

Hier kann man einen Zeiger auf eine Variable angeben, in die der 
genaue Grund für ein Fehlschlagen von CreateMenus() geschrie¬ 
ben wird. Mögliche Fehlergründe sind: 

menuOk Kein Fehler aufgetreten. 

menuTrimmed Das Menü enthält zuviele Menütitel, Menüpunkte 
oder Unterpunkte. CreateMenus () schlägt in diesem Fall 
nicht fehl, sondern erzeugt eine zurechtgestutzte Version des 
Menüs. 

menuinvalid Die Menübeschreibung war ungültig (z. B. sub di¬ 
rekt nach title). 

noMem Zuwenig Speicher. 
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Nachdem die Menüs erzeugt wurden, muß man sie noch layouten lassen, 
bevor man sie mit SetMenuStripO an ein Window bindet. Dies erledigt 
die Prozedur LayoutMenus (), die eine Visualinfo-Struktur benötigt. 
Diese Struktur kann man sehr einfach mit GetVisualInfo() erhalten. 
An Tags versteht LayoutMenus () nur textAttr: TextAttrPtr, mit 
welchen man den Font beschreiben kann, der für das Menü verwendet 
werden soll. Als Voreinstellung wird der Font des Screens verwendet, 
was sehr sinnvoll ist. 

Bevor man das Window schließen kann, muß man die Menus mit 
ClearMenuStripO wieder entfernen und kann sie dann mit FreeMenus () 
freigeben. 

Das Beispielprogramm sollte alle Klarheiten beseitigen und auch zei¬ 
gen, wie man richtig mit den IDCMP-Messages umgeht. Eine Besonde¬ 
rheit ist, daß man für mehrere Menüauswahlen nur eine IntuiMessage 
bekommen kann. Deshalb muß diese Schleife verwendet werden: 

VAR 

item : gt.GTMenuItemPtr; 

OF {I.menuPick} THEN 

WHILE Code # CARDINAL(I.menuNull) DO 

item := I.ItemAddress (MenuDemoMenus, code); 

I Test welches Item angewählt worden ist. 

IF KEY LONGINT(item.userData) 

OF MID.New THEN 
END 

OF MID.Open THEN 
END 


END; 

Code := item.nextSelect; 
END; (* WHILE *) 

END; 
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Vielleicht ist Ihnen aufgefallen, daß die Variable item nicht wie viel¬ 
leicht erwartet vom Typ MenuItemPtr aus Intuition ist, sondern vom 
Typ GTMenuItemPtr aus GadTools ist. Da die ursprüngliche Menuitem- 
Struktur aus Intuition kein userData-Feld kennt, Menuitems, die mit 
GadTools erzeugt worden sind dieses aber enthalten, muß man, um da¬ 
rauf zugreifen zu können, einen Zeiger auf die von GadTools definierte 
erweiterte Struktur GTMenuItem verwenden. 

Bei Menüs, die „abgehakt“ werden können, sollte man die IntuiMes- 
sage ignorieren und den Zustand des Hakens (gesetzt oder nicht gesetzt) 
erst dann ab fragen, wenn man ihn wirklich benötigt. Einen gesetzen 
Haken erkennt man an dem Flag checked in den Flags der GTMenuItem- 
Struktur. Um die entsprechende Struktur zu finden, bleibt einem leider 
nichts anderes übrig, als sich nach Erzeugen der Menüs, sich durch den 
Menubaum zu hangeln und nach der entsprechenden ID zu suchen. Die 
einzelnen Elemente hängen in einfach verketteten Listen, die mit NIL 
terminiert sind. 

Hier nun das komplette Beispielprogramm für Menüs: 

MODULE MenuDemo; 


IMPORT Exec AS e, 

Intuition AS I, 
GadTools AS gt, 
Graphics AS g; 


EXCEPTION 

NoVisualInfo 
NoScreen 
NoWindow 
NoMenus 

CouIdNotLayout 
CouIdNotSet 
LeaveMsgLoop 
VAR 
Scr 

Visualinfo 
MenuDemoWnd 


"No visual info"; 

"Could not lock screen"; 
"Could not open window"; 
"Could not create menues"; 
"Could not layout menues"; 
"Could not set menu Strip"; 
"Leave message loop"; 


I.ScreenPtr; 
ANYPTR; 

I.WindowPtr; 
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MenuDemoMenus 

Font 

COMST 

MID_New 

MID_0pen 

MID_Save 

MID_SaveAs 

MID_Quit 

MID_Cut 

MID_Copy 

MID_Paste 

MID_Erase 

MID.Undo 


: I.MenuPtr; 

: g.TextFontPtr; 

= $ 01000000 ; 

= $01010000; 

= $01020000; 

= $01020100; 

= $01030000; 

= $02000000; 

= $02010000; 

= $02020000; 

= $02030000; 

= $02040000; 


MID_StartLearning = $03000000 
MID_StopLearning = $03010000 
MID_AssignMacro = $03020000 


MID_CreateIcons 

MID_Raw 

MID.Cooked 


= $04000000 
= $04010000 
= $04010100 


MenuDemoNewMenu = ARRAY OF gt.NewMenu:( 


(gt.title, 

"Project", 

NIL, 

{}, {}, NIL), 

(gt.item, 

"New", 

"N"*, 

{}, {}, MID.New), 

(gt.item. 

"Open...", 

"0"*, 

{}, {}, MID.Open), 

(gt.item. 

gt.barLabel, 

NIL, 

{}, {}, NIL), 

(gt.item. 

"Save", 

"S"*, 

{}, {}, MID.Save), 

(gt.item. 

"Save As...", 

"A"*, 

{}, {}, MID.SaveAs), 

(gt.item. 

gt.barLabel, 

NIL, 

{}, {}, NIL), 

(gt.item. 

"Quit", 

"Q"*, 

{}, {}, MID.Quit), 

(gt.title, 

"Edit", 

NIL, 

{}, {}, NIL), 

(gt.item. 

"Cut", 

"X"*, 

{}, {}, MID.Cut), 

(gt.item. 

"Copy", 

"C"*, 

{}, {}, MID.Copy), 

(gt.item. 

"Paste", 

"V"*, 

{}, {}, MID.Paste), 
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(gt.item. 

gt.barLabel, 

NIL, 

{}, {}, NIL), 

(gt.item. 

"Erase", 

NIL, 

{}, {}, MID.Erase), 

(gt.item. 

gt.barLabel, 

NIL, 

{}, {}, NIL), 

(gt.item. 

"Undo", 

"Z"*, 

{}, {}, MID.Undo), 

(gt.title. 

"Macro", 

NIL, 

{}, {}, NIL), 

(gt.item. 

"Start Learning", 

NIL, 

{}, {}, MID_StartLearning), 

(gt.item. 

"Stop Learning", 

NIL, 

{}, {}, MID_StopLearning), 

(gt.item. 

"Assign Macro...", 

NIL, 

{}, {}, MID_AssignMacro), 

(gt.title. 

"Settings", 

NIL, 

{}, {}, NIL), 

(gt.item. 

"Create Icons?", 

"I"=K , 

{gt.checkit,gt.checked, 
gt.menuToggle}, 

{}, MID_CreateIcons), 

(gt.item. 

gt.barLabel, 

NIL, 

{}, {}, NIL), 

(gt.item. 

"Meal", 

NIL, 

{}, {}, NIL), 

(gt.sub. 

"Raw", 

NIL, 

{gt.checkit}, {!}, MID_Raw), 

(gt.sub. 

"Cooked", 

NIL, 

{gt.checkit,gt.checked}, {0}, 

MID_Cooked), 

(gt.end. 

NIL, 

NIL, 

{}, {}, NID); 


PROCEDURE Warn (REE txt : STRING); 
VAR es := I.EasyStruct:(structSize 

title 

gadgetFormat 

BEGIN 


I.EasyStruct’SIZE, 
"Menu Demo", 
"Abort"); 


es.textFormat := txt.data’PTR; 

FORGET I.EasyRequest (MenuDemoWnd, es’PTR, NIL); 
END Warn; 


PROCEDURE SetupScreen; 

BEGIN 

Scr := I.LockPubScreen (NIL); 
ASSERT(Scr#NIL,NoScreen); 

Visuallnfo := gt.GetVisualInfo (Scr, DÜNE); 
ASSERT(VisualInfo#NIL,NoVisualInfo); 
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END SetupScreen; 

PROCEDURE CloseDownScreen; 

BEGIN 

IF Visuallnfo # NIL THEN 

gt.FreeVisualInfo (Visuallnfo); 
Visuallnfo := NIL; 

END; 

IF Scr # NIL THEN 

I.UnlockPubScreen (NIL, Scr); 
Scr := NIL; 

END; 

END CloseDownScreen; 


PROCEDURE OpenMenuDemoWindow; 

BEGIN 

MenuDemoMenus := gt.CreateMenusTags(MenuDemoNewMenu, 

frontPen : 0, 

DÜNE); 

ASSERT(MenuDemoMenus#NIL,NoMenus); 

ASSERT(gt.LayoutMenus (MenuDemoMenus.Visuallnfo,DÜNE), CouldNotLayout); 
MenuDemoWnd := I.OpenWindowTags ( NIL, 


left 

50, 

top 

50, 

innerWidth 

400, 

innerHeight 

50, 

IDCMP 

{I.menuPick,I.closeWindow, 

I.refreshWindow,!.menuHelp}, 

f lags 

{I.activate,I.windowSizing, 

I.windowDrag,I.windowDepth, 

I.windowClose}, 

title 

"Menu Demo", 

screenTitle 

"Menus in Cluster", 

pubScreen 

Scr, 

menuHelp 

TRUE, 
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minWidth. 

: 200, 

maxWidth. 

: $FFFF, 

minHeight 

: 40, 

maxHeight 

: $FFFF, 

DONE); 



ASSERT(MenuDemoWnd#NIL,NoWindow); 

ASSERTd.SetMenuStrip (MenuDemoWnd, MenuDemoMenus),CouldNotSet); 
gt.GT_RefreshWindow (MenuDemoWnd, NIL); 

END OpenMenuDemoWindow; 


PROCEDURE CloseMenuDemoWindow; 

BEGIN 

IF MenuDemoMenus # NIL THEN 

I.ClearMenuStrip (MenuDemoWnd); 
gt.FreeMenus (MenuDemoMenus); 
MenuDemoMenus := NIL; 

END; 

IF MenuDemoWnd # NIL THEN 
I.CloseWindow (MenuDemoWnd); 
MenuDemoWnd := NIL; 

END; 

END CloseMenuDemoWindow; 


PROCEDURE 

HandlelDCMP; 

VAR 


imsg : 

I.IntuiMessagePtr; 

item : 

gt.GTMenuItemPtr; 

Code : 

CARDINAL; 

dass : 

I.IDCMPFlagSet; 


BEGIN 

imsg := gt.GT_GetIMsg (MenuDemoWnd.userPort); 
WHILE imsg#NIL DO 
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Code := imsg.code; 
dass := imsg.class; 
gt.GT_ReplyIMsg (imsg); 
imsg := NIL; 

IF KEY dass 

OF {I. doseWindow} THEN 
RAISE(LeaveMsgLoop); 

END 

OF {I.refreshWindow} THEN 

gt.GT_BeginRefresh (MenuDemoWnd); 

(* Refresh Window *) 

gt.GT_EndRefresh (MenuDemoWnd, TRUE); 

END; 

OF {I.menuHelp} THEN 

IF Code # CARDINAL(I.menuNull) THEN 

item := I.ItemAddress (MenuDemoMenus, code); 
(* give help for the item *) 

(* don’t use item.nextSelect! *) 

END; 

END; 

OF {I.menuPick} THEN 

WHILE Code # CARDINAL(I.menuNull) DO 

item := I.ItemAddress (MenuDemoMenus, code); 
IF KEY LONGINT(item.userData) 

OF MID_New THEN 
END 

OF MID_0pen THEN 
END 

OF MID.Save THEN 
END 

OF MID.SaveAs THEN 
END 

OF MID_Quit THEN 

RAISE(LeaveMsgLoop); 

END 

OF MID_Cut THEN 
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END 

OF MID.Copy THEM 
END 

OF MID_Paste THEM 
END 

OF MID_Erase THEM 
END 

OF MID.Undo THEM 
END 

OF MID_StartLeariiing THEM 
END 

OF MID_StopLeariiiiig THEM 
END 

OF MID_AssignMacro THEM 
END 

OF MID.Createlcons THEM 
END 

OF MID.Raw THEM 
END 

OF MID_Cooked THEM 
END 
END; 

Code := item.nextSelect; 

END; (* WHILE *) 

END; 

END; 

imsg := gt.GT_GetIMsg (MenuDemoWnd.userPort); 
END; 

END HandleIDCMP; 

BEGIN 

TRY 

SetupScreen; 

OpenMenuDemoWindow; 

TRY 

LOOP 

FORGET e.WaitPort(MenuDemoWnd.userPort); 
HandleIDCMP; 
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END; 

EXCEPT 

OF LeaveMsgLoop THEM END 
END; 

EXCEPT 


OF NoVisuallnfo THEN 

WarnCCould not get a visual info") ; 
END 


OF NoScreen THEN 

WarnCCould not lock the public screen"); 
END; 

OF NoWindow THEN 

WarnCCould not open the window"); 

END 

OF NoMenus THEN 

WarnCCould not create the menues"); 

END 


OF CouldNotLayout THEN 

WarnCCould not layout the menues"); 
END 

OF CouldNotSet THEN 


WarnCCould not set the new menu Strip"); 
END; 

END; 

CLOSE 


CloseMenuDemoWindow; 
CloseDownScreen; 

END MenuDemo. 
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5.5.4 Gadgets 

Die Erstellung von Gadgets ist mit der gadtools. library fast so einfach 
wie die Erstellung von Menüs. Eür alle Arten von Gadgets gibt es wieder 
eine Struktur: 


NewGadget = RECORD 

leftEdge, topEdge 
width, height 
gadgetText 
textAttr 
gadgetID 
f lags 

visualinfo 
userData 
END; 


INTEGER; 

INTEGER; 
SysStringPtr; 
TextAttrPtr; 
CARDINAL; 
NewGadgetFIagSet; 
Visualinfo; 
ANYPTR; 


Im Gegensatz zu Menüs muß man jedoch jedes Gadget einzeln mit 
CreateGadgetTags 0 erzeugen. Dabei übergibt man in einer Tag-Liste 
weitere wichtige Parameter für das Gadget. Normalerweise initialisiert 
man nur eine NewGadget-Struktur und ändert vor dem Aufruf von 
CreateGadgetTags 0 einige Eelder. Die Eelder der Struktur im ein¬ 
zelnen: 

leftEdge, topEdge Position des Gadgets. 
width, height Breite und Höhe des Gadgets. 

gadgetText Der Text, der die Punktion des Gadgets erklärt. Die Posi¬ 
tion des Textes kann mit den Plags festgelegt werden. Wichtig ist, 
daß der Zeiger solange gültig bleibt, wie die Gadgets existieren. 

textAttr Der Pont, den das Gadget verwenden soll. Hier muß immer 
ein gültiger Zeiger (notfalls auf Topaz 8) stehen. Besser ist es 
natürlich, wenn hier ein Zeiger auf den vom Benutzer gewünschten 
Pont steht und sich das Programm an diesen Pont anpaßt. 

gadgetID Eine frei wählbare Zahl, die verwendet werden kann, um das 
Gadget zu identifizieren. 
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flags Hiermit kann bestimmt werden, wo der zum Gadget gehörige 
Text plaziert werden soll und ob er mit einer besonderen (high- 
light) Farbe gezeichnet werden soll. Folgende Flags sind möglich: 

placeTextLeft Links neben das Gadget. 
placeTextRight Rechts neben das Gadget. 
placeTextAbove Über das Gadget. 
placeTextBelow Unter das Gadget. 
highLabel In einer speziellen Farbe. 

visuallnfo Ein Zeiger auf die mit GetVisualInfo() erhaltene Struk¬ 
tur. 

userData Ebenso wie gadget ID frei wählbar. Hier kann man z. B. eine 
Hookfunktion einhängen, die man bei drücken eines Gadgets au¬ 
fruft. 

Bevor man mit CreateGadgetTags () ein Gadget erzeugen kann, muß 
man zuerst mit CreateContext () für eine Umgebung sorgen, die die 
Gadgets aufnehmen kann. 

PROCEDURE CreateContext (VAR GadgetPtr IN AO : GadgetPtr):GadgetPtr; 

CreateContext 0 bekommt als VAR-Parameter die Variable übergeben, 
in der der Zeiger auf das erste Gadget abgelegt werden soll. Der Rückgabewert 
ist ein Gadget-Zeiger, der dann CreateGadgetTags () übergeben werden 
muß. In Eehlerfall kann CreateContext () auch NIL zurückliefern. 


PROCEDURE CreateGadgetTags( kind IN DO 

previous IN AO 

REF newgad IN Al 

taglist IN A2 

): GadgetPtr; 


GadgetKind; 
GadgetPtr; 
NewGadget; 

LIST OF GadgetTags 
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Der Parameter kind bestimmt den Typ des Gadgets. In previous 
übergibt man den Zeiger, den man von CreateContext ()- bzw. dem letz¬ 
ten CreateGadgetTags ()-Anfrnf erhalten hat. Wenn man NIL übergibt, 
wird kein Gadget erzeugt. Dadurch erspart man sich die Prüfung auf 
NIL nach jeden Aufruf und muß erst, nachdem man alle Gadgets erzeugt 
hat, prüfen, ob dies auch gelungen ist. newgad ist die bereits bespro¬ 
chene NewGadget-Struktur. Die Werte, die in der taglist angegeben 
werden können, hängen von der Art des Gadgets ab. Sie beeinflussen 
das Aussehen und die Funktion des Gadgets. Nachträglich kann man mit 
GT_SetGadgetAttrsO die Werte dieser Tags ändern. Dies ist jedoch nur 
bei speziellen Tags möglich und wird bei jedem Tag einzeln erklärt. 

Den Tag underScore unterstützt jedes Gadget. Er gibt das Zeichen 
an, mit dem ein Zeichen im Gadgettext markiert werden soll. Dies ist 
normalerweise der Unterstrich kann aber auch jedes andere Zeichen 
sein, vorausgesetzt es kommt nicht im Gadgettext vor. Innerhalb des 
Gadgettextes muß dieses Zeichen dann direkt vor dem zu markierenden 
Zeichen stehen. Ein Beispiel für einen solchen Gadget Text Label wäre 
„_0k“. Hier wird dann da „0“ unterstrichen. Das Programm sollte, falls 
die Taste „0“ gedrückt wird, so reagieren, als hätte der Benutzer das 
Gadget angeklickt. 

Die mit CreateGadgetTags () erzeugte Gadget-Struktur darf man 
auf keinen Pall von Hand verändern. Es gibt jedoch Ausnahmen, die bei 
dem jeweiligen GadgetTyp erklärt werden. 

Nachdem man alle Gadgets erzeugt hat und dabei kein Pehler aufge¬ 
treten ist, werden sie mit dem Tag gadgets bei OpenWindowTags () ein¬ 
gebunden, indem man den Zeiger auf das erste Gadget dort einträgt. Der 
IDGMP sollte mindestens die Vereinigungsmenge aller für die verwende¬ 
ten Gadgets vorgesehenen IDGMP-Elags enthalten. Nach OpenWindowTags () 
muß man noch die GadTools-Eunktion RefreshWindowO aufrufen. Na¬ 
chdem das Eenster geschlossen wurde, muß man die Gadgets mit FreeGadgets () 
freigeben. All dies wird im Beispielprogramm deutlich. 

Hier eine Übersicht über alle Gadget-Arten, die für kind angege¬ 
ben werden können. Eine Erklärung, wie man sie verwendet und eine 
Beschreibung der dazu gehörigen Tags: 

button Dies ist ein Gadget, das einen einfachen Knopf darstellt. Man 



112 


KAPITEL 5. SYSTEMPROGRAMMIERUNG 


bekommt eine IDCMP-Message, falls er gedrückt wird. Diese Tags 
gibt es: 

buDisabled : LONGBOOL 

Gibt an, ob das Gadget anwählbar ist oder in „Geisterschrift“ 
dargestellt wird. Kann mit GT_SetGadgetAttrs () verändert 
werden. 

checkbox Dieses Gadget ist ein Kästchen, das in der jetztigen GadTools- 
Version die feste Größe 26x11 hat. Dnrch anklicken kann man das 
Kästchen abhaken oder den Haken wieder entfernen. Den Zns- 
tand des Gadgets kann man dnrch Lesen des selected Bits in der 
Gadget-Strnktnr herausfinden. Diese Tags gibt es: 

cbDisabled : LONGBOOL 

Gibt an, ob das Gadget anwählbar ist oder in „Geisterschrift“ 
dargestellt wird. Kann mit GT_SetGadgetAttrs () verändert 
werden. 

checked : LONGBOOL 

Gibt an, ob das Gadget abgehakt ist oder nicht. Kann mit 
GT_SetGadgetAttrs 0 verändert werden. 

integer &:string Mit diesen Gadget-Arten kann man Texte oder Zah¬ 
len einiesen. Den eingegebenen Text findet man im Element buff er 
der Stringlnfo-Struktur, auf die das Element speciallnfo der 
Gadget-Strnktnr zeigt. Ealls es sich um ein Integer-Gadget han¬ 
delt, findet man die eingegebene Zahl im longlnt-Eeld der Stringlnfo- 
Struktur. Diese Eelder dürfen nur ausgelesen und keinesfalls verändert 
werden. Veränderungen kann man mit GT_SetGadgetAttrs () vor¬ 
nehmen. Ealls ein String- bzw. Integer-Gadget nicht mit RE¬ 
TURN verlassen wird, bekommt man auch keine gadgetUp-Message. 
Man sollte deshalb den Buffer immer erst auslesen, wenn man ihn 
benötigt. Diesen Tag gibt es nur beim String Gadget: 

stString : SysStringPtr 

Mit diesen Tag übergibt man den Text, der im Gadget stehen 
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soll. Dieser Tag kann mit GT_SetGadgetAttrs () verwendet 
werden. 

Diesen Tag gibt es nnr beim Integer Gadget: 

inNumber : LONGCARD 

Mit diesem Tag übergibt man die Zahl, die im Gadget stehen 
soll. Dieser Tag kann mit GT_SetGadgetAttrs () verwendet 
werden. 

Die folgenden Tags können mit beiden Gadget-Arten verwendet 
werden, die Tags für die Stringgadgets haben anstelle eines in ein 
st vor dem Namen: 

inMaxChars : LONGCARD 
stMaxChars : LONGCARD 

Die maximale Anzahl der Zeichen die im Gadget eingegeben 
werden dürfen. Defanlt ist bei String-Gadgets 64 nnd bei 
Integer-Gadgets 10. Dieser Tag darf nnr beim Erstellen des 
Gadgets verwendet werden. 

inDisabled : LONBOOL 

stDisabled : LONBOOL 

Gibt an, ob das Gadget anwählbar ist oder in „Geisterschrift“ 
dargestellt wird. Kann mit GT.SetGadgetAttrs () verändert 
werden. 

inExitHelp : LONGBOOL 
stExitHelp : LONGBOOL 

Das Gadget kann mit der HELP-Taste verlassen werden. 
Die gesendete „gadgetUp“-IDGMP-Message enhält in die¬ 
sem Pall $5F im code-Peld. Es sollte dann ein Hilftext zn 
dem Gadget angezeigt werden. Dieser Tag darf nnr beim 
Erstellen des Gadgets verwendet werden. 

inTabCycle : LONBOOL 
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stTabCycle : LONBOOL 

Mit diesem Tag kann man das antomatische Springen von 
String-Gadget zn String-Gadget mit Hilfe der TAB-Taste un¬ 
terbinden, z. B. wenn nur ein String-Gadget vorhanden ist. 

Dieser Tag darf nur beim Erstellen des Gadgets verwendet 
werden. 

stJustification : ActivationFlagSet 

Gibt an, ob der String linksbündig stringLeft (default), 
rechtsbündig stringRight oder zentriert stringCenter im 
Gadget erscheinen soll. Dieser Tag kann auch bei Integer- 
Gadgets zu verwenden. Nur bei der Erzeugung zu verwen¬ 
den. 

stReplaceMode : LONGBOOL 

Wird hier TRUE übergeben, erhält man ein Gadget im Replace- 
Modus, also Überschreibmodus; übergibt man EALSE, eines 
im Einfügemodus. Nur bei der Erzeugung zu verwenden. 

Auch dieser Tag ist für Integer-Gadgets zu verwenden. 

listview Dieses Gadget ist eine Scroll-Liste mit der mehrere Einträge 
angezeigt werden können. Bei Bedarf kann der ausgewählte Ein¬ 
trag auch angezeigt werden. Die IDGMP-Message gadgetUp enthält 
im code-Eeld die Nummer des angewählten Eintrags. Diese Tags 
gibt es: 

IvTop : LONGCARD 

Dieser Tag gibt die Nummer des Eintrags an, der als erster 
Eintrag im ListView sichtbar sein soll. Kann mit GT_SetGadgetAttrs () 
verändert werden. 

IvLabels : ListPtr 

Hiermit gibt man die Liste an, deren Einträge angezeigt 
werden sollen. Will man die Liste nachträglich verändern, 
muß man sie vorher mit SetGagetAttrs () und NIL für den 
IvLabels-Tag vom Gadget entfernen. Der Inhalt des List- 
Views verschwindet dadurch jedoch auch. Eür kurzfristige 
Änderungen kann man deshalb auch -1 als Parameter für 
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den labels-Tag angeben, dann bleibt der Inhalt erhalten. 
Man mnß dann jedoch die Liste wieder schnell mit diesem 
Tag einbinden. 

IvReadOnly : LONGBOOL 

Der Inhalt des Gadgets kann nnr gelesen, jedoch nicht verändert 
werden. Dieser Tag darf nnr beim Erstellen des Gadgets ver¬ 
wendet werden. 

IvScrollWidth : LONGCARD 

Gibt die Breite des Scroll-Gadgets an der Seite der listviews 
an. Die (vernünftige) Voreinstelung beträgt 16. Dieser Tag 
darf nnr beim Erstellen des Gadgets verwendet werden. 

IvShowSelected : GadgetPtr 

Dnrch diesen Tag kann bestimmt werden, daß der angek¬ 
lickte Eintrag in einem Eeld (nnterhalb) des Listviews an¬ 
gezeigt werden soll. Hier kann man den Zeiger auf ein vo¬ 
rher erstelltes String-Gadget angeben, dann wird der Text 
in dieses kopiert. Wird NIL angegeben, so wird der Text nur 
angezeigt. Dieser Tag darf nur beim Erstellen des Gadgets 
verwendet werden. 

IvSelected : LONGCARD 

Gibt die Nummer des angewählten Eintrags an, der bei der 
Erzeugung angezeigt werden soll. Hat nur eine Wirkung, 
wenn auch IvShowSelected verwendet wurde. Der Wert -1 
bedeutet, daß kein Eintrag angewählt ist. Kann mit 
GT_SetGadgetAttrs 0 verändert werden. 

IvSpacing : LONGCARD 

Gibt die Anzahl der Pixel an, die zwischen den einzelnen 
Einträgen sein sollen. Dieser Tag darf nur beim Erstellen 
des Gadgets verwendet werden. 

mx Dieser Gadget-Typ (auch radio hutton genannt) wird verwendet, 
falls sich einem mehrere sich ausschließende Wahlmöglichkeiten 
bieten, ein Gycle-Gadget jedoch unangebracht ist. Bei sehr zahl¬ 
reichen Wahlmöglichkeiten sollte ein ListView verwendet werden. 
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Die Flags in der NewGadget-Struktur geben an, ob der Text der 
Wahlmöglichkeiten links oder rechts von den Bnttons stehen soll. 

Bitte nnr placeTextLeft nnd placeTextRight verwenden. Der 
Text in der NewGadget-Strnktnr wird ingoriert. Die IDGMP- 
Message gadgetUp enthält im code-Feld die Nnmmer des angewählten 
Eintrags. Folgende Tags stehn znr Verfügung: 

mxLabels : POINTER TO ARRAY OF SysStringPtr 

In diesem Array werden die Texte der verschiedenen Wahlmöglichkeiten 
angegeben. Dieser Tag darf nur beim Erstellen des Gadgets 
verwendet werden. Als letzter Eintrag muß NIL stehen. 

mxActive : LONGCARD 

Die Nummer der ausgewählten Möglichkeit. Kann mit 
GT_SetGadgetAttrs 0 verändert werden. 

mxSpacing : LONGCARD 

Gibt die Anzahl der Pixel an, die zwischen den einzelnen 
Einträgen sein sollen. Dieser Tag darf nur beim Erstellen 
des Gadgets verwendet werden. 

text Dieses Gadget zeigt einen Text an. Der Benutzer kann den Text 
nicht ändern. Es werden keine IDGMP-Messages verschickt. Diese 
Tags gibt es: 

txText : SysStringPtr 

Der Text, der durch das Gadget dargestellt werden soll. Er 
kann mit GT_SetGadgetAttrs () verändert werden. 

txCopyText : LONGBOOL 

Der darzustellende Text wird kopiert. Dadurch darf der Zei¬ 
ger auf ihn ungültig werden. Dieser Tag darf nur beim Ers¬ 
tellen des Gadgets verwendet werden. 

txBorder : LONGBOOL 

Um den darzustellenden Text wird ein Rahmen gezeichnet. 

Dieser Tag darf nur beim Erstellen des Gadgets verwendet 
werden. 
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number Dieses Gadget zeigt eine Zahl an. Der Benntzer kann die Zahl 
nicht ändern. Es werden keine IDCMP-Messages verschickt. Diese 
Tags gibt es: 

nmNumber : LONGINT 

Die Zahl, die durch das Gadget dargestellt werden soll. Sie 
kann mit GT_SetGadgetAttrs () verändert werden. 

nmBorder : LONGBOOL 

Um die darzustellende Zahl wird ein Rahmen gezeichnet. 
Dieser Tag darf nur beim Erstellen des Gadgets verwendet 
werden. 


cycle Dieser Gadget-Typ wird verwendet, falls sich einem mehrere sich 
ausschließende Wahlmöglichkeiten bieten, ein Mx-Gadget jedoch 
unangebracht ist. Bei sehr zahlreichen Wahlmöglichkeiten sollte 
ein ListView verwendet werden. 


Die Elags in der NewGadgetstruktur geben an, ob der Text der 
Wahlmöglichkeiten links oder rechts von Boxen stehen sol Der 
Text in der NewGadget-Struktur wird ingoriert. Die IDGMP- 
Message gadgetUp enthält im code-Eeld die Nummer des angewählten 
Eintrags. Diese Tags gibt es: 


cyDisabled : LONGBOOL 

Gibt an, ob das Gadget anwählbar ist oder in „Geisterschrift“ 
dargestellt wird. Kann mit GT.SetGadgetAttrs () verändert 
werden. 

cyLabels : POINTER TO ARRAY OF SysStringPtr 

In diesem Array werden die Texte der verschiedenen Wahlmöglichkeiter 
angegeben. Dieser Tag darf nur beim Erstellen des Gadgets 
verwendet werden. Achtung: Als lezter Eintrag muß NIL 
stehen. 

cyActive : LONGCARD 

Die Nummer der ausgewählten Möglichkeit. Kann mit 
GT_SetGadgetAttrs 0 verändert werden. 

^^Siehe Mx-Gadgets. 
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Palette Mit diesem Gadget läßt sich ein Färb-Auswahlfeld realisieren. 
Die IDCMP-Message gadgetUp enthält im code-Feld die Nummer 
der angewählten Farbe. Diese Tags gibt es: 

paDisabled : LONGBOOL 

Gibt an, ob das Gadget anwählbar ist oder in „Geisterschrift“ 
dargestellt wird. Kann mit GT_SetGadgetAttrs () verändert 
werden. 

paDepth : LONGCARD 

Die Anzahl der Bitplanes, die die Palette repräsentieren. Es 
gibt Farben. Dieser Tag darf nur beim Erstellen des 

Gadgets verwendet werden. 

paColor : LONGCARD 

Die Nummer der zu beginn angewählten Earbe. Kann mit 
GT_SetGadgetAttrs 0 verändert werden. 

paColorOffset : LONGCARD 

Die erste Earbe, die in der Palette angezeigt werden soll. 
Dieser Tag darf nur beim Erstellen des Gadgets verwendet 
werden. 

palndicatorW : LONGCARD 

Durch diesen oder den nächsten Tag kann man ein Eeld er¬ 
zeugen, in dem die gerade angewählte Earbe angezeigt wird. 
Es wird die Breite dieses Eeldes angegeben. Das Eeld selbst 
befindet sich auf der linken Seite des Palette-Gadgets und 
ist so hoch wie die ganze Palette. 

palndicatorH : LONGCARD 

Durch diesen oder den vorigen Tag kann man ein Eeld er¬ 
zeugen, in dem die gerade angewählte Earbe angezeigt wird. 
Es wird die Höhe dieses Eeldes angegeben. Das Eeld selbst 
befindet sich oberhalb des Palette-Gadgets. 

slider Das Slider-Gadget ist eines der beiden proportionalen Gadgets, 
die GadTools anbietet. Mit einem Slider kann man einen Wert 
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zwischen zwei Grenzen (min nnd max) einstellen, vergleichbar ei¬ 
nem Schieberegler an einer Stereoanlage. Klickt der Benntzer ne¬ 
ben dem Reglerknopf in das Gadget, wandert der Knopf in Ein¬ 
zelschritten anf den Manszeiger zn. Man bekommt mouseMove- 
IDGMP-Messages geschickt, die im code-Feld den aktuelle Wert 
enthalten. Falls man es wünscht, kann man sich mit den entspre¬ 
chenden Tags auch gadgetUp und gadgetDown Messages schicken 
lassen. Als besonderen Service kann man sich den aktuellen Wert 
auch anzeigen lassen. Diese Tags gibt es: 

slMin : LONGINT 

Der minimale Wert, den das Gadget annehmen kann. Kann 
mit GT.SetGadgetAttrs 0 verändert werden. 

slMax : LONGINT 

Der maximale Wert. Kann mit GT_SetGadgetAttrs () ver¬ 
ändert werden. 

slLevel : LONGINT 

Der aktuelle Wert. Kann mit GT_SetGadgetAttrs() verän¬ 
dert werden. 

sIMaxLevelLen : LONGCARD 

Die maximale Länge, die der String erreichen darf, der ange¬ 
zeigt wird. Dieser Tag darf nur beim Erstellen des Gadgets 
verwendet werden. Wenn dieser Tag verwendet wird, muß 
auch der folgende Tag sILevelFormat verwendet werden. 

sILevelFormat : SysStringPtr 

Das Format, in dem der Wert dargestellt werden soll, falls 
er ausgegeben werden soll. Es dürfen die Format-Strings 
wie bei Exec’s RawDoFmtO oder der G-Funktion printfO 
verwendet werden. Beispiel: "yo2Id" um eine maximal 2 
Zeichen lange Nummer anzuzeigen, "yo02Ix" um eine 2 Zei¬ 
chen lange Hexadezimalnummer anzuzeigen, die im Bedarf¬ 
sfall führende Nullen enthält, oder auch "yo2Id Stunden". 
Damit die Darstellung sauber erfolgen kann, sollte man einen 
nicht-proportionalen Font für das Gadget verwenden. Dieser 
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Tag darf nur beim Erstellen des Gadgets verwendet werden. 
Wird dieser Tag verwendet, muß auch slLevelMaxLen ge¬ 
setzt werden. 

slLevelPlace : NewGadgetFlagSet 

Gibt den Ort an, an dem die Textausgabe erfolgt. Dieser 
Tag darf nur beim Erstellen des Gadgets verwendet werden. 
Defaultmäßig steht der Text links vom Gadget. 

slDispFunc : DispFunc 

Hier kann man eine Prozedur angeben, die den aktuellen 
Wert vor der Anzeige umrechnet. So kann z. B. ein Slider, 
mit dem man die Tiefe eines Screens (1-3) einstellt, die An¬ 
zahl der Earben (1, 2, 4, 8) anzeigen. Die Eunktion muß vom 
Typ DispFunc sein: 

DispFunc = PR0CEDURE( gad IM AO: GadgetPtr; 

org IN DO: INTEGER ): LONGINT; 

Dabei bekommt sie in gad den Zeiger auf das Slidergad- 
get und in org den Orginalwert des Sliders geliefert. Der 
Rückgabewert wird dann angezeigt. Die Umwandlung be¬ 
zieht sich ausschließlich auf die Wertanzeige, nicht auf den 
echten Wert des Gadgets. 

slFreedom : Orientation 

Hiermit kann man angeben, ob der Slider horizontal oder 
vertikal sein soll, indem man hier horiz bzw. vert einträgt. 
Dieser Tag darf nur beim Erstellen des Gadgets verwendet 
werden. Default ist horiz. 

sllmmediate : LONGBOOL 

Es werden gadgetDown-Messages verschickt, sobald der Be¬ 
nutzer den Knopf anklickt. Dieser Tag darf nur beim Erstel¬ 
len des Gadgets verwendet werden. Default ist EALSE. 

slRelVerify : LONGBOOL 

Es werden gadgetUp-Messages verschickt, sobald der Benut¬ 
zer den Knopf losläßt. Dieser Tag darf nur beim Erstellen 
des Gadgets verwendet werden. Default ist EALSE. 
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slDisabled : LONGBOOL 

Gibt an, ob das Gadget anwählbar ist oder in „Geisterschrift“ 
dargestellt wird. Kann mit GT_SetGadgetAttrs () verändert 
werden. 


scroller Das Scroller-Gadget ist das zweite proportionale Gadgets, das 
GadTools anbietet. Ein Scroller repräsentiert einen Anschnitt ans 
einem größeren Bereich. Die Workbench benntzt z. B. Scroller- 
Gadgets in den Fensterrahmen, auch die Fenst^des Hitex-Editor 

Dabei zeigt der 


haben einen Scroller im rechten Fensterrahmer 


14 


Balken die Größe (relativ zum Gesamttext) und die Position des 
momentan sichtbaren Textbereich an. 


Mit den drei Tags scTotal, scVisibleund scTop, gibt man so¬ 
wohl die Größe des gesamten Bereichs, die des sichtbaren Aus¬ 
schnitts, sowie die Position des Ausschnitts an. Man bekommt 
mouseMove-IDGMP-Messages geschickt, die im code-Feld den ak¬ 
tuellen scTop-Wert enthalten. Falls gewünscht, kann man sich mit 
den entsprechenden Tags auch gadgetUp und gadgetDown Mes¬ 
sages schicken lassen. Klickt man in einem Scroller neben dem 
Balken in das Gadget, blättert der Scroller seitenweise, d. h. scTop 
verschiebt sich um scVisible-1. 


Diese Tags gibt es: 


scTop : LONGINT 

Die oberste Zeile oder Position, die angezeigt wird. Kann 
mit GT_SetGadgetAttrs 0 verändert werden. 

scTotal : LONGINT 

Die Anzahl der Zeilen oder Positionen, die es gibt. Kann mit 
GT_SetGadgetAttrs 0 verändert werden. 

scVisible : LONGINT 

Die Anzahl der sichtbaren Zeilen oder Positionen, die es gibt. 
Kann mit GT_SetGadgetAttrs() verändert werden. 

^^Auch wenn diese nicht mit GadTools programmiert wurden, da man keine 
GadTools-Gadgets innerhalb von Fensterrahmen verwenden kann 
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scArrows : LONGCARD 

Bei Verwendung dieses Tags werden Pfeil-Gadgets zum Scrol- 
1er hinzugefügt. Der Tagwert bestimmt die Breite bzw. Höhe 
dieser Pfeile. Dieser Tag darf nur beim Erstellen des Gad- 
gets verwendet werden. Defaultmäßig ist dieser Tag nicht 
gesetzt. 

scFreedom : Orientation 

Hiermit kann man angeben, ob der Scroller horizontal oder 
vertikal sein soll, indem man hier horiz bzw. vert einträgt. 
Dieser Tag darf nur beim Erstellen des Gadgets verwendet 
werden. Default ist horiz. 

sclmmediate : LONGBOOL 

Es werden gadgetDown-Messages verschickt. Dieser Tag darf 
nur beim Erstellen des Gadgets verwendet werden. Default 
ist EALSE. 

scRelVerify : LONGBOOL 

Es werden gadgetUp-Messages verschickt. Dieser Tag darf 
nur beim Erstellen des Gadgets verwendet werden. Default 
ist EALSE. 

scDisabled : LONGBOOL 

Gibt an, ob das Gadget anwählbar ist oder in „Geisterschrift“ 
dargestellt wird. Kann mit GT_SetGadgetAttrs () verändert 
werden. 

generic Dieser Gadgettyp wird verwendet, falls man ein Gadget benötigt, 
das GadTools nicht zur Verfügung stellt. Beim CreateGadgetTags ()- 
Aufruf darf man keine Elags für die Position des Gadget-Textes an¬ 
geben. Eine IntuiText Struktur für den Text wird jedoch erzeugt. 
Man muß dann die Eelder flags, activation, gadgetRender, 
selectRender, mutualExclude und speciallnfo selbst setzen, 
um dem Gadget eine Eunktion zu geben. Eine Besonderheit gibt 
es beim gadgetType. Dieses Eeld darf nicht direkt überschrieben 
werden, sondern man muß den gewünschten mit dem bereits von 
GadTools gesetzten Type mit OR verknüpfen. Sie werden war- 
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scheinlich nie in die Verlegenheit kommen, diesen Typ zu verwen¬ 
den, daher wird hier nicht näher darauf eingegangen. 

Zu beachten ist bei GadTools-Gadgets, daß man unbedingt die Funk¬ 
tionen GetlMsgO und ReplylMsgO der gadtool. library verwendet, 
um die IntuiMessages zu bearbeiten. Außerdem dürfen die Intuition- 
Funktionen RefreshWindowO, RefreshGList() , OnGadget() , OffGadget(), 
etc. nicht mit GadTools-Gadgets bzw. Windows, die diese Gadgets en¬ 
thalten, verwendet werden. Man muß stattdessen die entsprechenden 
Funktionen aus der gadtools . library verwenden. 

Das Beispielprogramm führt einige Gadgettypen vor und zeigt glei¬ 
chzeitig, wie man sich an beliebige Fonts anpaßt. 
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MODULE GadgetDemo; 


FROM System IMPORT SysStringPtr; 

IMPORT Exec AS e, 

Intuition AS I, 
GadTools AS gt, 
Graphics AS g; 

EXCEPTIOM 


LeaveMsgLoop 

NoVisualInfo 

NoScreen 

NoGadgetContext 

NoGadgets 

NoWindow 


"Leave message loop"; 

"No visual info"; 

"Could not lock screen"; 

"No gadget context"; 

"Could not allocate all gadgets"; 
"Could not open window"; 


CONST 

(* Window Size *) 
GadgetDemoLeft = 
GadgetDemoTop = 
GadgetDemoWidth = 
GadgetDemoHeight = 

(* Gadget IDs *) 
GDListView 
GDMX 

GDCheckbox 
GDCycle 
GDSlider 
GDString 

VAR 
Scr 

VisualInfo 
GadgetDemoWnd 
GadgetDemoGList 
ListViewList 
ListViewNodes 
GadgetDemoZoom 


60; 

30; 

230; 

130; 


I.ScreenPtr; 

ANYPTR; 

I.WindowPtr; 

I.GadgetPtr; 
e.List; 

ARRAY [7] OF e.Node; 
I.IBox; 
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Font 

Attr 

FontX, FontY 
OffX, OffY 


g.TextAttrPtr; 
g.TextAttr; 
INTEGER; 
INTEGER; 


CONST 

MXOLabels = ARRAY OF SysStringPtr:("It’s","mutually", 

"exclusive", NIL); 

CycleOLabels = ARRAY OF SysStringPtr:("Mama","mia","let", 

"me ","go", NIL); 

PROCEDURE Warn (REF txt: STRING); 

VAR es := I.EasyStruct:(structSize = I.EasyStruct’SIZE, 

title = "Gadget Demo", 

gadgetFormat = "Abort"); 

BEGIN 

es.textFormat := txt.data’PTR; 

FORGET I.EasyRequest (GadgetDemoWnd, es’PTR, NIL); 

END Warn; 


PROCEDURE Computex (value: INTEGER): INTEGER; 
BEGIN 

RETURN ((FontX * value) + 4 ) DIV 8; 

END ComputeX; 


PROCEDURE ComputeY (value: INTEGER): INTEGER; 
BEGIN 

RETURN ((FontY * value) + 4 ) DIV 8; 

END ComputeY; 


PROCEDURE ComputeFont (width, height: INTEGER); 
BEGIN 

Font := Attr’PTR; 

Font.name := Scr.rastPort.font.name; 

FontY := Scr.rastPort.font.ySize; 

Font.ySize := FontY; 

FontX := Scr.rastPort.font.xSize; 
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OffX := Scr.wBorLeft; 

OffY := Scr.rastPort.txHeight + CARDINAL(Scr.wBorTop) + 1; 

I Wenn der aktuelle Font zu groß ist verwende Topaz 8 
IF (width # 0) AND (height # 0) AND 

((ComputeX (width) + OffX + Scr.wBorRight > Scr.width) OR 
(ComputeY (height) + OffY + Scr.wBorBottom > Scr.height)) THEN 
Font.name := "topaz.font"; 

Font.ySize := 8; 

FontY := Font.ySize; 

FontX := Font.ySize; 

END; 

END ComputeFont; 

PROCEDURE Setupscreen; 

BEGIN 

Scr := I.LockPubScreen (NIL); 

ASSERT(Scr#NIL,NoScreen); 

ComputeFont (0, 0); 

Visuallnfo := gt.GetVisualInfo (Scr, DONE); 

ASSERT(Visualinfo#NIL,NoVisualInfo); 

END SetupScreen; 

PROCEDURE CloseDownScreen; 

BEGIN 

IF Visuallnfo # NIL THEN 

gt.FreeVisualInfo (Visuallnfo); 

Visuallnfo := NIL; 

END; 

IF Scr # NIL THEN 

I.UnlockPubScreen (NIL, Scr); 

Scr := NIL; 

END; 

END CloseDownScreen; 


(©1992/93 by StoneWare 




5.5. INTUITION & GADTOOLS 


127 


PROCEDURE OpenGadgetDemoWindow; 
VAR 


ng : gt.NewGadget; 

gad : I.GadgetPtr; 

Ic, tc, 

Ivc, 

of f X , 

offy : INTEGER; 

wleft, 
wtop, 

ww, wh : INTEGER; 

PROCEDURE InitNewGadget ( left, 

top, 
width, 
height 
REE text 
ID 


BEGIN 


f lags 


INTEGER; 

STRING; 

INTEGER; 

gt.NewGadgetFlagSet); 


ng.leftEdge 
ng.topEdge 
ng. width. 
ng.height 


= OffX + ComputeX (left); 
= OffY + ComputeY (top); 

= ComputeX (width); 

= ComputeY (height); 


IF text.len>0 THEN 


ng.gadgetText := text.data’PTR; 
ELSE 


ng.gadgetText := NIL; 

END; 

ng.textAttr := Font; 
ng.gadgetID := ID; 
ng.flags := flags; 

ng.visuallnfo := Visuallnfo; 
ng.userData := NIL; 

END InitNewGadget; 
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BEGIN 

wleft := GadgetDemoLeft; 
wtop := GadgetDemoTop; 

ComputeFont (GadgetDemoWidth, GadgetDemoHeight); 

ww := ComputeX (GadgetDemoWidth); 
wh := ComputeY (GadgetDemoHeight); 


IF wleft + ww + OffX + Scr.wBorRight > Scr.width THEN 
wleft := Scr.width - ww; 


END; 


IF wtop + wh + OffY + Scr.wBorBottom > Scr.height THEN 
wtop := Scr.height - wh; 


END; 

ListViewNodes[0].succ 
ListViewNodes[0].pred 
ListViewNodes[0].pri 
ListViewNodes[0].name 

ListViewNodes[1].succ 
ListViewNodes[1].pred 
ListViewNodes[1].pri 
ListViewNodes[1].name 

ListViewNodes[2].succ 
ListViewNodes[2].pred 
ListViewNodes[2].pri 
ListViewNodes[2].name 

ListViewNodes[3].succ 
ListViewNodes[3].pred 
ListViewNodes[3].pri 
ListViewNodes[3].name 

ListViewNodes[4].succ 
ListViewNodes[4].pred 


ListViewNodes[1]’PTR; 
ANYPTR(ListViewList.head’PTR); 
0 ; 

"It’s"; 

ListViewNodes[2]’PTR; 
ListViewNodes[0]’PTR; 

0 ; 

"a"*; 

ListViewNodes[3]’PTR; 
ListViewNodes[1]’PTR; 

0 ; 

"Kind"; 

ListViewNodes[4]’PTR; 
ListViewNodes[2]’PTR; 

0 ; 

"of"; 

ListViewNodes[5]’PTR; 
ListViewNodes[3]’PTR; 
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ListViewNodes [4].pri := 0; 

ListViewNodes [4].name := "Magic"; 

ListViewNodes[5].succ := ListViewNodes[6]’PTR; 

ListViewNodes[5].pred := ListViewNodes[4]’PTR; 

ListViewNodes[5].pri := 0; 

ListViewNodes[5].name := "it’s"; 

ListViewNodes[6].succ := ANYPTR(ListViewList.tail’PTR); 
ListViewNodes[6].pred := ListViewNodes[5]’PTR; 

ListViewNodes[6].pri := 0; 

ListViewNodes[6].name := "Cluster"; 

ListViewList.head := ListViewNodes[0]’PTR; 

ListViewList.tail := NIL; 

ListViewList.tailPred := ListViewNodes[6]’PTR; 

gad := gt.CreateContext (GadgetDemoGList); 

ASSERT(gad#NIL,NoGadgetContext); 

InitNewGadget (10, 15, 85, 55, 

"ListView", GDListView, {gt.placeTextAbove}); 
gad := gt.CreateGadgetTags (gt.listview, 

gad, ng, 

IvLabels : ListViewList’PTR, 

IvShowSelected : NIL, 

DÜNE); 

InitNewGadget (120, 15, 17, 9, 

"", GDMX, {gt.placeTextRight}); 
gad := gt.CreateGadgetTags (gt.mx, 

gad, ng, 

mxLabels : MXOLabels’PTR, 

DÜNE); 

InitNewGadget (10, 80, 26, 11, 

"Check",GDCheckbox, {gt.placeTextRight}); 
gad := gt.CreateGadgetTags (gt.checkbox, 

gad,ng, 

DÜNE); 
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InitNewGadget (120, 77, 70, 15, 

GDCycle, {}); 

gad := gt.CreateGadgetTags (gt.cycle, 

gad, ng, 

cyLabels : CycleOLabels’PTR, 

DÜNE); 

InitNewGadget (10, 100, 70, 15, 

GDSlider, {}); 

gad := gt.CreateGadgetTags (gt.slider, 

gad, ng, 

slMaxLevelLen : 6, 
slLevelFormat : "y.2.21d ", 

slLevelPlace : {gt.placeTextRight}, 
slFreedom : gt.horiz , 
slRelVerify : TRUE, 

DÜNE); 

InitNewGadget (120, 100, 70, 15, 

GDString, {}); 

gad := gt.CreateGadgetTags (gt.string, 

gad, ng, 

stString : "We are the Champions", 
stMaxChars : 256, 

DÜNE); 

ASSERT(gad#NIL,NoGadgets); 

I Größe des Fensters nach drücken des ZoomGadgets 
GadgetDemoZoom.left := wleft; 

GadgetDemoZoom.top := wtop; 

GadgetDemoZoom.width := g.TextLength (Scr.rastPort’PTR, 

"Gadget Demo".data[0]’PTR, 
11) + 80; 

GadgetDemoZoom.height:= Scr.wBorTop + 

INTEGER(Scr.rastPort.txHeight) + 1; 

GadgetDemoWnd := I.OpenWindowTags ( NIL, 

left : wleft, 

top : wtop. 
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width 

height 

IDCMP 


f lags 


gadgets 

title 

screenTitle 
pubScreen 
Zoom 
DÜNE); 


ww + OffX + Scr.wBorRight, 
wh + OffY + Scr.wBorBottom, 
gt.listViewIDCMP+gt.mxIDCMP+ 
gt.checkBoxIDCMP+gt.cycleIDCMP+ 
gt.sliderlDCMP+gt.stringIDCMP+ 
{I.closeWindow,I.refreshWindow}, 
{I.windowDrag,I.windowDepth, 

I.windowClose,I.activate, 

I.rmbTrap}, 

GadgetDemoGList, 

"Gadget Demo", 

"Gadgets in Cluster", 

Scr, 

GadgetDemoZoom’PTR, 


ASSERT(GadgetDemoWnd#NIL,NoWindow); 

gt.GT_RefreshWindow (GadgetDemoWnd, NIL); 
END OpenGadgetDemoWindow; 

PROCEDURE CloseGadgetDemoWindow; 

BEGIN 

IF GadgetDemoWnd # NIL THEN 
I.CloseWindow (GadgetDemoWnd); 
GadgetDemoWnd := NIL; 

END; 

IF GadgetDemoGList # NIL THEN 

gt.FreeGadgets (GadgetDemoGList); 
GadgetDemoGList := NIL; 

END; 

END CloseGadgetDemoWindow; 

PROCEDURE HandlelDCMP; 

VAR 

imsg : I.IntuiMessagePtr; 

item : I.MenuItemPtr; 

dass : I. IDCMPFlagSet; 
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iAddress : ADDRESS; 

Code : INTEGER; 

BEGIN 

imsg := gt.GT_GetIMsg (GadgetDemoWnd.userPort); 

WHILE imsg#NIL DO 

dass := imsg. dass; 

iAddress := imsg. iAddress; | Immer erst dass überprüfen, 

I bevor iAddress dereferenziert wird 

gt.GT_RepIyIMsg (imsg); 

IF KEY dass 

OF {I. doseWindow} THEN 
RAISE(LeaveMsgLoop); 

END 

OF {I.gadgetUp} THEN 

IF KEY I.GadgetPtr(iAddress).gadgetID 
OF GDListView THEN 

(* Code enthält den ausgewählten Eintrag *) 

END 

OF GDMX THEN 

(* Code enthält den ausgewählten Eintrag *) 

END 

OF GDCheckbox THEN 

IF (I.GadgetFIags.selected IN I.GadgetPtr(iAddress) .fIags)THEN 
(* angewählt *) 

ELSE 

(* nicht angewählt *) 

END; 

(* besser erst auslesen, wenn es gebraucht wird. *) 

END 

OF GDCycIe THEN 

(* Code enthält den ausgewählten Eintrag *) 

END 

OF GDSIider THEN 

(* Code enthält den eingestellten Wert. 

Achtung: wenn der Slider auch negative Werte annehmen kann, 
muß man code in einen INTEGER casten *) 

END 
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OF GDString THEM 

(* I .Stringlnf oPtrd .GadgetPtr(iAddress) . speciallnf o) .buffer 
enthält den eingegebenen Text. Erst auslesen, wenn 
es gebraucht wird.*) 

END 

ELSE 

END; 

END; 

OF {I.mouseMove} THEN 

(* iAddress in mouseMove ist nur dann gültig, wenn man 
GadTools’ GT_GetIMsg() verwendet, also Vorsicht! *) 

IF KEY I.GadgetPtr(iAddress).gadgetID 
OF GDSlider THEN 

(* Code enthält den eingestellten Wert *) 

END 

ELSE 

END; 

END; 

OF {I.refreshWindow} THEN 

gt.GT_BeginRefresh (GadgetDemoWnd); 

(* refresh *) 

gt.GT_EndRefresh (GadgetDemoWnd, TRUE); 

END; 

END; 

imsg := gt.GT_GetIMsg (GadgetDemoWnd.userPort); 

END; 

END HandleIDCMP; 

BEGIN 

TRY 

SetupScreen; 

OpenGadgetDemoWindow; 

TRY 

LOOP 

FORGET e.WaitPort(GadgetDemoWnd.userPort); 

HandleIDCMP; 

END; 
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EXCEPT 

OF LeaveMsgLoop THEN END 
END; 

EXCEPT 

OF NoVisuallnfo THEN 

WarnCCould not get a visual info") ; 
END 


OF NoScreen THEN 

WarnCCould not lock the public screen"); 

END; 

OF NoGadgetContext THEN 

WarnCCould not allocate the gadget context"); 
END 

OF NoGadgets THEN 

WarnCCould not allocate all gadgets"); 

END 


OF NoWindow THEN 

WarnCCould not open the window"); 
END 
END; 

CLOSE 


CloseGadgetDemoWindow; 
CloseDownScreen; 

END GadgetDemo. 


Mit dem hier vermittelten Wissen sollten Sie in der Lage sein, optisch 
ansprechende Benntzeroberflächen zn entwerfen. Weiterführende Infor¬ 
mationen über die Programmiernng findet man im RKM Libraries. Wie 
man seine Programme gestalten sollte, damit sie leicht bedienbar sind, 
steht im User Interface Style Gnide. 
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5.6 Graphics, der Künstler 

Dieses Abschnitt besfaßt sich nun mit der Library, die für die Graphi¬ 
kausgabe auf dem Bildschirm zuständig ist. Im Grunde sind alle Bild- 
schirmausgaben beim Amiga Graphikausgaben, er besitzt nicht wie an¬ 
dere Rechner einen eigenen Textmodus. 

5.6.1 Grundlegendes 

Alle grafischen Ausgaben werden auf sog. Bitplanes gemacht. Diese bes¬ 
tehen aus Speicherbereichen, mit sovielen Bits wie Punkten auf dem 
Bildschirm. Je nachdem, ob ein Bit in so einer Plane gesetzt ist oder 
nicht, ist auf dem Bildschirm ein Punkt gesetzt oder nicht. Mit einer 
Bitplane, die nur Informationen über gesetzte und nicht gesetzte Punkte 
kennt, kann man logischerweise auch nur zwei Farben darstellen. Eine 
für gesetzte und eine für nicht gesetzte Bits. 

Um mehr Farben zu erhalten, muß man mehrere Planes verwenden. 
Die Kombinationen der auf den einzelnen Planes gesetzten Bits ergibt 
dann die endgültige Farbe. Mit n Bitplanes kann man folglich 2” Farben 
darstellen. 

Im Normalfall muß sich der Programmierer nicht mit „Bitpopeln“ 
beschäftigen, das Betriebsystem unterstützt ihn dabei. Hierfür stellt es 
zwei Strukturen zur Verfügung: den Rastport. In ihn wird von vielen 
Funktionen gezeichnet. Und den ViewPort. In ihm stehen die Informa¬ 
tionen über die Farben oder die Auflösung. 

Screens und Windows haben beide den ViewPort gemeinsam, we¬ 
shalb man in Fenstern nie andere Farben als auf dem Screen verwenden 
kann. 

Sowohl Screen, als auch Fenster haben einen eigenen Rastport. In 
der Windowstruktur steht ein Zeiger auf dessen Rastport, ihn erhält man 
folgendermaßen: 

VAR 

rastPort : RastPortPtr; 
window : WindowPtr; 
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BEGIN 

I Öffnen des Fensters 
rastPort := window.rPort; 

Um den an den Rastportpointer einer Screen zu kommen, muß man, 
da in einer Screen nicht nur ein Zeiger auf eine Rastport, sondern eine 
komplette Rastportstruktur enthalten ist, schreiben: 

rastPort:= screen.rastPort’PTR; 

Um den ViewPortPointer einer Screen zu ermitteln muß man im Prinzip 
genauso Vorgehen: 

view := screen.viewPort’PTR; 

Um von einem Fenster aus dessen ViewPort zu ermitteln, muß man eine 
Stufe weiter gehen, da der ViewPort nicht direkt im Window verzeichnet 
ist: 

view := window.wScreen.viewPort’PTR; 

Bei diesen Beispielen muß screen vom Typ ScrenPtr, window vom 
Typ WindowPtr, view vom Typ ViewPortPtr und rastPort vom Typ 
RastPortPrt sein. Um den Inhalt dieser beiden Strukturen müssen Sie 
sich vorerst nicht kümmern, wir brauchen Sie nur, um sie an Prozeduren 
zu übergeben. 

5.6.2 Farben, einfach einzustellen, auch für Farben¬ 
blinde 

Sicher werden Sie sich über den Titel dieses Kapitels etwas wundern, aber 
es stimmt. Die Farbzusammensetzung ist sehr logisch, so daß man schon 
aus den Zahlenwerten recht gut abschätzen kann, wie die Farbe aussehen 
wird. Einer unserer Entwickler ist selbst farbenblind und stellt trotzdem 
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meist gute Farbwerte für seine Programme eiij^ er nennt es „Malen nach 
Zahlen“. Sie werden mir gleich zustimmen, denn alle Farben setzen sich 
aus drei Farbwerten zusammen: Aus Rot, Grün und Blau. Eine Farbe 
wird nun mit einer dreistelligen Hexzahl dargestellt: 


Farbe : $RGB 


Wobei R für den Rot-Anteil (0 - 15), G für den Grün-Anteil (0 - 15) und 
B für den Blau-Anteil (0 - 15) der Farbe steht. Ein Paar Beispiele: 

$FFF = Weiß 
$000 = Schwarz 
$F00 = Rot 
$0F0 = Grün 
$00F = Blau 
$FF0 = Gelb 


Bei der Earbmischung ist zu beachten, das es sich nicht um eine addi¬ 
tive Earbmischung wie bei Wasserfarben, sondern um die physikalische 
substraktive Earbmischung handelt. Wie schon gesagt, hat jeder Screen 


2 ^creentiefe Farbregister. Um nun die Earbe für ein solches RegisteG® 
einzustellen, kann man den Befehl SetRGB4() : benutzen. 


PROCEDURE SetRGB4( vp IN AO 

n IM DO 
r IM Dl 
g IN D2 
b IN D3 


ViewPortPtr; 
CARDINAL; 
CARDINAL; 
CARDINAL; 
CARDINAL ); 


Dabei gibt vp den Viewport, dessen Earbtabelle man verändern will, n 
die Nummer des Earbregisters und r, g, b den Rot-, Grün- und Blauan¬ 
teil der neuen Earbe an. 

Manchmal will man die Earbeinstellung eines Earbregisters auch aus- 
lesen, etwa um diese abzuspeichern. Hierzu kann GetRGB4() verwendet 

^^Ausnahmen bestätigen die Regel 

^®Beim Zeichnen gibt man nnr noch die Registernnmmer an. 
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werden. Dieser Funktion muß man jedoch keinen ViewPort sondern ei¬ 
nen Zeiger auf die Farbtabelle übergeben. Diesen finden Sie im ViewPort 
ihres Screens: 

colorMapPtr :=screen.viewPort.colorMap; 

PROCEDURE GetRGB4( colorMap IN AO : ColorMapPtr; 

entry IM DO : LONGINT ): LONGINT; 

Für entry übergibt man die Nummer des Farbregisters, das man ausle- 
sen möchte. Als Ergebnis erhält man einen codierten Farbwert: Farbe 
= $00000RGB. Um die einzelnen Farbwerte zu erhalten, muß man diese 
dekodieren: 

Rot = Farbe SHR 16 MOD 16 
Grün = Farbe SHR 4 MOD 16 
Blau = Farbe MOD 16 

Wurde als Farbregisternummer ein ungültiger Wert gewählt, erhält man 
-1 zurück. 

Will man alle Farbregister auf einmal verändern, kann man den Be¬ 
fehl LoadRGB4() verwenden: 

PROCEDURE LoadRGB4( vp IM AO : ViewPortPtr; 

colors IN Al : ANYPTR; 
count IN DO : INTEGER ); 

pv ist der ViewPort, der verändert werden soll. Bei colors handelt es 
sich um einen Zeiger auf eine Tabelle mit Farbeinträgen. Diese legt man 
am besten als Konstante ARRAY OF CARDINAL an, wobei jeder Eintrag 
der Eorm $0RGB entsprechen muß. entries schließlich gibt die Anzahl 
der Earbeinträge in der Tabelle an, die gesetzt werden sollen. 

Hierzu ein kleines Beispiel, ich habe unser Beispielprogramm zu 
Screens aus Intuition etwas verändert. Dabei wird auch zuerst eine 
Screen geöffnet und dann nach kurzer Zeit mit LoadRGB4() die Ear- 
bregister geändert: 
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MODULE ScreenDemo; 

FROM Strings IMPORT Str; 
IMPORT Intuition AS I, 


Dos 

AS 

d. 

Graphics 

AS 

g. 

Utility 

AS 

u; 


CONST 

Colors = ARRAY OF CARDINAL:($F00,$FF0,$00F,$0F7); iFarbtabelle 
VAR 

DefPubScreen, 

Screen : I.ScreenPtr; 

Drawinfo : I.DrawinfoPtr; 

ModelD : LONGINT; 

PROCEDURE Assert (c: BOOLEAN; REF txt : STRING); 

VAR 


es : I.EasyStruct; 


BEGIN 

IF NOT c THEN 


es := I.EasyStruct:(structSize = 

title = 

gadgetFormat = 

es.textFormat := txt.data’PTR; 
FORGET I.EasyRequest (NIL, es’PTR, 
HALT (20); 

END; 


I.EasyStruct’SIZE, 
"Screen Demo", 
"Abort"); 

NIL) ; 


END Assert; 


BEGIN 

DefPubScreen := I.LockPubScreen (NIL); 

Assert (DefPubScreen # NIL, "Unable to lock default Public Screen"); 

ModelD := g.GetVPModelD (DefPubScreen.viewPort’PTR); 

Assert (ModelD # g.invalidID, "Unable to get ModelD"); 


Screen := I.OpenScreenTags (NIL, 
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Assert (Screen # NIL, 


width 

DefPubScreen.width, 

height 

DefPubScreen.height, 

depth 

Drawinf o.depth, 

overScan 

I.text, 

autoScroll 

TRUE, 

pens 

Drawinf o.pens, 

sysfont 

I.wbSCreenFont, 

displaylD 

ModelD, 

title 

"Cloned Screen", 

pubName 
DONE); 

"SCRDEMO", 

Unable to open Screen"); 


I Hier wird der Screen öffentlich 
FORGET I.PubScreenStatus (Screen, 0) 

d.Delay(50); I Warten 

g.LoadRGB4(Screen.viewPort’PTR,Colors’PTR,Colors’RANGE); 

d.Delay (5 * 50); I Warten 
CLOSE 

IF DefPubScreen # NIL THEN 

I.UnlockPubScreen (NIL, DefPubScreen); DefPubScreen := NIL; 

END; 

IF Screen # NIL THEN 

WHILE NOT I.CloseScreen (Screen) DO 

I Falls der Screen nicht geschlossen werden konnte: 

FORGET I.EasyRequest (NIL, 

I.EasyStruct:(structSize = I.EasyStruct’SIZE, 

title = "Screen Demo", 

textFormat = "Please dose all visitor Windows" 

gadgetFormat = "So I did")’PTR, 

NIL) ; 

END; 

Screen := NIL; 
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END; 

END ScreenDemo. 

Alle Zeichenaktionen werden in der Farbe des APens ansgeführt, dieser 
ist im RastPort abgelegt. Um dem APen ein Farbregister znznweisen, 
existiert die Funktion SetAPenO: 

PROCEDURE SetAPenC rp IM Al : RastPortPtr; 

pen IM DO : CARDIMAL ); 

rp gibt dabei den Rastport an, dessen APen verändert werden soll. In 
pen steht das Farbregister, das dem APen zugeordnet werden soll. 

Der BPen, der nicht wie man vielleicht vermuten könnte die Hinter¬ 
grundfarbe enthält (diese steht immer in Farbregister 0), gibt die Farbe 
an, in der Lücken in Füllmustern oder hinter Text gefüllt werden soll. 

Um ihn zu verändern dient SetBPenO: 

PROCEDURE SetBPenC rp IM Al : RastPortPtr; 

pen IM DO : CARDIMAL ); 

Parameter siehe SetAPen. 

Um einen ganzen RastPort einzufärben, können Sie den Befehl SetRast () 
verwenden: 

PROCEDURE SetRast( rp IM Al : RastPortPtr; 

pen IM DO : CARDIMAL ); 

rp gibt den Rastport an, der eingefärbt werden soll; pen das Farbregister, 
mit dessen Farbe gefärbt werden soll. 

Bei Screens und GimmeZeroZero-Fenstern ist das kein Problem, da 
diese Art von Fenstern einen eigenen RastPort für den Rahmen haben. 

Bei normalen Fenstern muß man beachten, daß der Rahmen mitein¬ 
gefärbt wird. 
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5.6.3 Einfache Zeichenbefehle 

Bevor Sie jedoch etwas zeichnen können, müssen Sie noch festlegen, in 

welcher Art die gesetzten Pnnkte mit der BitMap verknüpft werden. 

Hierzn dient SetDrawModeO: 

PROCEDURE SetDrMdC rp IM Al : RastPortPtr; 

mode IN DO : DrawModeSet ); 

Für mode sind in Graphics zwei Konstanten definiert worden: 

jaml Der Pnnkt wird direkt in den Rastport geschrieben, freibleibende 

Flächen, bei Textausgabe etwa der Raum im „O“, oder bei Füllmustern, 
lassen die schon existierende Graphic durchscheinen. 

jaiii2 Ebenfalls als Konstante definiert. Wie jaml, jedoch werden freie 
Flächen mit dem BPen gefüllt. 

Die nächsten Modi arbeiten nur in Verbindung mit jaml oder jam2. Da 

mode ein Set ist, lassen sich folgende zusätzliche Flags setzen: 

complement Alle Punkte werden, bevor sie gesetzt werden, exklusiv geo- 
dert oder „geXORt“. Dies ist manchmal praktisch, wenn man 
nur etwas markieren will. Zeichnet man nämlich noch einmal mit 
dem selben Modus über die selbe Stelle, kommt die ursprüngliche 
Graphic wieder zum Vorschein. Verwenden Sie dabei den jam2, 
werden auch noch APen und BPen vertauscht. 

inversvid Ist eigentlich nur bei Textausgabe sinnvoll: Ausgegebener 
Text wird invertiert dargestellt. Wird dabei der jam2 verwendet, 
ist dies so, als würden Sie nur jam2 alleine verwenden, lediglich 
APen und BPen vertauschen ihre Rollen. 

Doch nun endlich zum Zeichnen, der erster Befehl dient dazu einen Punkt 

in der Farbe des APen in einen Rastport zu schreiben: 

PROCEDURE WritePixeK rp IM Al : RastPortPtr; 

X IM DO : INTEGER; 
y IN Dl : INTEGER ): BOOLEAN; 
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rp gibt den Rastport an, in den gezeichnet werden soll, x, y sind die 
Koordinaten des Pnnktes (x/y) relativ znr linken, oberen Ecke des Rast¬ 
port. 

Mit der folgenden Fnnktion kann man die Farbe eines bestimmten 
Pnnktes abfragen: 

PROCEDURE ReadPixeK rp IM Al : RastPortPtr; 

X IM DO : IMTEGER; 
y IM Dl : IMTEGER ): LOMGIMT; 

X, y gibt die Position des Pnnktes an nnd als Ergebnis erhält man die 
Nnmmer des Farbregisters, mit der Farbe des Pnnktes oder -1, wenn ein 
Fehler anftrat. 

Will man Linien zeichnen, mnß man sich nicht selbst eine Routine 
mit WritePixelO schreiben, dafür gibt es Draw(). DrawO zeichnet eine 
Linie von der aktuellen Position des Graphic-Cursors zu einer angegebe¬ 
nen Position x,y: 

PROCEDURE Draw( rp IM Al : RastPortPtr; 

X IM DO : IMTEGER; 
y IM Dl : IMTEGER ); 

Um den Graphic-Cursor zu versetzen, dient der Befehl Move(): 

PROCEDURE Move( rp IM Al : RastPortPtr; 

X IM DO : IMTEGER; 
y IM Dl : IMTEGER ); 

Um einen Kreis oder Ellipse zu zeichnen, können Sie DrawEllipse() 
benutzen: 

PROCEDURE DrawEllipse( rp IM Al : RastPortPtr; 

cX IM DO : IMTEGER; 

cY IM Dl : IMTEGER; 

a IM D2 : IMTEGER; 

b IM D3 : IMTEGER); 
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Diese Funktion zeichnet eine Ellipse mit dem horizontalen Radius a und 
dem vertikalen Radius b um den Mittelpunkt (cX/cY). 

Um einen Kreis zu zeichnen, der eigentlich nur ein Sonderfall der 
Ellipse ist, muß man nur für a und b den gleichen Wert angeben. Theo¬ 
retisch stimmt das, da jedoch die Bildpunkte des Monitors höher als 
breit sind (man hat ja auch keine 320*320 Punkte Auflösung), wird ein 
Kreis immer verzogen dargestellt. 

Um dies zu verhindern, müssen die beiden Radien das gleiche Verhältnis 
zueinander haben, wie die horizontale zur vertikalen Auflösung der Screen. 

Mit RectFillO, kann man gefüllte Rechtecke zeichnen: 

PROCEDURE RectFilK rp IM Al : RastPortPtr; 

xMin IM DO : IMTEGER; 
yMin IM Dl : IMTEGER; 
xMax IM D2 : IMTEGER; 
yMax IM D3 : IMTEGER ); 

Dabei wird das Rechteck über seine linke obere Ecke (xMin/yMin und 
seiner rechten unteren Ecke (xMax/yMax) definiert. Anmerkung: Das 
Rechteck wird mit dem momentan aktuellen Muster gefüllt. 

Um beliebige Vielecke oder Polygone zu zeichnen dient der Befehl 
PolyDrawO: 

PROCEDURE PolyDrawC rp IM Al : RastPortPtr; 

count IM DO : IMTEGER; 
array IM AO : AMYPTR ); 

count gibt die Anzahl der Eckpunkte an, für array wird ein Zeiger auf 
eine Liste der Eckpunkte übergeben. Am besten. Sie verwenden hierfür 
ein konstantes ARRAY OF INTEGER, wobei immer abwechselnd die x- und 
die y-Koordinate angegeben wird. 

Achtung: Da PolyDraw die erste Linie von der aktuellen Graphic- 
Cursor-Position aus zeichnet, sollte man den Cursor vor dem Prozedu¬ 
raufruf auf den letzten Punkt seines Arrays setzen, da man ja einen 
geschlossenen Linienzug haben will. 

Sie können mit Graphics auch Text ausgeben: 
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PROCEDURE TextStrC rp IN Al : RastPortPtr; 

REE String IN AO : STRING; 

count IN DO : LONGINT ); 

String ist der Clusterstring, der ausgegeben werden soll. Für len muß 
man die Anzahl der auszugebenden Zeichen angeben. Beispiel: 

TextStr(rastPort,string,string.len); 

Für alle C- und Assembler-Programmierer, die einen Pointer auf die Zei¬ 
chenkette übergeben wollen, existiert die ursprüngliche Prozedur Text (). 

Wichtig für die Verwendung von TextStr(): Der Text wird immer 
linksbündig ausgegeben. Dabei gibt der Cursor die Position der haseline 
des ersten Zeichens an. 

5.6.4 Flächen und Muster 

Neben den schon vorgestellten Zeichenbefehlen existieren noch die Area- 
Befehle. Diese sind eigentlich auch zum Zeichnen von Polygonen da, 
allerdings für wesentlich kompliziertere und außerdem ausgefüllte Poly¬ 
gone. 

5.6.4.1 Flächen 

Bevor man jedoch diese Befehle verwenden kann, muß man einige Vorbe¬ 
reitungen treffen. So muß man für all diese Befehle einen Speicherbereich 
allozieren, eine TmpRas- und eine Arealnf o-Struktur initialisieren. 

Den Speicherbereich sollten Sie mit AllocateO aus Resources al¬ 
lozieren. Bitte setzen sie chip auf TRUE, da dieser Speicher im Chip- 
Memory liegen sollte. 

Die Speichergöße errechnet sich folgendermaßen: 

((Breite des Rastports+15)DIV16*2)*Höhe des Rastports 
Um die TmpRas-Struktur zu initialisieren dient InitTmpRas (): 
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PROCEDURE IiiitTmpRas ( VAR tmpras IN AO : TmpRas; 

buffer IN Al : ANYPTR; 
size IN DO : LONGINT ); 

Dieser Prozedur übergeben Sie eine Variable vom Typ TmpRas, einen 
Zeiger auf das Speicherstück, das Sie mit Allocate erhalten haben, so¬ 
wie die Größe des Speicherstücks. Die Berechnung erfolgt wie bei der 
Allozierung. 

Nachdem Sie eine TmpRas-Strucktur auf diese Weise vorbereitet ha¬ 
ben, müssen Sie mit InitAreaO noch eine Arealnfo-Struktur erzeugen: 

PROCEDURE InitAreaC VAR areainfo IN AO : Areainfo; 

buffer IN Al : ANYPTR; 
maxvectors IN DO : INTEGER ); 

Für areainfo übergibt man eine Variable des Typs Areainfo, für buff er 
einen Zeiger auf den Puffer für die Punkt-Koordinaten. Am besten ver¬ 
wenden Sie hierfür eine Variable vom Typ ARRAY OF [0. . (Anzahl_Punkte*5) ] 
OF SHORDCARD. Wobei Anzahl_Punkte die maximale Anzahl der von Ih¬ 
nen verwendeten Punkte sein sollte. Dabei muß man beachten, daß man 
für einen Kreis oder eine Ellipse (auch die ist mit Area-Befehlen mach¬ 
bar) 2 Punkte braucht. Am besten Sie planen immer etwas mehr Punkte 
ein, sicher ist sicher, maxvectors bezeichnet die maximale Anzahl von 
Punkten. 

Hat man beide Variablen initialisiert, muß man nur noch jeweils 
einen Zeiger auf diese in die Rastportfelder tmpRas und areainfo ein¬ 
tragen. 

Hat man all diese Vorbereitungen getroffen, kann nun recht einfach 
ein Polygon abgesteckt werden. Mit AreaMoveO setzen Sie den neuen 
Startpunkt für ihr Polygon und gleichzeitig werden noch offene andere 
Polygone geschlossen: 

PROCEDURE AreaMoveC rp IN Al : RastPortPtr; 

X IN DO : INTEGER; 
y IN Dl : INTEGER ): BOOLEAN; 
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(x/y geben dabei den neuen Startpunkt an. Falls ein Fehler auftrat, 
erhält man FALSE als Ergebnis. 

Mit AreaDrawO kann man nun neue Punkte definieren: 

PROCEDURE AreaDrawC rp IM Al : RastPortPtr; 

X IN DO : INTEGER; 
y IM Dl : INTEGER ): BOOLEAN; 

Haben Sie alle Punkte definiert, müssen Sie es mit AreaEndO schließen. 
Dabei muß man nicht wie bei PolyDrawO den ersten Punkt noch ein¬ 
mal anwählen. AreaEndO verbindet automatisch den zuletzt gesetzten 
Punkt mit dem ersten und füllt die Eläche mit dem momentan aktuellen 
Muster. Ist kein Muster definiert, wird die Eläche ganz in der Earbe des 
APens gefüllt. Tritt ein Eehler auf, wird EALSE zurückgegeben. 

PROCEDURE AreaEndC rp IM Al : RastPortPtr ): BOOLEAN; 

rp gibt dabei den Rastport an, dessen Areadefinition abgeschlossen wer¬ 
den soll. Tritt ein Eehler auf, wird EALSE zurückgegeben. 

Man kann jedoch nicht nur Polgone, sondern auch Kreise und Ellipse 


zeichnen: 


PROCEDURE AreaEllipseC rp IM Al 

RastPortPtr; 

cX IM DO 

INTEGER; 

cY IN Dl 

INTEGER; 

a IM D2 

INTEGER; 

b IM D3 

INTEGER): BOOLEAN; 


Auf eine Erklärung der Parameter kann wohl verzichtet werden. 

Möchte man, daß eine mit Area-Befehlen erzeugte Eläche eine Um¬ 
randung erhält, so muß man dazu die Nummer des gewünschten Earbre- 
gisters in das aOlPen-Eeld des Rastports eintragen. 

Ein weiterer Befehl, der eigentlich kein Area-Befehl ist, jedoch eben¬ 
falls eine TempRas-Struktur benötigt, ist FloodO: 

PROCEDURE FloodC rp IN Al : RastPortPtr; 

mode IN D2 : LONGCARD; 

X IN DO : INTEGER; 

y IM Dl : INTEGER ):BOOLEAN; 
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FloodO füllt eine Fläche mit dem aktuellen Muster von einem bestimm¬ 
ten Punkt an in der Farbe des APens. 

die Parameter sind wahrscheinlich bis auf mode verständlich. Für diesen 
Parameter kann man zwei Werte übergeben: 

1 Der gesamte zusammenhängende Bereich in der Farbe des Punktes 
(x/y) wird gefüllt. 

2 Es wird solange gefüllt, bis FloodO auf die Farbe des aOlPen- 
Feldes im Rastort trifft. 

All diese Funktionen geben zwar einen Boolwert zurück, diesen kann 
man jedoch meistens mittels FORGET vergessen. 

5.6.4.2 Muster bei Linien 

Nun war mehrmals vom aktuellen Füllmuster die Rede. Sie können 
nämlich nicht nur komplett ausgefüllte Flächen und Linien erzeugen, 
sondern diese mit einem Füllmuster versehen. 

Ein Linienmuster ist 16 Bit groß, entspricht also einem Word oder 
einer Cardinal-Zahl, in der jedes gesetzte Bit für einen gesetzten Punkt 
steht. Gesetzte Punkte werden dabei in der Earbe des APens, nicht 
gesetzte in der Earbe des BPens gezeichnet. Normalerweise sind hier alle 
Bits gesetzt, also %1111111111111111. Um z. B. eine gepunktete Linie zu 
erhalten, müßte man folgendes Muster definieren: %1100110011001100. 
Damit ein solches Muster auch in einem Rastport verwendet wird, muß 
man das Muster in das linePtrn-Eeld des Rastports eintragen. Beispiel: 

window.rPort.linePtrn:=$1100110011001100; 

5.6.4.3 Flächenmuster 

Ein Elächenmuster ist ebenfalls 16 Bit breit, und eine beliebige Zweier- 
Potenz (also 1,2,4,8,16...) hoch. Als Höhe gibt man jedoch nicht die 
Anzahl, sondern nur deren Zweier-Potenz an, also 3 für 8 (2^ = 8). Am 
besten definiert man es als konstantes ARRAY OF CARDINAL. Danach muß 
man einen Zeiger auf das Array sowie die Zweier-Potenz in den Rastport 
eintragen: 
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CONST 

pattem = ARRAY OF CARDINAL: ( 7.0011001100110011 , 

7.1100110011001100 ); 


BEGIM 

window.rPort.areaPtrn:=pattern’PTR; 
window.rPort.areaPtSz:=1; 

Um ein Muster zu löschen müssen Sie in areaPtrn NIL und in areaPtSz 
0 schreiben. 

Neben einfarbigen Füllmustern sind auch mehrfarbige möglich. Dazu 
muß man für jede BitPlane der BitMap, für die das Muster gelten soll, 
ein eigenes Muster definieren. Dabei wird aus der Kombination in den 
verschiedenen Planes die endgültige Farbe des Punktes ermittelt. Das 
folgende Beispiel ist gültig für zwei BitPlanes: 


Plane 1 

Plane 2 

Farbe 

0 

0 

0 

1 

0 

1 

0 

1 

2 

1 

1 

3 


Um dem System mitzuteilen, daß man im MultiColor-Mode arbeiten 
möchte, muß man die Musterhöhe negativ angeben. Zusätzlich sollte 
man 

• Den APen auf 255 setzen, als Anzeige für MultiColor-Mode. 

• Den BPen auf 0 setzen 

• jam2 als Zeichenmodus wählen. 

Beispiel: 

TYPE 

Pattern = ARRAY [0..1], [0..3] OF CARDINAL; 
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CONST 

pat = Pattern: (yoOOllOOllOOllOOll , (* Erste BitPlane *) 
y.OllllOOOOllllOOO, 
y.oiiiiooooliiiooo, 
y.ooliooliooliooli), 

(y.OlOOllOOllOOllOO, (* zweite BitPlane *) 

y.ioiioiooloiioiii, 

y.ioiioiooloiioiii, 

y.OlOOllOOllOOllOO)) ; 

BEGIN 

WITH window.rPort AS r DO 
r.areaPtrn:=pattern’PTR; 
r.areaPtSz:=-2; 

SetAPenCr,255); 

SetBPenCr,0); 

SetDrMdCr,jam2); 

RectFill(r,100,100,150,170); 

END 

END; 

Vervollständigen Sie doch das obige Beispiel und probieren Sie es aus. 


5.6.5 Weitere Befehle 


Möchte man einen bestimmten Bereich des Bildschirm scrollen, so kann 
man dazu ScrollRastO benutzen: 


PROCEDURE ScrollRasterC rp IM Al 

dx IM DO 
dy IN Dl 
xMin IN D2 
yMin IN D3 
xMax IN D4 
yMax IM D5 


RastPortPtr; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER ) ; 
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Der Inhalt des Rechtecks mit der linken oberen (xMin/yMin) und rechten 
unteren Ecke (xMax/yMax) wird um dx Pixel in horizontaler und um dy 
Pixel in vertikaler Richtung verschoben. 

Bemerkung: Scrollraster verschiebt nicht einen Bereich auf einer 
Screen, sondern nur den Inhalt des Rechtecks innerhalb des selben. Da¬ 
bei verringert dieser sich dementsprechend. Verschiebt man ihn um posi¬ 
tive dx/dy-Werte, wird der Rechteckinhalt in Richtung (0/0) verschoben. 
Der freiwerdende Platz im Rechteck wird in der Farbe des BPens gefüllt. 


Bei manchen Zeichenoperationen kann starkes Flackern auftreten. 
Um dies zu verhindern, sollte man diese Zugriffe auf die Bitmap nur 
innerhalb der Austastlücke des Zeilenstrahls machen. Um auf diese zu 
warten, dient: 

PROCEDURE WaitTOFO; 

PROCEDURE WaitBOVP( vp IM AO : ViewPortPtr ); 

WaitTOFO wartet, bis der Zeilenstrahl am unteren Bildschirmrand an¬ 
gekommen ist und den Rücklauf nach oben antritt. WaitTOFO erhält 
seine Information direkt aus einem Hardwareregister; man muß kein Pa¬ 
rameter angeben. 

WaitBOVP0 wartet, bis der Elektronenstrahl am unteren Ende des 
übergebenen ViewPorts angekommen ist. Bei mehreren überlappenden 
Screens wartet er also bis zum Ende des sichtbaren Bereichs der Screen. 

In einigen Fällen ist nötig, die aktuelle Zeilenposition des Elektro¬ 
nenstrahls zu wissen, hierzu dient VBeamPosO: 

PROCEDURE VBeamPosO: LONGINT; 


Als Erbegnis erhält man die aktuelle vertikale Position des Zeilenstrahls. 
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5.6.6 HAM und Extra-Halfbrite. 

Bisher gingen wir immer davon aus, daß eine Screen höchstens 32 Far¬ 
ben haben kann. Es sind aber auch noch mehr möglich, nämlich 64 oder 
gar 4096. Für beide Modi wird eine Bitplane zusätzlich benötigt. Bei 
welchen Auflösungen die möglich ist, hängt von der Version der Gra¬ 
phikchips ab, die in Ihrem Amiga eingebaut sind. 

Um auf 64 Farben im sogenannten Extra-Halfbrite-Mode zu gelan¬ 
gen, müssen Sie lediglich als Tiefe beim Offnen 6 angeben und für den 
Tag displaylD palMonitorID + extrahalfbriteKey eintragen. Da¬ 
durch erhalten wir 64 unabhängige Farbregister. Leider sind jedoch 
nicht alle 64 Farben unabhängig, sondern die oberen 32 sind die sel¬ 
ben wie die unteren 32, jedoch mit der halben Helligkeit. Wenn man 
aber die Farbwahl geschickt trifft, kann man mit dieser Einschränkung 
ganz gut arbeiten. 

Beim HAM-Modus müssen Sie ebenfalls 6 Bitplanes verwenden und 
palMonitorID + hamKey beim Offnen des Screens angeben. Danach 
können Sie 4096 Farben verwenden, allerdings nicht ganz unabhängig. 
Zuerst müssen Sie 16 frei gewähle Farben in Farbregister 0-15 eintragen. 

Um nun von 16 auf 4096 Farben zu kommen, verwendet das Be¬ 
triebssystem einen kleinen Trick. Sie können entweder die Farben 0-15 
verwenden, oder die Farbe des Punktes links von ihrer Position auf dem 
Bildschirm übernehmen und eine der drei Farbkomponenten Rot, Grün 
oder Blau verändern. Hierzu dienen die Register 16-63. Dabei ist 16-31 
für die Veränderung der Blaukomponente, 32-47 für die Veränderung 
der Rotkomponente, 48-63 für die Veränderung der Grünkomponente 
zuständig. 

Welche neue Farbkomponente welcher Registernummer zugeordnet ist, 
geht aus der nächsten Tabelle hervor: 
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Nummer 

Blauwert 

Nummer 

Rotwert 

Nummer 

Grünwert 

16 

0 

32 

0 

48 

0 

17 

1 

33 

1 

49 

1 

18 

2 

34 

2 

50 

2 

19 

3 

35 

3 

51 

3 

20 

4 

36 

4 

52 

4 

21 

5 

37 

5 

53 

5 

22 

6 

38 

6 

54 

6 

23 

7 

39 

7 

55 

7 

24 

8 

40 

8 

56 

8 

25 

9 

41 

9 

57 

9 

26 

10 

42 

10 

58 

10 

27 

11 

43 

11 

59 

11 

28 

12 

44 

12 

60 

12 

29 

13 

45 

13 

61 

13 

30 

14 

46 

14 

62 

14 

31 

15 

47 

15 

63 

15 


Noch einmal: Verwendet man die Register 16-63, werden zwei Farbkom- 
ponenten beibehalten und eine verändert. Um also von einer Farbe auf 
eine komplett neue, die nicht in Register 0-15 vorhanden ist, zu kom¬ 
men, benötigt man immer mindestens drei Pixel, da bei jedem Schritt 
ja nur eine der drei Komponenten verändert werden kann. 

Wichtig: Man kann keine Farbe von einer Bildschirmzeile in die nächste 
übernehmen. Der Punkt, der theoretisch links vom linken Bildschirm¬ 
rand liegen würde, hat daher immer die Hintergrundfarbe, also die Farbe 
aus Register 0. 

Selbstverständlich kann dieses Kapitel Graphics nicht vollständig 
abhandeln. Dies soll auch gar nicht Sinn dieses Kapitels sein. Es soll nur 
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einen Abriß der wichtigsten Fnnktionen bieten, damit man die wnnder- 
baren Grafikfähigkeiten des Amigas nntzen kann, ohne erst viele Bücher 
zu kaufen zu müssen. 
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5.7 Devices 

In einem Mnltitaskingsystem kann nicht jeder Task frei über alle Re- 
sonrcen des Systems verfügen. Alle Ein/Ausgaben werden über spezielle 
Gerätetreiber, sogenannte „Devices“ abgehandelt. Für den Bildschirm 
gibt es keine speziellen Gerätetreiber, da dies einfach zu langsam und 
unflexibel wäre. 

Ein Gerätetreiber ist eine Art Library mit sehr wenigen Prozeduren. 
Diese werden im allgemeinen nicht durch ein Programm direkt anges¬ 
prungen, sondern indirekt über Exec. 

Ein Device muß, bevor darauf zugegriffen werden kann, erst geöffnet 
werden. Dies ist etwas komplexer als das Offnen einer Library, da erst 
noch einige Strukturen erzeugt werden müssen. Devices können auch 
nicht im Begin-Teil des zugehörigen Schnittstellenmodus geöffnet wer¬ 
den, da manche Devices nur immer mit einem Task gleichzeitig Zusam¬ 
menarbeiten. 

Um diesem Problem Herr zu werden, gibt es in jedem Schnittstellen¬ 
modul eine Open- und eine Glose-Prozedur. Wird ein Device nicht wie¬ 
der geschlossen, schließt der Glose-Teil des Schnittstellenmoduls dieses 
automatisch am Ende des Programms. 

Die Kommunikation mit einem Device erfolgt über lORequests, die 
diesem über Exec geschickt werden. Es handelt sich dabei um eine Erwei¬ 
terung der Message-Struktur. Diese wird allerdings nicht mit PutMsgO 
an das Device übermittelt, sondern mit speziellen lO-Prozeduren von 
Exec. Man erhält einen Zeiger auf eine initialisierte lO-Struktur beim 
Offnen eines Devices. Diese muß immer verwendet werden, wenn das 
Device benutzt wird. 

Es gibt in Exec fünf Prozeduren, die sich mit Devices befassen und 
für uns interessant sind: 
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PROCEDURE SendlOC ioRequest IM Al : lORequestPtr ); 

Diese Prozedur schickt eine Ein/Ausgabeanforderung an ein Device. Sie 
wartet nicht bis die Aktion beendet ist, sondern kehrt sofort zurück. Die 
Aktion läuft dann parallel im Hintergrund ab. 

PROCEDURE ChecklOC ioRequest IN Al : lORequestPtr ): lORequestPtr; 

ChecklOO prüft, ob die in Auftrag gegebene Aktion bereits beendet ist. 

Als Ergebnis erhält man NIL, falls der Auftrag noch bearbeitet wird, 
sonst einen Zeiger auf den lORequest. 

PROCEDURE WaitIO(ioRequest IN Al : lORequestPtr):lOReturn; 

WaitlOO setzt den Task solange in den Wartezustand, bis die Ein/Ausgabeaktion 
beendet ist. 

PROCEDURE AbortIO(ioRequest IM Al : lORequestPtr); 

Abort 10 0 bricht die aktuelle Ein/Ausgabeaktion ab. 

PROCEDURE DoIO(ioRequest IM Al : lORequestPtr):lOReturn; 

DoIOO beginnt eine Ein- / Ausgabeaktion und warte bis diese beendet 
ist. Als Rückgabewert erhält man, ob ein Eehler augetreten ist, dazu 
gleich mehr. Exec erkennt das gewünschte Device am lORequest, der 
übermittelt wird. Dieser unterscheidet sich leicht bei den meisten De¬ 
vices. Gemeinsam sind die Eelder: 

lORequest = RECORD OF Message 

device : DevicePtr; 

unit : UnitPtr; 

command : lOCommand; | CARDINAL 

flags : lOFIagSet; 

error : lOReturn; | SHORTCARD 

END; 
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device : Zeiger auf das zugehörige Device. 

unit : Nummer des angesprochenen Gerätes, falls ein Device für meh¬ 
rere Geräte zuständig ist, wie z. B. das trackdisk.device: 0 für 
DFO:; 1 für DFl: etc. 

command : Befehl, der ausgeführt werden soll. Eigentlich nur eine Num¬ 
mer, in Ginster die Elemente eines Aufzählungstyps. 

flags : Spezielle Elags, die von Device zu Device variieren. Gemein¬ 
sam ist Bit 0, das angibt, ob eine Operation im Quick-Mode durch¬ 
geführt werden kann. 

error : Eehlerrückmeldung des Devices. Eolgende Meldungen sind im¬ 
mer möglich: 

ioOk Kein Eehler, alles ok. 

openFail Das Device konnte nicht geöffnet werden, 
aborted Der Befehl wurde abgebrochen. 
noCmd Unbekanntes Kommando. 

Diese Eehlermeldungen kann man auch von DoIOO als Ergebnis 
erhalten. 

Viele Devices benutzen einen leicht erweiterten lORequest, den lOStdRequest. 
Dieser verfügt über folgende zusätzliche Eelder: 


lOStdReq 


= RECORD OF lORequest 
actual, 


length. 

data 

Offset 

END; 


LONGCARD; 
ANYPTR; 
LONGCARD; 


actual : Anzahl der bewegten Bytes, 
length : Anzahl der zu bewegenden Bytes. 
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data : Zeiger auf Datenpuffer im Speicher, muß bei manchen Devices 

im Chip-Mem liegen. 

off set : Position relativ zu data, ab der die Daten gelesen/geschrieben 
werden sollen. 

Einige Ein/Ausgabebefehle sind für alle Devices standardisiert: 

invalid Kein Befehl. 

reset Device zurücksetzen. 

read Vom Device lesen. 

write In Device schreiben. 

update Alle Puffer im Speicher ausschreiben. 

clear Puffer leeren. 

stop Alle Aktionen des Devices werden unterbunden. 

Start Die Aktionen, die durch stop unterbunden wurden, werden wie¬ 
der weiter ausgeführt. 

flush Alle Ein/Ausgabeaktionen von der Warteliste streichen. 

Eolgende Devices sind im Amiga standardmäßig vorhanden: 

Audio : Soundausgaben. 

Clipboard : Ablage von Datenblöcken. 

Cousole : Zeichenorientierte Eingabe über ein Konsolfenster. 
Gauieport : Maus, Joysticks und Paddels, 
luput : Vereinigt das Gameport- und das Keyboard-Device. 
Keyboard : Eingabe über Tastatur. 

Narrator : Sprachsynthesizer. 

Parralel : Parallel-Schnittstelle. 
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Printer : Druckerausgabe. 

Serial : Ein/Ausgabe über die serielle Schnittstelle. 

Timer : Zeitgeber. 

Trackdisk : interne und externe Diskettenlaufwerke. 

Auf einge dieser Devices möchte ich nun etwas genauer eingehen. Dies 
soll keine Abhandlung des Themas „Devices“ sein, da dies dafür sicher 
nicht der richtige Ort ist, lediglich ihre Verwendung unter Cluster soll 
gezeigt werden. Für weitere Informationen seien der Band Devices der 
„Amiga ROM-Kernal Referance Manuals“ von Addison Wesley empfoh¬ 
len. 

5.7.1 Serial Device 

Das Serial-Device steuert die Ein/Ausgabe über die interne serielle Schnitts¬ 
telle. Dazu gibt es einige zusätzliche Befehle und einen erweiterten 10- 
Request. Folgende neuen Befehle gibt es: 

query Stellt fest, wieviele Zeichen im Eingabepuffer enthalten sind. 

break Abbruch der Übertragung. 

setParams Einstellung für die Schnittstelle ändern. 

Die Datenübertragung erfolgt über Befehle read und write. 

Um das Device zu öffen, müssen noch einige zusätzliche Infomationen 
übergeben werden. Dies geschieht über Tags. Davon interessieren uns 
allerdings nur die Tags name und serFlags: 

name : SystStringPtr; 

Der Namen des Devices. Schließlich gibt es in der Zwischenzeit 
einige serielle Erweiterungskarten, die befehlskompatibel zum se¬ 
rial, device sind. Wird dieser Tag nicht angegeben, wird das se¬ 
rial, device geöffnet. 
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serFlags : SerFlagSet; 

Einige Flags, die bestimmte Einstellungen bei dem Device be¬ 
wirken. Hiervon sei hier nur das Flag shared erwähnt. Dieses 
Flag sollte man setzen, wenn man das Device auch anderen Tasks 
gleichzeitig zugänglich machen will. Will man von der seriellen 
Schnittstelle gleichzeitig lesen und schreiben, muß man das Device 
zweimal shared öffnen und verwendet zum Lesen und Schreiben 
jeweils eine eigene lOSerial-Struktur. 
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Das folgende Beispiel zeigt, wie man mit dem serial.device Daten ausgibt: 

MODULE SerialWrite; 

FROM Serial IMPORT lOSerialPrt,OpenSerial,CloseSerial,SerFlags, 

SerFlagSet,lOSerialTags; 

FROM Exec IMPORT DoI0,write; 

COMST 

Text = "Dies ist ein Text !"+&10; 

VAR 

ioser : lOSerialPtr; 

BEGIN 

I Versuchen, das Device zu öffnen 

ioser := OpenSerial(tags:= serFlags : {shared}); 

I Befehl vorbereiten 
WITH ioser" AS s DO 
s.command := write; 
s.length := Text.len; 
s.data := Text.data’PTR; 

END; 

I Befehl ausführen *) 

FORGET DoIO(ioser); 

I Normalerweise müßte man hier prüfen, ob ein Fehler auftrat. 

I Device wieder schliessen 
CloseSerial ( ioser ); 

END SerialWrite. 
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Soll vom Device gelesen werden, empfiehlt es sich nicht einfach stnr 
zn warten, sondern eine Anszeit zn verwenden, nach der die Eingabe 
abgebrochen wird: 

MODULE SerialRead; 

FROM Serial IMPORT lOSerialPrt,OpenSerial»CloseSerial,SerFlags, 

SerFlagSet,lOSerialTags; 

FROM Exec IMPORT SendIO,CheckI0,Abort10,Wait10,read; 

FROM InOut IMPORT WriteString; 

VAR 

ioser : lOSerialPtr; 
buffer : STRING(200); 

BEGIN 

I Versuchen , das Device zu öffnen 

ioser := OpenSerial(tags:= serFlags : {shared}); 

I Befehl vorbereiten 
WITH ioser" AS s DO 
s.command := read; 

s.length := -1; (* beliebige Länge, bis 0 Byte empfangen *) 
s.data := buffer.data’PTR; 

INCL ( s.serFlags, eofMode ); 

END; 

I Befehl starten 
SendIO(ioser); 

I 

I hier irgentwas tun, oder ein bestimmte Zeit warten 

I 

IF ChecklO(ioser")#NIL THEN | Schon fertig ? 

I Eingabe beenden 

WaitIO ( ioser" );| Warten bis das Device wirklich fertig ist. 

I Eigentlich hier Fehler abfragen ! 
buffer.len := ioser".actual; 

WriteString(buffer); 

ELSE 

I Eingabe Abbrechen 
AbortlO(ioser); 
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WaitIO(ioser); 

END; 

I Device wieder schliessen 
CloseSerial(ioser); 

END SerialRead. 

Neben diesen Lese- nnd Schreiboperationen gibt es auch die Möglichkeit, 
die Parameter der seriellen Schnittstelle zu verändern. Dies läuft über 
den Befehl setParams. Die Felder des erweiterten lORequest müssen 
entsprechend gefüllt werden. Hier der erweiterte Request: 

lOSerial = RECORD OF lOStdReq 


ctlChar 

LONGCARD; 

rBufLen 

LONGCARD; 

extFlags 

ExtSerFlagSet; 

baud 

LONGCARD; 

brkTime 

LONGCARD; 

termArray 

ARRAY [0..1] OF LONGCARD; 

readLen 

SHORTCARD; 

writeLen 

SHORTCARD; 

stopBits 

SHORTCARD; 

serFlags 

SerFlagSet; 

Status 

StatusSet; 


END; 

ctlChar Kontrollzeichen für XON/XOFF Protokoll. 

rBufLen Länge des device-eigenen Eingabepuffers. 

extFlags Flags für Paritätsprüfung. 

band Baudrate der Übertragung. 

brkTime Zeit, die für ein Breaksignal nötig ist. 

termArray 8 Bytes, die bei Empfang die Eingabe abbrechen. 

readLen Anzahl der Bits pro Zeichen, die gelesen werden. 

writeLen Anzahl der Bits pro Zeichen, die geschrieben werden. 
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stopBits Abzahl der Stop-Bits pro Zeichen. 

serFlags Flags, die die Übertragung steuern. Es handelt sich um die 
selben Flags, die schon beim Offnen des Devices verwendet wur¬ 
den: 

parityOn Paritätsprüfung einschalten. 
parityOdd Auf ungerade Parität prüfen. 
sevenWire Erweiterte Schnittstelle nutzen. 

queuedBrk Break-Befehle werden in einer Warteschlange abgear¬ 
beitet. 

radBoogie Es wird auf alles Handshaking verzichtet, um maxi¬ 
male Ubertragungsgeschwindigeit zu sichern. 

shared Andere Tasks können die Schnittstelle gleichzeitig benut¬ 
zen. 

eofMode Veranlaßt, das die Eingabe bei Übereinstimmung eines 
Zeichens mit dem TermArray abgebrochen wird. 

xDisabled XON/XOFF abschalten. 

Status Status der Schnittstelle. 

Für die einzelnen Felder existieren auch Tags, so daß man bereits beim 

Offnen Einstellungen machen kann. 
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5.7.2 Timer Device 

Das Timerdevice verwaltet die im Amiga enthaltenen Uhren. Dies sind 
die Zähler der CIAs, die Mikroseknnden zählen, nnd ein Zähler, der die 
VerticalBlanks des Bildschirms zählt. Er länft mit 50 Hz bzw. 60 Hz 
(NTSC). Das Device wird mit eigenen Befehlen gesteuert: 

getSysTime Holt die Systemzeit. 
setSysTime Setzt die Systemzeit. 

addRequest Fügt einen Warterequest in die Warteschlange ein. 

Die Uhrzeit setzt sich aus Sekunden und Mikrosekunden zusammen (lei¬ 
der ist es mir noch nie gelungen, Zeiten mit einer größeren Genauigkeit 
als 20 Millisekunden zu erhalten). 

Neben diesen Device typischen Befehlen gibt es noch Prozeduren, die 
eher an eine Library erinnern. Sie werden wie ganz normale Libraryfunk¬ 
tionen benutzt. Vorraussetzung ist allerdings, daß das Device geöffnet 
ist. Folgende Funktionen gibt es: 

PROCEDURE AddTimeCVAR dest IN AO, 

source IN Al : TimeVal); 

Addiert die Zeitdauer in source zur Zeit in dest. 

PROCEDURE Sublime (VAR dest IN AO, 

source IN Al : TimeVal); 

Zieht von der Zeitdauer in dest die Zeit source ab. 

PROCEDURE CmpTimeCVAR timel IN AO, 

time2 IN Al : TimeVal):INTEGER; 

Vergleicht die Zeit timel mit der Zeit in time2. Das Ergebnis ist: 

-1 für timel ist später als time2 
0 für timel ist gleich time2 
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1 für timel früher als time2 

Beim Öffnen dieses Devices ist es nötig, die Art der Uhr, die verwendet 
werden soll, anzngeben. 

Beispiel: Messen einer Zeitdauer 

MODULE Duration; 

FROM Exec IMPORT DoIO; 

FROM Timer IMPORT lOTimerPtr,OpeiiTimer,CloseTimer,getSysTime,vBlank, 

SubTime,TimeVal; 


VAR 

Start,end : TimeVal; 
iotime : lOTimePtr; 

PROCEDURE GetTime (VAR time : TimeVal); 

BEGIN 

iotimer.command := getSysTime; 

DoIO(iotimer); 
time := iotimer.time; 

END GetTime; 

PROCEDURE WriteTime (time : TimeVal); 

BEGIN 

WriteReaI(LONGREAL(time.secs)+LONGREAL(time.rnicro)/!.E6,10,2); 
END WriteTime; 

VAR 

i : INTEGER; 

BEGIN 

iotimer: =OpeiiTimer (vBIank) ; 

GetTime(Start) ; 

FOR i := 1 TO 100000 DO END; 

GetTimer(end); 

SubTime(end,Start); 
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WriteTime(end); WriteLn; 

CloseTimer(iotimer); 

END Duration; 

Und jetzt noch ein Beispiel 100 Milliseknnden zn warten: 


iotimer.command := addRequest; 
iotimer.time.secs := 0; 
iotimer.time.micro := 1000000; 
DoIO ( iotimer ); 
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6.1 Wozu hardwarenah programmieren? 


Ein Prozessor, wie der 68000 (oder auch ein Prozessor höheren Typs) 
in ihrem Amiga ist kein Spezialist, sondern mehr ein Allroundtalent. 
Er kann keine komplizierten Dinge, ist aber in dem, was er kann, sehr 
schnell. So verfügt er über eine Anzahl von Befehlen, die nur ziemlich 
wenig bewirken, z. B. zwei INTEGER-Zahlen zu addieren. Daher ist das 
Programmieren in Maschinensprache extrem aufwendig, und nur schwer 
zu durchschauen. Eine Hilfe ist ein Assembler, der den Befehlen Namen 
giblj^, und sonst noch einige Unterstützung bietet. Dennoch bleibt diese 
Art des Programmierens aufwendig und fehlerträchtigj^ 

In einer höheren Programmiersprache (wie Cluster) geht die Pro¬ 
grammierung wesentlich schneller von der Hand, da man, um den glei¬ 
chen Effekt wie in Assembler zu erreichen, eine viel geringere Zahl an 
Befehlen benötigt. Außerdem verfügt ein Compiler über eine Vielzahl 
von Kontrollen, die die Eehlersuche erleichtern. Obwohl ein von einem 
Compiler übersetztes Programm in den meisten Eällen schnell genug isP^ 
gibt es doch Eälle, in denen ein rein in Maschinensprache geschriebenes 
Programm schneller oder durch das System bedingt notwendig ist. 

Maschienennahes Programmieren bedeutet nun, daß man sich diesen 
untersten Ebenen annähert. Das bedeutet zum einen, maschienennahe 
Elemente der Sprache Cluster zu nutzen, oder gar direkt in Assembleij^ 
zu programmieren. 


^Der Prozessor kennt schließlich nnr Zahlen als Befehle 
^Auch wenn dies von fanatischen Assembler-Programmierern bestritten 
wird. Es soll sogar Lente geben, die in Assembler komplette C-|—|- Compi¬ 
ler entwickelt haben. 

^Oft könnte nnr ein sehr gnter Assembler-Programmierer das erzengte Ma¬ 
schinenprogramm noch verbessern 
^Allerdings sehr komfortabel 
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6.2 Wie funktioniert ein Computer 


Ein Computer ist eine Maschine, wie andere auch. Der Unterschied zu 
z. B. einem Auto ist, daß sich nichts sichtbar bewegtj^ Doch erfüllt 
er viele Aufgaben, von denen man meinen könnte, daß sie Intelligenz 
verlangten. Dieses Image des Elektronengehirns, hat durch viele SE- 
Eilme weitere Nahrung gewonner|^ 

So ist es nicht verwunderlich, daß viele Menschen denken, ein Com¬ 
puter sei so kompliziert, daß ein normaler Mensch ihn gar nicht verstehen 
könne. Denken Sie immer daran, ihr Rechner kann nicht einmal bis drei 
zählen. 

Ein Computer ist ein extrem modulares Gebilde, d. h. er gliedert sich 
einem Organismus ähnlich, in immer kleinere Teile. Die Extremitäten 
sind die Peripherie, die Organe die Bausteine (Chips), die Zellen die 
Schaltkreise, die sich wieder in Transistoren u. ä. zergliedern lassen. Es 
ist nicht nötig, jederzeit den Computer bis ins kleinste zu kennen, es ist 
nur wichtig, die Übergänge der einzelnen Stufen zu verstehen. 


6.2.1 Von Bits, Bytes, Hexen und Zeichen 


Den einfachsten Computer, den es wohl gibt, halten Sie immer in Händen, 
ihre Einger. Nehmen wir an Sie können jeden Einger entweder auss¬ 
trecken oder zurückbeugen, also zwei Zustände anzeigen. Ein Object, 
daß zwei Zustände (ja/nein, 0/1, wahr/falsch, TRUE/EALSE) anneh¬ 
men kann, bezeichnet man als Bit, genauer hat die Information ein Bit® 

Ein Bit ist die kleinste mögliche Informationseinheit. Ihre Einger 
haben eine Kapazität von 10 Bit, ihr Amiga hat mindestens 8 Millionen 
davon. 

Wie weit kann man mit zehn Eingern zählen? Bis zehn natürlich. 


®Wenn man einmal von dem Föhn im A 2000 absieht 

^ Es soll ja Lente geben, die sich bekrenzigen, wenn sie einen Compnter 
sehen 

®Von Binary Digit, engl, (extrem wörtlich) „Finger“, der zwei Znstände 
einnehmen kann. Sie sehen, anch ein Computer rechnet mit seinen Fingern, 
er hat allerdings einge Millionen davon 
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darum auch unser Dezimalsystem. Mit dem richtigen Verfahren kann 
man mit ihren Fingern allerdings auch wesentlich weiter zählen, etwa 
bis 1OOC0 

Jedem Bit wird ein Wert zugeordnet, dem ganz rechts der Wert 1, 
dem nächsten 2 dann 4,8,16,32..., immer den vorigen Wert mal zwei. 
Der effektive Wert der Zahl ergibt sich aus der Summe der Werte der 
gesetzten Bits. 





153 


Die Bits einer Zahl werden von rechts nach links durchnumeriert, das 
niederwertigste Bit erhält die Nummer 0. So hat das Bit mit der Nummer 
n, den Wert 2” (also 2-2-2-2-...-2,n mal). Diese Schreibweise ist 
analog zur normalen Schreibweise im Zehnersystem, nur daß der Faktor 
von einer Ziffer zu nächsten nicht 10, sondern nur zwei ist. 

®wenn auch ein wenig Biegsamkeit verlangt wird 
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Es leuchtet so ein, daß es möglich ist, mit n Bits alle Zahlen von 0 bis 
(2”^) — 1 darzustellen. Eine Addition mit Binärzahlen (so der Eachaus- 
druck) verläuft wie eine Addition im Dekadischen (Zehner-) System. 

123 01111011 

+247 +11110111 

370 101110010 

Um die Subtraktion zu erläutern, müssen zuerst die negativen Zahlen 
definiert werden. Um möglichst gleich viele positive wie negative Zahlen 
zu haben, verwendet man ein zusätzliches Bit, um das Vorzeichen zu 
markieren. Dieses Bit ist jenes, welches ganz links hegt. Ist es 0, ist die 
Zahl positiv, sonst negativ. Dieses Bit hat bei n Bits einfach den Wert 

_2(n-l)_ 


-128 


-L 


-128 



o 

<- 

64 



o 

<- 

32 

16 

<- 


<- 

16 

8 

<- 



8 



o 

<- 

4 



o 

<- 

2 

1 

<- 


<- 

1 


\U 


-103 


Um dieses Verfahren anwenden zu können, muß man eine feste Länge 
der Zahlen vorgeben, sonst könnte man das Vorzeichenbit nicht vom 
höchstwertigen einer positiven Zahl unterscheiden. Diese Art der Dars¬ 
tellung negativer Zahlen nennt man 2er Komplement. Warum, das wird 
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deutlich, wenn man sich die Umwandlung einer Zahl in die entsprechende 
negative Zahl ansieht. Zuerst werden alle Bits umgedreht (aus 1 wird 0 
und aus 0 wird 1), dies nennt man 1er Komplement. Danach wird zu 
der entstandenen Zahl 1 addiert. 



Nachdem man die negativen Zahlen eingeführt hat, kann man eine Sub¬ 
traktion auf eine Addition mit dem 2er Komplement zurückführen. 

Da bei einer Darstellung dieser Art festgelegt wurde, daß alle Zahlen 
eine bestimmte Länge haben, kann es passieren, daß ein Wert nicht mehr 
in den darstellbaren Bereich hineinpaßt. Ein Fehler dieser Art nennt man 
Überlauf: 

Beispiel, 8 Bits: 

112 01110000 
+ 52 +00110100 


164 10100010 = -92 

Passiert in Cluster eine derartige Bereichsverletzung, wird, sofern er 
nicht ausgeschaltet wurde, ein Laufzeitfehler ausgelöst, da ein derartiger 
Überlauf in den wenigsten Fällen erwünscht ist. 

Da es ziemlich unpraktisch ist, immer in Bits zu rechnen, faßt man 
immer 8 Bits zu einem Byte zusammen. Weitere Zusammenfassungen 
sind beim 680XXer 16 Bits ein Wort, 32 Bits ein Langwort und 64 Bits 
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ein Doppelwort In Cluster repräsentieren diese mit den skalaren, dis¬ 
kreten Zatilentypen: 


Byte ohne Vorzeichen 
Byte mit Vorzeichen 
Wort ohne Vorzeichen 
Wort mit Vorzeichen 
Langwort ohne Vorzeichen 
Langwort mit Vorzeichen 


0... 255 SHORTCARD 

-127... 128 SHORTINT 

0... 65535 CARDINAL 

-32768... 32767 INTEGER 

0... 4294967295 LONGCARD 

-2147483648... 2147483647 LONGINT 


Da es ziemlich aufwendig ist, zwischen dezimal und binär hin und her 
zu rechnen, es andererseits aber extrem unpraktisch ist, immer mit 
Binärzahlen zu rechnen, hat man ein weiteres Zahlensystem eingeführt, 
das Hexadezimalsystem. In diesem System ist die Basis die 16. Die feh¬ 
lenden Ziffern von 10 bis 15 werden durch die ersten sechs Buschtaben 
des Alphabeths gebildet. Da 2^ genau 16 ist, werden immer vier Bits in 
einer Hexadezimalziffer zusammengefaßt. 


Dez 

Bin 

Hex 

Dez 

Bin 

Hex 

0 

0000 

0 

8 

1000 

8 

1 

0001 

1 

9 

1001 

9 

2 

0010 

2 

10 

1010 

A 

3 

0011 

3 

11 

1011 

B 

4 

0100 

4 

12 

1100 

C 

5 

0101 

5 

13 

1101 

D 

6 

0110 

6 

14 

1110 

E 

7 

0111 

7 

15 

1111 

E 


Findet kaum Verwendung 
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Binärzahlen lassen sich recht einfach in Hexzahlen umwandeln, und sind 
so einfach zu handhaben. 



Cluster versteht alle diese Zahlenformate. Dezimalzahlen werden ohne 
Vorsatz geschrieben, z. B. 153, Binärzahlen mit einem Vorgesetzten Pro¬ 
zentzeichen yolOOllOOl und Hexzahlen mit einem Dollarzeichen $9SF^ 
Nun werden Sie vielleicht einwenden, daß ein Computer doch auch 
Zeichen verarbeiten kann. Falsch, er tut nur so! Alle Zeichen (Buchsta¬ 
ben, Ziffern etc.) werden einfach durchnumeriert, so daß der Computer 
wieder seine geliebten Zahlen vor sich hat. Für diese Numerierung gibt 
es einen Quasistandard: ASCh(^ und seine europäische Erweiterung 
ISO 8859-1, welcher auch im Amiga verwendet wirc 


13 


Beim diesen Codes werden immer 8-Bits, also ein Byte, für ein Zei¬ 
chen verwendet. ASCH verwendet die Codes von 32 bis 127 für die 
darstellbaren Zeichen; ISO verwendet zusätzlich noch die Werte von 240 
bis 255 für Europäische Sonderzeichen. Die freien Werte werden mit 
Sondercodes wie Zeilenvorschub, Seitenvorschub oder Tab belegt. 

Die Ziffern liegen in den Codes von 48 bis 57 („0“ ist 48, „1“ ist 49 
und „9“ ist 57), so daß es recht einfach ist, ein String aus Ziffern in eine 
Zahl umzuwandeln. 


PROCEDURE ConvertCVAR s : STRING):INTEGER; 

VAR i,sum : INTEGER; 

Diese Symbole haben sich bei Assemblerprogrammierern durchgesetzt 
American Standard Code for Information Interchange“ 

^^Nur eine große Computerfirma mit blauen Rechnern hält sich nicht da¬ 
ran, und verwendet einen total chaotischen Code, der sich auf eine spezielle 
Eigenart von Lochkarten stützt. Soviel zum Thema „Kompatibilität“. 
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BEGIN 
sum:=0; 

FÜR i:=0 TO s.len-l DO 

sum: =suiii* 10+INTEGER(s .data[i] )-INTEGER("0") 

END; 

RETURN sum 
END Couvert; 

6.2.2 Der Speicher 

Ein normaler Amiga 2000 hat standardmäßig etwa 8 Millionen Bits 
Schreib/Lese Speicher (RAM). Diese bilden nnn nicht eine einzige Zahl, 
sondern sind anf eine Million Bytes anfgeteilt. Immer zwei dieser Bytes 
sind wieder zn einem Wort znsammengefaßt. Die Bytes werden nnn 
wiedernm dnrchnnmeriert, nnd zwar von 0 aufsteigend. Diese Nummer 
nennt man Adresse. Ein 68000 kann 16 MillioneiJ^ verschiedene Adres¬ 
sen verwenden, ein 68030/40 noch ein vielfaches mehr. Außer für das 
RAM werden einige Adressen auch noch für andere Aufgaben benötigt, 
so daß ein Amiga 2000 mit 68000er nicht mehr als 8 MB verwalten kann. 
Ab einem 68020, sind der Speichergröße praktisch keine Grenzen mehr 
gesetztp^ 

Auf diesen Adressen hegen das ROM (nur lesbarer Speicher) mit 
einem Teil des Betriebssystems, sowie Bausteine zur Ein- Ausgabe. Diese 
Bausteine haben vielfältige Aufgaben zu erfüllen. Dazu brauchen sie 
viele Daten, und liefern auch eine Menge Information zurück. Dazu 
haben sie gemeinsame Speicherzellen mit dem Prozessor. 

Der RAM-Speicher des Amiga gliedert sich in zwei Teile, dem Chip- 
Mem und dem East-Mem. Auf das Chip-Mem können auch andere Bau¬ 
steine des Computers zugreifen, in ihm liegen zum Beispiel die Daten, 
die nötig sind um ein Bild auf dem Bildschirm erscheinen zu lassen. Das 

h. er könnte 16 Mega-Byte Speicher bzw. Erweiterungen verwalten, im 
Gegensatz zu einer anderen Rechnerfamilie, die noch immer nicht ohne großen 
Aufwand über 640KBytes hinauskommt. 

^^Außer vielleicht durch den Geldbeutel. 
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Fast-Mem steht allein dem Prozessor zur Verfügung, und heißt so, weil 
der Zugriff darauf nicht durch andere Systemteile gebremst wird. 

Der Prozessor ist mit mehreren Leitungen mit seinem Speicher ver¬ 
bunden. Diese sind grob unterteilt Daten und Adressleitungen. Der 
68000 hat 16 Daten und 23 Adressleitungen. Somit greift er immer zwei 
Bytes auf einmal zu. Dies hat zur Folge, daß Daten, die Größer sind als 
ein Byte, immer auf geraden Adressen liegen müssen. 

6.2.3 Der Prozessor 

Der Prozessor (im Amiga ein 680XXer von Motorola) ist das Herz des 
Computers. Der Prozessor arbeitet ein Programm ab, das in einem spe¬ 
ziellen Code im Speicher abgelegt ist. Dieser Code besteht aus einfachen 
Befehlen und dazugehörigen Daten. Er ist für jeden Rechnertyp ver¬ 
schieden. Da er speziell auf den Prozessor zugeschnitten ist, ist er nicht 
leicht zu verstehen. 

Die Sprache besteht immer aus einem Befehl, mit impliziten, bzw. 
nachgestellten Daten. Diese Befehle holt sich der Prozessor nacheinander 
aus dem Speicher und führt sie aus. 

Ein Prozessor besteht grob aus drei Teilen, einem kleinen Speicher 
(Register), einer Recheneinheit (ALU) und einem Teil, der die Befehle 
ausführt (Decoder). 

Die Register gliedern sich wieder in zwei Gruppen, solche, die für 
den Programmierer da sind, und solche, die der Prozessor für seine Ar¬ 
beit benötigt. Der Vorteil solcher Register ist, daß ein Zugriff auf sie 
wesentlich schneller ist, als ein Zugriff auf den normalen Speicher. 

Eür den Benutzer stehen acht Daten-, und sieben Adreßregister zur 
Verfügung. Die Datenregister haben die Namen DO, Dl, D2. . .D7 und 
sind je nach bedarf 8,16 oder 32 Bit lang. Die Adreßregister heißen AO 
bis A6 und sind immer 32 Bit breit. Der Unterschied zwischen diesen 
Registern ist der, daß viele arithmetische Befehle wie Multiplizieren nur 
mit Datenregistern funktionieren. Dagegen sind Adreßregister dazu da, 
auf Dinge im Speicher zu zeigen, sie entsprechen somit Pointern. 

Die wichtigsten drei Register des Prozessors sind der Programm¬ 
zähler PC, der Stapelzeiger SP und das Statusregister SR. 
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Im PC steht immer die Adresse des nächsten Befehls, den der Pro¬ 
zessor ausführt. Schreibt man in dieses Register, führt der Prozessor 
seine Arbeit an einer anderen Stelle weiter, darum nennt man dies einen 
Sprung. 

Der SP ist ein Zeiger auf einen Stack im Speicher. Dieser Stack 
wächst nach unten, der Adresse 0 zu. Auf diesem Stack werden Daten 
abgelegt, um sie später wieder zu holen, so z. B. die Rücksprungadressen 
bei Unterprogrammaufrufen. 

Das SR Register ist mit einem Set vergleichbar, es enthält mehrere 
Flags, die den Zustand des Prozessors wiederspiegeln. 

Die ALU ist der Teil des Prozessors, der für ihn Operationen ausführt, 
wie etwa den Inhalt zweier Register zu addieren, eine Zahl mit einem 
Register zu multiplizieren oder ähnliches. Die ALU setzt nach den meisten 
Operationen einige Flags im SR. War das Ergebnis z. B. null, so setzt sie 
das Zero-Flag, tritt ein Überlauf auf, das Overflow-Flag usw. 

Der Decoder verwaltet ALU und Register. Nacheinander führt er für 
jeden Befehl folgende Tätigkeiten aus: Zuerst holt er aus dem Speicher 
den nächsten Befehl. Dann wird er dekodiert und schließlich ausgeführt. 
Nebenbei werden noch nötige Daten, die dem Befehl folgen, aus dem 
Speicher geholt. Diese Aktionen werden mehrere Millionen mal pro Se¬ 
kunde ausgeführt. 

Dies alles wird durch einen externen Taktgenerator am laufen gehal¬ 
ten. Jeder Befehl braucht eine gewisse Zahl an Takten. Generell läßt sich 
sagen, daß ein Befehl mit mehr Daten aus dem Speicher länger braucht, 
als einer mit weniger. Die Addition zweier Registerinhalte braucht 8 
Zyklen, die Addition einer Konstanten zu einer Speicherstelle dagegen 
bis zu 36 Zyklerj^ Es ist also ratsam, Daten, die häufiger benötigt 
werden, in einem Register zu halten. 

Ein 68000er hat mehrere Möglichkeiten, die Adresse seiner Daten zu 
ermitteln, sogenannte Adressierungsarten. 

Register: Die Daten hegen in einem der Register im Prozessor 

Direkt oder Immediate: Die Daten hegen direkt hinter dem Befehl, 
oder sind in diesen hineincodiert. 

16 


bei einem 68000 
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Absolut: Dem Befehl folgt die Adresse, in der die Daten stehen. Diese 
Adressiernngsart ist im allgemeinen die langsamste, da immer zwei 
Worte für die Adresse znsätzlich gelesen werden müssen. 

Indirekt: Die Adresse der Daten liegen in einem der Adreßregister, 
entspricht der Adressiernng mit Pointern. 

Indirekt mit Displacement: Die Adresse der Daten ist der Inhalt 
eines Adreßregisters plns einer Konstanten, entspricht der Adres¬ 
siernng eines Elements in einem Record. 

Indirekt mit Index: Die Adresse der Daten ist die Snmme eines Adreß¬ 
registers plns dem Inhalt eines Datenregisters, entspricht der Adres¬ 
siernng in einem Record. 

Postincrement: Die Adresse der Daten ist der Inhalt eines Adreß¬ 
registers. Nach der Operation wird der Inhalt dieses Adreßre¬ 
gisters nm die Länge des Operators erhöht. 

Predekrement: Die Adresse der Daten ist der Inhalt eines Adreß¬ 
registers. Vor der Operation wird der Inhalt dieses Adreßregisters 
um die Länge des Operators vermindert. 

PC-Relativ: Die Adresse ist die Summe aus dem Inhalt des PC und ei¬ 
ner Konstanten. Diese Adressierung ist schneller, als die Absolute, 
da immer nur ein Wort für die Konstante verwendet wird. Diese 
Adressierung findet bei Sprüngen und Konstanten Anwendung. 

6.2.4 Assembler 

Da die Darstellung der Befehle in Maschinencode fast nicht zu lesen sind, 
gibt man ihnen, und den zugehörigen Adressierungsarten Namen bzw. 
Schlüsselzeichen. Die folgende kleine Einführung in 68000er Assembler 
soll Ihnen das Verstehen der in diesem Kapitel gezeigten Assemblerse¬ 
quenzen erleichtern. 

Eine Assembleranweisung besteht immer aus einem Befehl und kei¬ 
nem, einem oder zwei Operanden. Hat der Befehl keine Operanden, so 
sind diese meist im Befehl enthalten. 
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Man unterscheidet Quell- und Zieloperanden. In den Zieloperanden 
wird das Ergebnis der Operation geschrieben. Er steht bei zwei Operan¬ 
den immer rechts. 

Beispiel: 

ADD.W DO,Dl 


ADD-Befehlsnamen (Mnemonic) 

.W- Längenkennzeichen, B=Byte,W=Wort,L=Langwort 

DO- Quelloperand 

Dl- Zieloperand 


Diese Anweisung bildet die Summe aus dem Inhalt von DO und Dl, und 
speichert das Ergebnis nach Dl. Diese Operation hat Wortbreite. Bei 
Befehlen mit nur einem Operand ist meist klar, ob es sich um Ziel (Des¬ 
tination) oder Quelle (Source) handelt. 

NEG.L DO 

Diese Operation hat nur einen Zieloperanden, nämlich DO. 
Adressierungsarten werden durch Spezielle Symbole gekennzeichnet: 


DO 

Register 

(AO) 

Indirekt 

124(A0) 

Indirekt mit Displacement 

10(A0,D0) 

Indirekt mit Index (und Displacement) 

124 

Absolut 

124(PC) 

PC-Relativ 

(A0) + 

Postincrement 

-(AO) 

Predecrement 


Die Elags des SR werden als BOOLEAN-Variablen aufgefaßt, und haben 
die Namen: 
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Z : Zero , zeigt Gleichheit oder Null an 
N : Negativ 

C : (Carry) Übertrag, für Vorzeichenlose Zahlen, 
d. h. bei einer Operation hatte das Ergebnis 
mehr Bits, als der Zieloperand groß war. 

V : Überlauf, für Vorzeichenbehaftete Zahlen 

Diese Bits werden im allgemeinen durch die vorherige Operation nach 
deren Ergebnis gesetzt. 


6.2.4.1 

Operationen 

für beliebige Daten: 

MOVE 

<src>,<dst> 

dst 

: =src 

6.2.4.2 

Operationen 

für Zahlen 

ADD 

<src>,<dst> 

dst 

=dst+src 

SUB 

<src>,<dst> 

dst 

=dst-src 

MUL 

<src>,<dst> 

dst 

=dst*src 

DIV 

<src>,<dst> 

dst 

=dst DIV src 

NEG 

<dst> 

dst 

=-dst 

ASL 

<src>,<dst> 

dst 

=dst SHL src 

ASR 

<src>,<dst> 

dst 

=dst SHR src (Vorzeichenbehaftet) 

LSR 

<src>,<dst> 

dst 

=dst SHR src (Vorzeichenlos) 

EXT.W 

<dst> 

dst 

=INTEGER(SHORTINT(dst)) 

EXT.L 

<dst> 

dst 

=LONGINT(INTEGER(dst)) 


6.2.4.3 

Operationen 

für Mengen 

OR 

<src>,<dst> 

dst:=dst+src 

AND 

<src>,<dst> 

dst:=dst*src 

EOR 

<src>,<dst> 

dst:=dst/src 

NOT 

<dst> 

dst:=-dst 

BCLR 

<src>,<dst> 

EXCL(dst,src) 


©1992/93 by StoneWare 





6.2. WIE FUNKTIONIERT EIN COMPUTER 


15 


BSET <src>,<dst> INCL(dst,src) 

BCHG <src>,<dst> FLIP(dst,src) 

BTST <src>,<dst> Z:=NOT (src IN dst) (Z = Zero-Flag) 


6.2.4.4 Sprünge 

Anweisungen mit Sprüngen können nicht ohne weiteres in Cluster nach¬ 
gebildet werden, da höhere Programmiersprachen bewußt auf Sprünge 
verzichten. Allerdings werden viele Clusterkonstrukte in Sprünge umge¬ 
wandelt. Das Ziel eines Sprungs ist mit einem Namen (Label) bezeich¬ 
net, der früher oder später mit einem nachfolgenden Doppelpunkt am 
Ziel steht (Beispiele folgen). 

JMPjBRA <dst> Setzen die Ausführung bei dst weiter 

Bcc <dst> Führt den Sprung nur dann aus, 

wenn die Bedingung cc erfüllt ist. 


Folgende Bedingungen sind für cc immer möglich: 


CS 

= C 

IN 

SR 


cc 

= NOT 

(C IN 

SR) 

EQ 

= Z 

IN 

SR 


NE 

= NOT 

(Z IN 

SR) 

VS 

= V 

IN 

SR 


VC 

= NOT 

(V IN 

SR) 


und nach einem Vergleich, 

CMP <src>,<dst> 


EQ := src=dst (Z IN SR) 

NE := src#dst (NOT (Z IN SR)) 


Vorzeichenlos: 
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HI := dst>src 
LS := dst<=src 
CG := dst>=src 
CS := dst<src 

Mit Vorzeichen 

GT := dst>src 
LE := dst<=src 
GE := dst>=src 
LT := dst<src 

Scc <dst> dst:=cc 

Entspricht der Znweisnng an eine Booleanvariable. Die Bedeutnng von 
cc ist wie oben bei Bcc. 

Noch ein Beispiel znm Schlnß, das Ermitteln der größeren zweier Zahlen. 
Die Zahlen befinden sich zn Begin in DO nnd Dl, die größere von beiden 
soll nachher in Dl sein. 


IF D1>DC 

THEN 

D0:=D1 END 

CMP.W 

DO,Dl 

;D0 mit Dl vergleichen 

BLE 

end 

;wenn nicht D1>D0, dann nächsten Befehl 
;überspringen 

MOVE.W 

Dl,DO 

;D0:=D1 

end: 


;nach hier wird gesprungen 


Neben diesen Sprüngen, die hauptsächlich für Schleifen und IF. . THEN- 
Verzweigungen verwendet werden, existiert noch ein Sprung, der beim 
Aufruf einer Prozedur verwendet wird. Er bietet eine Besonderheit, 
nämlich daß es eine einfache Methode gibt, das Programm am Ende 
der Prozedur wieder an der Stelle fortzusetzen, an der die Prozedur auf¬ 
gerufen wurde: 

JSR <dst> Legt den Inhalt des PC auf den Stapel 

und springt nach dst, Unterprogrammaufruf 
RTS Holt den PC wieder vom Stapel, Rücksprung. 
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Sie wissen zwar wahrscheinlich alle was ein Stapel ist, für den Fall, daß 
es Ihnen gerade entfallen ist, hier noch einmal die wichtigste Eigenschaft: 
Das Element, daß als letztes daranfgelegt wird, bekommt man auch als 
erstes wieder zurück. Mit den folgenden beiden Befehlen läßt sich auf 
den Stapel (Stack) Platz für lokale Variablen verwalten. 

LINK Ax,<src> Erzeugt auf dem Stapel einen freien 

Bereich von der Größe src in Bytes, 
der dann über das Adreßregister Ax 
angesprochen werden kann. 

UNLK Ax Macht den Vorgang wieder rückgängig. 


Mit dem Stapelzeiger des Prozessors kann wie mit einem normalen Adreß¬ 
register adressiert werden. Der Stapel wird mit Hilfe des Postincrement 
und Predecrement realisiert. 

Beisp: Pushen und Poppen eines Worts in DO 

MOVE.W DO,-(SP) Auf dem Stapel wird Platz geschaffen, 

d. h. der SP wird nach unten verschoben, 
und dann der Inhalt von DO eingetragen. 

MOVE.W (SP) + ,D0 Der letzte Wert des Stapels wird in DO 

gebracht. Danach 

wird der Platz wieder freigegeben. 


Auf das aktuelle Element kann immer mit (SP), und auf frühere Ele¬ 
mente mit d(SP) zugegriffen werden. Dabei ist zu beachten, das der 
Stapel nach unten wächst, also das letzte Element das niedrigste Dis¬ 
placement besitzt. Außerdem ist beim berechnen des Displacements 
zu beachten, daß auf dem Stack Elemente verschiedenster Größe hegen 
können. 

Ein Problem ist, daß nicht bei jedem Befehl alle Adressierungsarten 
als Quelle und Ziel kombiniert werden können. So ist es bei den Arith¬ 
metischen Operationen nötig, daß mindestens ein Operand ein Register 
oder eine Konstante sein muß. Es gibt auch spezielle Versionen einiger 
Befehle mit Konstanten, die schneller arbeiten. 
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MOVEQ 

#Imm,<dst> 

Bringt eine Konstante im Bereich von 
-128 bis 127 als Langwort nach dst. 

ADDQ. X 

#Imm,<dst> 

Addiert eine Konstante im Bereich von 
1 bis 8 zu dem Wert in dst. 

SUBQ. X 

#Imm,<dst> 

Zieht eine Konstante im Bereich von 1 
bis 8 von dem Wert in dst ab. 


6.3 Maschinennahe Techniken in Cluster 

Wie schon Anfangs beschrieben, kann selbst ein gnter Compiler nicht im¬ 
mer optimalen Code liefern. Für Clnster besteht noch ein znsätzliches 
Handicap, da er nnr ein Singlepass-Compiler ist. Er kann folglich nicht 
sehen, was für ein Befehl als nächstes kommt, was für die Codegene- 
riernng manchmal sehr wichtig wäre. Es gibt jedoch eine Eülle von 
Möglichkeiten, den Compiler bei der Codegeneriernng zn nnterstützen. 
Dazn ist es aber notwendig zn wissen, wie Clnster die einzelnen Strnkn- 
ren nnd Daten in Assembler nmsetzt. Clnster bietet viele Möglichkeiten, 
maschinennahes Programmieren zn nnterstützen. Wenn man diese an- 
znwenden weiß, erhält man in 99 von 100 Eällen ein Ergebnis, daß man 
auch in Assembler nicht mehr verbessern könnte. 

6.3.1 Repräsentierung von Clustertypen in Bits & 
Bytes 

Einfache Typen haben meist eine direkte Repräsentierung in Maschi¬ 
nengrößen. 

BOOLEAN, CHAR, SHORTINT, SHORTCARD : Byte 

CARDINAL, INTEGER : Wort 

LONGCARD, LONGINT, POINTER, REAL : Langwort 

LONGREAL : Doppelwort 

Die Konstanten TRUE und FALSE zur Representierung von boolschen Wer¬ 
ten haben die Länge Byte und folgende interne Werte: 
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FALSE = OjTRUE = 255 oder -1, je nach Betrachtung. 

Aufzählungstypen sind je nach Anzahl ihrer Elemente als Byte, Wort 
oder Langwort repräsentiert: 

1 bis 255 Elemente : Byte 

256 bis 65535 Elemente : Wort 

sonst : Langwort 

Auch Sets werden je nach Anzahl der Elemente in einem Byte, Wort 
oder Langwort gehalten. 

1 bis 8 Elemente : Byte 
9 bis 16 Elemete : Wort 
17 bis 32 Elemente : Langwort 

Die einzelnen Elemente des SETs entsprechen den Bits im Byte, Wort 
oder Langwort. Das erste Element ist immer das niederwertigste Bit. 

Beisp: 

set = SET OF [0. .7]; 

INCL(set,4); 
wird zu: 

BSET #4,set 

Sie sehen, mittels Sets lassen sich die einzelnen Bits einer Speicherstelle 
manipulieren. Da die Bitbefehle bei Daten im Speicher immer ein Byte 
als Größe annehmen, wird bei längeren SETs die Operation in einem 
Datenregister vorgenommen. 

Variablen, die länger als ein Byte sind, werden immer an geraden 
Adressen abgelegt. 
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Bei einem Record liegen die Elemente hintereinander im Speicher. Ihre 
Position wird dnrch ein Displacement (Verschiebewert) vom Anfang des 
Records bezeichnet. 

Beisp: 

Struc = RECORD 

x,y : INTEGER; 
c : CHAR; 

p : POINTER TO INTEGER; 

END; 


X : Wort, Struc+0 
y : Wort, Struc+2 
c : Byte, Struc+4 
p : Langwort, Struc+6 

Bei Varianten Records haben mehrere Elemte das selbe Displacement. 
Dies dient dazn Speicher zn sparen, indem Eelder, die nie gleichzeitig 
belegt sein können, die selben Speicherteile nntzen. 

Beisp: 


Vector : RECORD 

IF KEY polar : BOOLEAN 
OF FALSE THEN 
X,y : REAL 
OF TRUE THEN 
rad,phi : REAL 

END 

END 


polar 

X 

y 

rad 

phi 


Byte, 
Langwort, 
Langwort, 
Langwort, 
Langwort, 


Struc+0 

Struc+2 

Struc+6 

Struc+2 

Struc+6 
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Vorsicht: Es findet kein Check statt, in welcher Weise der Record ge¬ 
rade benntzt wird, es ist also problemlos möglich, erst in Vector.y nnd 
dann in Vector.phi etwas zn schreiben. Nnr darf man sich dann nicht 
wnndern, wenn in Vector.y nicht mehr das steht, was man znvor dort 
hineingeschrieben hat. 

In einem Array hegen die Elemente ebenfalls direkt hintereindander. Bei 
mehrdimensionalen Eeldern kann dies als Eeld von Eeldern betrachtet 
werden. 


Mat = ARRAY [0 . . 2] , [0. . 2] OF INTEGER; 

Mat[0,0] : Wort, Mat[0]+0=Mat+0 
Mat[0,1] : Wort, Mat[0]+2=Mat+2 
Mat[0,2] : Wort, Mat[0]+4=Mat+4 
Mat[1,0] : Wort, Mat[1]+0=Mat+6 

Mat[2,2] : Wort, Mat[2]+4=Mat+16 


Pointer enthalten die Adresse eines Elements im Speicher. 

Beisp: 

VAR p : POINTER TO INTEGER; 
i : INTEGER; 

BEGIN 

i:=p^; 

wird zn 

MOVE.L p,A0 Adresse von p'' nach AO 
MOVE.W (A0),i Inhalt von p'' nach i 

CLASSPTR sind sechs Bytes lang. Sie tragen anßer der Adresse eines 
Objekts auch noch dessen zusätzlichen Daten, wie dessen Länge o. ä. 

Beisp: 
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VAR p : CLASSPTR TO ARRAY OF CHAR; 

p''[p''’MAX] :="A" 

MOVE.L p,A0 Adresse des Arrays nach AO 

MOVE.W p+4,D7 Anzahl der Elemente des Arrays nach D7 

SUB.W #1,D7 Anzahl um eins vermindern, um auf den 

Index des letzten Elements zu kommen 
MOVE.B #65,(AO,D7)und "A" in Array eintragen. 

Die globalen Variablen eines Modnls werden immer relativ zn A4 (Mo- 
dnlebase) adressiert. Die Reihenfolge in der die Variablen liegen, stimmt 
nicht mit der Reihenfolge überein, in der sie deklariert wnrden, da der 
selektive Linker nnr benntzte Variablen erzeugt. Konstanten und Pro¬ 
zeduren im eigenen Modul werden relativ zum PC adressiert. 

Variablen, Konstanten und Prozeduren fremder Module werden ab¬ 
solut angesprochen. 

Lokale Variablen einer Prozedur werden auf dem Stapel erzeugt, und 
über A5 (Localbase) adressiert. 

Beisp: 

PROCEDURE x(a : INTEGER;b : LONGCARD); 

VAR i : INTEGER; 
j : LONGCARD; 

wird zu 

SUB.W #8,A7 schafft Platz für 8 Bytes Variablen 

a’PTR = 16(A5) 
b’PTR = 12(A5) 
i’PTR = (A7) 
j’PTR = 4(A7) 
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6.3.2 Repräsentierung von Clusterstrukturen in As¬ 
sembler 

Ausdrücke werden von Cluster mit Punkt vor Strich umgesetzt, so daß 
eine total veränderte Struktur in Assembler entstehen kann. 

Beisp: 

VAR a,i,j,k : INTEGER; 

p : POINTER TO INTEGER; 


a: =i*j+k* (i+p''*j ) 

wird zu: 


MOVE.W 

i(A4),D7 

Wert von i nach D7 

MUL.W 

j(A4),D7 

i*j nach D7 

MOVE.L 

p(A4),A3 

Adresse von p'' holen 

MOVE.W 

j(A4),D6 

Wert von j nach D6 

MUL.W 

(A3),D6 

p''*j nach D6 

ADD.W 

i(A4),D6 

p''*j+i nach D6 

MUL.W 

k(A4),D6 

k*(p''*j+i) nach D6 

ADD.W 

D6,D7 

i*j+k*(p''*j+i) nach D7 

MOVE.W 

D7,a(A4) 

und D7 nach a speichern 


Boolean Ausdrücke werden in einem speziellen Verfahren ausgewertet. 
Hierbei wird AND oder OR nicht wirklich ausgeführt, sondern ist in 
der Verzweigungsstruktur enthalten. Dabei wird davon ausgegangen, 
daß z. B., wenn bei einem AND schon daß erste Element FALSE ist, 
kein weiteres mehr geprüft werden muß. 

Beisp: 

VAR i,j : INTEGER; 


IF (i>l) AND (i<10)0R (i=-l) AND (j>2)THEN 
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ELSE 

END 



wird zu: 

CMP.W 

#l,i(A4) 


BLE 

al 

wenn i<=l, dann kann erster AND nicht 
erfüllt sein, also gleich zweiten prüfen 

CMP.W 

#10,i(A4) 


BLT 

al: 

then 

ist i auch kleiner 10, dann ist die OR 
Bedingung erfüllt, und der gesamte 

Ausdruck wahr, also gleich zu then 

CMP.W 

#-l,i(A4) 


BNE 

eise 

ist i#-l, kann auch der zweite AND nicht 
erfüllt werden, also gleich nach eise 

CMP.W 

#2,j(A4) 


BLE 

eise 

der zweite Teil vom AND ist nicht erfüllt, 

also zum eise 

BRA 

eise: 

end: 

end 

ELSE-Teil überspringen 


An diesem Beispiel wird auch gleich deutlich, wie ein IF in Assembler 
realisiert wird. ORJFs erscheinen als weitere Überprüfung vor dem 
eise Fall. 

So sieht eine WHILE-Struktur aus: 

VAR i : INTEGER; 


WHILE i>l DO 
END 
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while: 

CMP.W #l,i 

BLE end ist die Schleifenbedingung nicht erfüllt, 

dann Schleife verlassen 

BRA while und zurück zum Anfang 

end: 

und so ein REPEAT UNTIL: 

REPEAT 

UNTIL i=5; 
repeat: 

CMP.W #5,i 

BNE repeat wenn noch nicht erfüllt, 

dann zurück an Anfang 

FOR-Schleifen sind dann etwas schwieriger, wenn die Grenzen keine 
Konstanten sind, da sich die Ausdrücke ändern könnten, die Schleifen¬ 
grenzen dies aber nicht dürfen. Darum wird bei variablem Ende dieses 
auf dem Stapel gesichert. 

VAR i,j : INTEGER; 

FOR i:=l TO 10 DO 


END 


MOVE.W 

■H 

f or: 


ADD.W 

#l,i 

CMP.W 

#10,i 

BLE 

f or: 


i am Schleifenende erhöhen 
auf Ende prüfen 
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FOR i:=j TO j+10 DO 
END 


MOVE.W 

j.i 

H- 

II 

C_l. 

MOVE.W 

j,D7 


ADD.W 

#10,D7 


MOVE.W 

D7,-(A7) 

TO j+10 

BRA 

f or: 

end: 

weil schon zu Beginn geprüft werden 

end: 

ADD.W 

#l,i 

i am Schleifenende erhöhen 

CMP.W 

(A7),D7 

mit dem Zielwert auf dem Stapel 
vergleichen 

BLE 

f or 


ADD.W 

#2,A7 

Stack wieder bereinigen 


Es ist also immer sinnvoll, eine FOR-Schleife anf eine Konstante tiin- 
laufen zu lassen. 

Bei einem Prozeduraufruf werden nacheinander die Parameter, sofern 
vorhanden, auf den Stapel gebracht, bevor die Prozedur mit JSR aufge¬ 
rufen wird. 

PROCEDURE a(x,y : INTEGER; VAR a : STRING) 

END a; 

VAR i : INTEGER; 
s : STRING(32); 


a(i,2,s); 


(©1992/93 by StoneWare 



6.4. OPTIMIERUNGEN 


27 


wird zu: 


MOVE.W 

i(A4),-(SP) 

MOVE.W 

#2,-(SP) 

MOVE.W 

#32,-(SP) 

PEA 

s(A4) 

JSR 

a(PC) 


Konstante 2 auf den Stapel 
Maximallänge von s auf den Stapel 
Adresse von s auf den Stapel bringen. 
Prozedur a als Unterprogramm anspringen 


6.4 Optimierungen 

Obwohl der Compiler versucht, möglichst guten Maschinen-Code aus 
dem Quelltext zu erzeugen, gelingt dies nicht immer optimal, da bei 
Cluster ein Kompromiß zwischen Compiliergeschwindigkeit und Code- 
Qualität eingegangen wurde. Aus diesem Grund wurde Cluster als Singlepass- 


Compileit^^ implementiert. Dies hat jedoch zur Folge, daß er nicht vo¬ 


rhersehen kann, welche Art von Anweisung als nächstes kommt. Dadurch 
schränkt sich allerdings die Zahl an automatischen Optimierungen etwas 
ein. Dennoch brauchen Sie nun nicht befürchten, daß Ihre Programme 
langsamer als die eines Mehrpass-Compilers sein müssen. Wenn man 
dem Compiler nämlich etwas unter die Arme greift, ist er in der Lage 
ganz hervorragende Programme zu erzeugen. 

Achtung: Wir sind uns bewußt, daß vielen Informatikern die Haare zu 
Berge stehen werden, wenn Sie sehen, wie maschinennah manche die¬ 
ser Optimierungen sind, daher sei hier noch einmal darauf hingewiesen, 
daß man derartige Routinen in spezielle Module kapseln soll. In einem 
Hauptmodul bitte nur in extrem zeitkritischen Fällen verwenden. 

Damit ein Prozessor arbeiten kann, muß er von außen mit einem 
Takt gesteuert werden. Jeder Takt bewirkt einen Arbeitsschritt im Pro¬ 
zessor. Nun benötigt der Prozessor für jeden Befehl eine bestimmte 
Anzahl von Takten (Zyklen) und damit eine bestimmte Zeitspanne, um 
diesen auszuführen. 

Um nun die Wirkungsweise und Effiziens der verschiedenen Optimie¬ 
rungen zu zeigen, werden wir immer den erzeugten Maschinencode vor 
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Der Compiler bearbeitet den Quelltext in einem Durchlauf 
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und nach der Optimierung zeigen und die jeweils nötige Zyklenzahp^ 
angeben. 

6.4.1 Verwendung von Standardprozeduren 

Standardprozeduren in Cluster sind im allgemeinen nicht als wirkliche 
Prozeduren realisiert, sondern werden als Assemblerbefehle ins Programm 
eingebaut. Mit den Prozeduren INC, DEC, UNI, SEC, SHL und SHR läßt 
sich ein Laufzeitgewinn erzielen, da der Compiler weis, daß Quelle und 
Ziel der Operation identisch sind. 

Beispiel: 

VAR i : INTEGER; 
i:=i+2; 


wird zu 


MOVE.W 

i(A4),D7 

12 

Zyklen 

ADD.W 

#2,D7 

4 

Zyklen 

MOVE.W 

D7,i(A4) 

12 

Zyklen 


also 28 Zyklen 
dagegen wird 

INC(i,2) 

zu 

ADD.W #2,i(A4) 16 Zyklen. 

Selbiges gilt auch für die anderen der genannten Standardprozeduren. 
Selbst die Anweisung i:=i*2 lässt sich optimieren zu: INC(i,i)- 

^^Die Zyklenzahlen beziehen sich hierbei auf einen MC68000 
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6.4.2 Abfrage der Statusregister 

Bei den meisten Operationen, die der Prozessor ausführt, setzt er hinte¬ 
rher das SR-Register. Diese Flags werden jedoch kaum beachtet. Selbst 
bei einem Vergleich wird meist nur ein Zustand erfragt. In Cluster ist 
es möglich, den Zustand des SR-Registers zur Programmsteuerung ein¬ 
zusetzen. Dazu kann man einzelne Zustände abfragen. Dies geschieht 
durch die bereits bekannten relationalen Operatoren, die hier als eine 
Art Funktion eingesetzt werden, die einen Boolean-Wert zurückgeben. 

= : letzter Vergleich war gleich, oder Ergebnis war 0 

# : letzter Vergleich war ungleich, oder Ergebnis nicht 0 

> : letzter Vergleich war größer, oder Ergebnis größer 0 

>= : letzter Vergleich war größer/gleich, oder Ergebnis 
größer/gleich 0 

<= : letzter Vergleich war kleiner/gleich, oder Ergebnis klei¬ 
ner/gleich 0 

< : letzter Vergleich war kleiner, oder Ergebnis kleiner 0 

+ : Carry gesetzt, d. h. bei der letzten Operation gab es 
einen Überlauf. 

Beispiel, suchen nach 0 in einem Array: 

i:=100; 

REPEAT 

DEC(i) 

UNTIL < OR a[i]=0; 

Mehrfacher Vergleich: 

IF a>b THEN 

(* a ist größer b *) 

0R_IF # THEN 

(* a ist kleiner b *) 

ELSE 
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(* a ist gleich b *) 

END 

Diese direkte Abfrage spart eine Menge Zeit, da ein ernenter Vergleich 
vermieden wird. 

6.4.3 Registervariablen 

Da der Prozessor wesentlich schneller (nnd auch mit kürzerem Code) 
auf seine Register als auf den Speicher zugreifen kann, empfiehlt es sich, 
einen Wert, der öfters benötigt wird, in einem der zahlreichen Register 
zu halten. Problematisch ist dies, wenn eine Prozedur aufgerufen wird, 
da diese ohne Rücksicht auf die Register des Aufrufers arbeitet. Die 
Register müssen also vor einem Prozeduraufruf gesichert werden. 

Cluster bietet die Möglichkeit, Variablen für einen Bereich des Pro¬ 
gramms in Register zu legen. Der Compiler kümmert sich auch um 
das Sichern und Wiederholen von Registerinhalten, vor und nach Pro¬ 
zeduraufrufen. Der Geschwindigkeitsgewinn ist aber natürlich um so 
geringer, um so mehr Prozeduren in diesem Bereich aufgerufen werden. 

Obwohl der Compiler auch von sich aus bemüht ist, immer möglichst 
viele Variablen in Registern zu halten, kann er nicht wissen, welche da¬ 
von am meisten benötigt werden. Daher muß man ihm sagen, wenn 
bestimmte Variablen auf alle Fälle in Registern gehalten werden sollen. 
Die Struktur, die dem Compiler mitteilt, welche Variablen er verwenden 
soll, und in welchem Bereich, ist die WITH Struktur. Mit ihr können 
nicht nur komplexe Zugriffsstrukturen vereinfacht werden, sondern auch 
einfache Variablen in Register gelegt werden. Bei der Vereinfachung 
einer Zugriffsstruktur belegt der Compiler auch ein Register, ein Adreß¬ 
register, in dem die Adresse des Objekts gespeichert wird. 

VAR i : INTEGER; 

FÜR i:=l TO 10000 DO ... END 
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wird zn: 




MOVE.W 

#l,i(A4) 

16 

Zyklen 

f or: 




ADD.W 

#l,i(A4) 

16 

Zyklen 

CMP.W 

#10000,i(A4) 

24 

Zyklen 

BLE.S 

for 10 Zykl- 

en 



ergibt 10000*(16+24+10)+16=500016 Zyklen, also 0,07 Sekundemp^ 
WITH i DO 

FÜR i:=l TO 10000 DO ... END 


END 




wird zn: 

MOVE.W 

i(A4),D7 

12 

Zyklen 

MOVE.W 

for : 

#1,D7 

4 

Zyklen 

ADD.W 

#1,D7 

4 

Zyklen 

CMP.W 

#10000,1(A4) 

8 

Zyklen 

BLE.S 

for 

10 

Zyklen 

MOVE.W 

D7,i(A4) 

12 

Zyklen 


ergibt 10000*(4+8+10)+12+4+12=220028 Zyklen, also 0,03 Seknnden, 
eine Verbessernng der Lanfzeit, nm über 50%. Noch besser wird die 
Schleife, wenn man sie gegen 0 lanfen läßt, dann tritt der spezielle Be¬ 
fehl DBRA in Aktion. Dieser Befehl macht drei Dinge anf einmal: Er 
veringert den Wert in dem dahinter angegebenen Register, vergleicht, 
ob er noch größer/gleich 0 ist nnd springt, wenn dem so ist an die ange¬ 
gebene Sprnngmarke. 

^®Alle Zeitangaben beziehen sich auf einen Amiga mit 68000er und 7,14 MHz 
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WITH i DO 

FOR i:=9999 TO 0 BY -1 DO ... END 
END 


wird zu: 


MOVE.W 

i(A4),D7 

12 

Zyklen 

MOVE.W 

#9999,D7 

8 

Zyklen 

f or: 




DBRA 

DO,for 

10 

Zyklen 

MOVE.W 

D7,i(A4) 

12 

Zyklen 


ergibt 10000*10+12+8+12=100032 Zyklen, also 0,014 Sekunden, und 
somit eine Verbesserung der Laufzeit um 80%. 

Bei genügend freien Registern wird eine FOR-Schleife, die nicht ge¬ 
gen Null zählt, aber eine Registervariable als Zähler hat, ebenfalls mit 
einem DBRA implementiert. 

Es ist auch möglich, anstatt eine vorhandene Variable in ein Register 
zu legen, auch eine bisher noch nicht bekannte Variable in einem Register 
zu erzeugen. Diese existiert nur innerhalb der WITH-Struktur. Anstatt 
des Variablennamens muß hierbei lediglich der Typnamen angegeben 
werden, ein AS ist allerdings erforderlich. Handelt es sich um einen 
einfachen Typ, wird dieser in ein Register gelegt, bei einem komplexen 
dagegen, wird er als lokale Variable angelegt. 

WITH INTEGER AS i, 

INTEGER AS j DO 


END 

Auf diese Art erzeugte Variablen sind natürlich nicht initialisiert. Bei 
einfachen Typen belegt der Compiler eines der acht Datenregister, bei 
einem Zeiger oder einer komplexeren Variablen belegt der Compiler eines 
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der fünf freien Adreßregister. Diese Art von Variablen eignet sich her¬ 
vorragend als Zähler für Schleifen. Der Compiler meldet, wenn ihm die 
Register ausgehen, 


20 


Eine weitere Besonderheit der WITH-Anweisung, man kann inne¬ 
rhalb eines bestimmten Bereiches den Typ einer Variable ändern: 


VAR 

ap : ANYPTR; 


WITH CharPtr(ap) AS p DO 
END 

6.4.4 Registerparameter 

In Assembler ist es üblich, Parameter für eine Prozedur in Registern zu 
übergeben. Dies ist in Cluster ebenfalls möglich. Derartige Variablen 
verhalten sich in der Prozedur so, als wären sie von Beginn bis zum Ende 
durch WITH in ein Register gelegt worden. Es ist allerdings nötig, daß 
man hierbei die Nummer des zu verwendenden Registers angibt. Es emp¬ 
fiehlt sich hierbei den im Modul System definierten Aufzählungstypen 
Regs zu verwenden, denn AO ist verständlicher als 8. 

PROCEDURE Add(i IN D2,j IN D3 : INTEGER):INTEGER; 

BEGIN 

RETURN i+j 

es auch möglich ist, den Typ der zuWithenden Variablen über den gan¬ 
zen Block zu ändern, kann man mit einem Trick auch mehr Registervariablen 
erreichen. Dazu benötigt man allerdings eine Registervariable, deren Inhalt 
nicht mehr nötig ist. Man witht sie dann einfach mit dem nun benötigten Ty¬ 
pen neu. Diese Technik ist allerdings problembehaftet und fehlerträchtig und 
sollte nur in absoluten Notfällen verwendet werden, da danach nicht mehr auf 
die ursprüngliche Variable zugegriffen werden darf, der dies aber nicht merkt. 
Daß das dabei entstehende Programmstück besonders gut getestet wird, vers¬ 
teht sich von selbst. 
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END Add; 

Die Datenregister haben die Nnmmern DO bis D7, die freien Adreßre¬ 
gister die Nnmmern AO bis A3. Verwendet sollten die Datenregister 
in der Reihenfolge: D2,D3,D4,D5,D6,D1,D7,D0 nnd die Adreßregister 
AO, Al, A2, A3. Zeiger nnd VAR/REF -Parameter sollten in Adreß- nnd 
einfache Typen in Datenregistern übergeben werden. Komplexe Typen 
kann man nnr als VAR/REF -Parameter in Registern übergeben. 

PROCEDURE Add(i,j : INTEGER):INTEGER; 

BEGIN 

RETURN i+j 
END Add; 

wird zn 


MOVE.W 

i(A7),D7 

12 

Zyklen 

ADD.W 

j(A7),D7 

12 

Zyklen 

MOVE.W 

D7,D0 

4 

Zyklen 

MOVE.L 

(SP)+,A0 

12 

Zyklen 

ADD 

#4, SP 

8 

Zyklen 

JMP 

(AO) 

8 

Zyklen 


nnd der Anfrnf 

a:=Add(b,c) 


MOVE.W 

a(A4),-(SP) 

16 

Zyklen 

MOVE.W 

b(A4),-(SP) 

16 

Zyklen 

JSR 

Add(PC) 

18 

Zyklen 

MOVE.W 

D0,c(A4) 

12 

Zyklen 


macht znsammen 118 Zyklen. 
Mit Registerparametern: 
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SUBQ.W 

#4,A7 

4 

Zyklen 


MOVE.W 

D2,D7 

4 

Zyklen 


ADD.W 

D3,D7 

4 

Zyklen 


MOVE.W 

D7,D0 

4 

Zyklen 


ADDQ.W 

#4,A7 

4 

Zyklen 


RTS 


16 Zyklen 


MOVE.W 

b(A4),D2 

12 

Zyklen 

MOVE.W 

c(A4),D3 

12 

Zyklen 

JSR 

Add(PC) 


18 

Zyklen 

MOVE.W 

D0,c(A4) 


12 

Zyklen 


ergibt zusammen nur 90 Zyklen, also 38 Zyklen Einsparung. 

Es ist immer zu bedenken, daß Prozeduraufrufe innerhalb einer Pro¬ 
zedur mit Registerparametern den Vorteil der Regist er paramet er stark 
mindern. 

6.4.5 Postincrement/Predecrement 

Der 68000er verfügt über zwei sehr interessante Adressierungsarten, die 
bei keinem mir bekannten Compiler unterstützt werden, Postincrement 
und Predecrement. Um diese mächtigen Adressierungsarten benützen zu 
können, ohne Assembler zu verwenden, existieren neben der normalen 
Dereferenzierung mit noch für den Postincrement und 

für den Predecrement. Diese Dereferenzierungsoperatoren funktionieren 
allerdings nur mit Variablen in Adressregistern, und auch da nicht in 
jeder Konstellationp^ 

VAR a : ARRAY [0..49] OF INTEGER; 
i : INTEGER; 


FOR i:=0 TO 48 DO 
a[i] :=a[i+l] 

Keine Angst, der Compiler meldet den Fehler 
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END 


wird zu 


MOVE.W 

f or: 

#0,i(A4) 

16 

Zyklen 

MOVE.W 

i(A4),D7 

12 

Zyklen 

ADD.W 

D7,D7 

4 

Zyklen 

MOVE.W 

i(A4),D6 

12 

Zyklen 

ADD.W 

D6,D6 

4 

Zyklen 

MOVE.W 

a+2(A4,D6),a(A4,D7) 

24 

Zyklen 

ADD.W 

#l,i(A4) 

16 

Zyklen 

CMP.W 

#48,i(A4) 

16 

Zyklen 

BLE.S 

f or 

10 

Zyklen 


Sind 49*(12+4+12+4+24+16+16+10)+16=4818 Zyklen 


Und total optimiert: 

TYPE 

IntPtr = POINTER TO INTEGER; 


(* $W- *) I wird später erläutert 
WITH INTEGER AS i, 

IntPtr AS src, 

IntPtr AS dst DO 
src:=a[l]’PTR; 
dst:=a[0]’PTR; 

FOR i:=48 TO 0 BY -1 DO 
dst+'': =src+'' 

END; 

END; 

wird zu 
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LEA 

a+2(A4),A3 

8 Zyklen 

LEA 

a(A4),A2 

8 Zyklen 

MOVE.W 

#48,D7 

4 Zyklen 

f or: 

MOVE.W 

(A3)+,(A2)+ 

12 Zyklen 

DBRA 

D7,for 

10 Zyklen 


Macht 48*(12+10)+8+8+4=1076 Zyklen, also weniger als ein viertel der 
nichtoptimierten Version. 

Ein weiteres Beispiel: Kopieren bis zu einem Zeichen mit Code 0: 

TYPE 

CharPtr = POINTER TO CHAR; 

PROCEDURE Copy(from,to : CharPtr); 

BEGIN 

DEC(from);DEC(to); 

REPEAT 

INC(from);INC(to) 
to'': =from''; 

UNTIL from''=&0; 

END Copy; 

wird zu 


SUB.L 

#1,from(A7) 

24 

Zyklen 

SUB.L 

#1,to(A7) 

24 

Zyklen 

repeat: 

ADD.L 

#1,from(A7) 

24 

Zyklen 

ADD.L 

#1,to(A7) 

24 

Zyklen 

MOVE.L 

from(A7),A3 

16 

Zyklen 

MOVE.L 

to(A7),A2 

16 

Zyklen 

MOVE.B 

(A3),(A2) 

12 

Zyklen 

MOVE.L 

from(A7),A3 

16 

Zyklen 

TST.B 

(A3) 

8 

Zyklen 
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BNE.S repeat 
MOVE.L (SP)+,A0 
ADD.L #8,SP 

JMP (AO) 


10 Zyklen 
12 Zyklen 
8 Zyklen 
8 Zyklen 


Ergibt bei etwa 100 Durchläufen 100*(24+24+16+16+12+16+8+10) + 
24+24+12+8+8=12676 Zyklen 

Und nun voll optimiert 

(* $W- $E- *) I kommt später 

PROCEDURE CopyCfrom IN A0,to IN Al : CharPtr); 

BEGIN 

REPEAT 

to+'': =from+'' 

UNTIL = 

END Copy; 

wird zu 

repeat: 

MOVE.B (A0)+,(A1)+ 12 Zyklen 

BNE.S repeat 10 Zyklen 

ergibt dann 100*(10+12)=2200 Zyklen, also etwa 5-fach schneller. 

Der Postincrement und Predecrement eignet sich besonders zum Ko¬ 
pieren von Array oder Stringbereichen oder zur Verarbeitung von Tabel¬ 
len. 

6.4.6 Switches 

Der Compiler versucht immer den sicheren Weg zu gehen, er über¬ 
prüft Stapelüberlauf, meldet Bereichsüberschreitungen oder Überläufe 
bei Rechnungen. Diese Überprüfungen sind aber nicht immer nötig. Da 
sie Zeit und Speicher verbrauchen, ist es sinnvoll, diese Überprüfungen 
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bei gut ausgetesteten Programmen abzuschalten. Dafür und auch für an¬ 
dere Zwecke besitzt der Compiler sogenannte Switches, dies sind Schal¬ 
ter, die während der Compilierung gesetzt werden können und den Com¬ 
pilationsvorgang beeinflussen. 

Die Beschreibung der einzelnen Switches und deren Syntax können 
Sie in Kapitel 2.5 nachlesen. hier soll lediglich Ihre Auswirkung auf die 
Laufzeit gezeigt werden. 

Beispiel für Optimierung durch Switches: 


PROCEDURE Sum(x IN D2,y IN D3 : INTEGER):INTEGER; 
BEGIN 

RETURN x+y 
END Sum; 

wird zu: 


Befehl 


Zyklen 

Funktion 

SUB.W 

#4,A7 

4 

Sicherungsbereich anlegen 

MOVE.W 

D2,D7 

4 

erstes Element holen 

ADD.W 

D3,D7 

4 

Summe bilden 

TRAPV 


4 

Überlauf prüfen, evt. Fehlermeldung 

MOVE.W 

D7,D0 

4 

Ergebnis in Rückgaberegister 

ADD.W 

#4,A7 

4 


RTS 


16 

Rücksprung 


ergibt 4-|-4-|-4-|-4-|-4-|-4-t-16=40 Zyklen. 

Folgende Switches vor der Prozedur (* K—W- *) ergeben: 


MOVE.W D2,D7 4 

ADD.W D3,D7 4 

MOVE.W D7,D0 4 

RTS 16 
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4+4+4+16=28 Zyklen 

Der Stackcheck wurde in der Rechnung nicht berücksichtigt, da er als 
Prozedur im Modul System realisiert ist, und der Sprung wenig aussa- 
gekräfig ist. Allerdings braucht ein Stackcheck ziemlich viel Zeit und 
sollte immer als erstes ausgeschaltet werden. 

Achtung: Bitte erst dann die Checks ausschalten, wenn das Programm 
sorgfältig getestet worden ist. 

Für alle, die gerne den erzeugten Code vergleichen, sei hier gesagt, 
daß der Compiler bei noch angeschalteten Laufzeitchecks keine optimale 
Regist er Verwaltung bietet, also erst abschalten, dann vergleichen^^ 


6.5 Bytes schaufeln und Bits rotieren 

In diesem Abschnitt geht es darum, wie man in Cluster auf einzelne Bits 
und Bytes einer Variablen zugreifen kann, obwohl der normale Spra- 
chumfang dafür keine Befehle zur Verfügung stellt. 

Als erstes wollen wir betrachten, wie man bei einer Variablen, die 
länger als ein Byte ist, auf die einzelnen Bytes zugreift. 

Wie Sie wahrscheinlich schon im Einführungskapitel gelesen haben, 
besteht die Möglichkeit, Typen, die die gleiche Länge haben, mit CAST 
in einander umzuwandeln. Dabei ändert sich lediglich der Typ, die Da¬ 
ten bleiben unverändert. Was läge also näher, als eine vier Byte lange 
Variable in ein Feld mit vier ein Byte langen Elementen umzuwandeln: 

Arr = ARRAY [0..3] OF CHAR; 

VAR 1 : LONGINT; 

CAST(Arr,l)[3]:="C"; 

Mit dieser Anweisung wird dem niederwertigsten Byte des Langworts der 
Wert 65 zugewiessen. Ebenso wäre es möglich, an Stelle des Arrays einen 

^^Diese Bemerkung gilt besonders den Testern eines bekannten 
Computermagazins 
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entsprechend langen Record zn definieren, stellen Sie sich nnr einmal 
vor, sie müßten anf das erste Wort nnd anf die letzen beiden Bytes eines 
Langwortes zngreifen. 

Auf Maschinenebene und gerade bei maschinennaher Ein-/Ausgabe, 
geschieht viel auf Bitebene. Obwohl Cluster keine direkten Bitbefehle be¬ 
sitzt, haben Sie jedoch Befehle zur Manipulation von Sets zur Verfügung. 

Man kann sich ein Byte im Speicher als ein SET der Zahlen 0 bis 7 
vorstellen. Jedes Bit kann mit INCL gesetzt, mit EXCL gelöscht oder mit 
FLIP gekippt werden. Mit IN kann geprüft werden, ob es enthalten ist 
und einiges mehr. Viele Ein-/Ausgaberegister im Amiga sind in einzelne 
Bits aufgeteilt, die alle eine eigene Aufgabe haben. 

Neben diesen Möglichkeiten, einzelne Bits zu setzten, kann man auch 
ganze Bytes und Words miteinander „verbitten“. 

Um binäre Operationen mit Sets durchzuführen dienen die SET- 
Operatoren und / sowie die Prozeduren UNI und SEC. Mit ih¬ 

nen können Bits ausmaskiert werden, oder eine Anzahl Bits auf einen 
Schlag gesetzt werden. Dabei entspricht +/UNI einem binären OR, * ei¬ 
nem binären AND, / einem XOR und ein- vor der Menge wirkt wie ein 
NOT. 

Um nun eine Variable auf Bitebene zu manipulieren, „castet“ man 
einfach die gewünschte Variable in ein SHORT-, BIT- oder LONGSET, ents¬ 
prechend der Variablenlänge und arbeitet dann mit Setoperatoren. 

Neben diesen Bitsetz-/-löschoperationen gibt es auch noch solche, 
mit denen Bits verschoben werden können. Was hat man sich unter dem 
Schieben von Bits vorzustellen? Ein Wort hat 16 Bits, deren Wert von 
ihrer Position abhängig ist, das linke hat den höchsten, das rechte den 
niedrigsten Wert. Schiebt man nun die Bits nach links, heißt das, daß 
alle Bits den Wert und Platz ihres linken Nachbarn einnehmen, das ganz 
links stehende fällt heraus und rechts wird ein 0-Bit eingeschoben. 

Beispiel: 

0100 1001 0010 1011 => 1001 0010 0101 0110 

Das herausgefallene Bit kommt ins Carryfiag, und kann mit „+“ ab¬ 
geprüft werden. 
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Man kann Zahlen auch nach rechts schieben. Bei Cardinal-Zahlen 
wird dann ebenfalls eine 0 eingeschoben, bei Integer-Zahlen, wird das 
vorderste Bit dagegen verdoppelt, um das Vorzeichen zu erhalten. Wie 
leicht zu erkennen ist, bedeutet eine Linksverschiebung eine Multiplika¬ 
tion mit 2, rechtsschieben dagegen eine Division mit 2. 

Man kann eine Zahl auch mehrfach rechts oder linksschieben. Cluster 
verfügt dazu über die Operatoren SHL und SHR. 

Beispiele: 

1 SHL 1 = 2 1 SHL 2 = 4 

1 SHL 3 = 8 1 SHL 4 = 16 200 SHR 2 = 50 

Neben dem Schieben gibt es auch die Möglichkeit, eine Zahl zu rotie¬ 
ren. Dabei wird das herausfallende Bit auf der anderen Seite wieder 
eingeklebt. Cluster hat dazu die Standardprozeduren ROL und ROR. 

ROR(a) oder ROL(a) 

Eine weitere Anwendung für einen bytegenauen Zugriff ist die Ansteue¬ 
rung von Hardwareerweiterungen. Sollten Sie also beabsichtigen, einen 
Treiber in Cluster zu Programmierer^^ so gehen Sie folgendermaßen 
vor: Sie erhalten über die Expansionlibrary die Adresse, an der sich 
Ihre Erweiterungskarte einkonfiguriert hat. Weiterhin haben Sie von Ih¬ 
rem Hardware entwickler eine genaue Beschreibung, in welchem Abstand 
die einzelnen Ein/Ausgaberegister liegen und welche Bitbreite diese ha¬ 
ben. Nun definieren Sie einen Recordtypen, dessen Elemente jeweils den 
Ein/Ausgaberegisteren entsprechen. Nun müssen Sie nur noch eine Zei¬ 
gervariable auf diesen Recordtypen definieren und dieser die Startadresse 
Ihrer Erweiterungskarte zuweisen. Nun können Sie durch einfaches Bes¬ 
chreiben der Recordfelder Werte in Ihre Hardwareregister schreiben und 
auslesen. 

^^Dies ist möglich, ich selbst habe ein Harddisk-Device in Cluster geschrie¬ 
ben, sowie die gesamten EGS-Libraries wurden in Cluster implementiert. 
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6.6 Assembler, wenn es unbedingt sein muß 

Aufgrund der vielfältigen und mächtigen Möglichkeiten, die Cluster zur 
maschinennahen Programmierung liefert, ist es im allgemeinen unnötig, 
in Assembler zu programmieren. Für manche Zwecke kann allerdings 
nicht völlig auf direkte Verwendung von Maschinensprache verzichtet 
werden. Zum Beispiel bei Prozeduren, die einen Hardwareinterrupt ab- 
fangen, muß am Ende der Befehl RTE stehen, und nicht RTS wie üblich. 

Zur direkten Maschinenprogrammierung bietet Cluster einen kom¬ 
fortablen Assembleip^an. Dieser wird durch die Standardprozedur ASSEMBLE 
aufgerufen. 

Hier ein Beispiel aus Streams: 

ASSEMBLE( USE AO/Al/DO 

MOVE h.buff,A0 
ADD h.buffPos,AO 

MOVE pos,Al 

MOVE h.buffLen,DO 

SUB h.buffPos,DO 

BEQ end 

SUB #1,D0 

Loop: 

MOVE.B (A0)+,(A1)+ 

DBRA DO,Loop 

MOVE Al,pos 

end: 

) 

^^An dieser Stelle kann und soll kein Kurs in Assemblerprogrammierung 
stehen, zu diesem Thema gibt es Regale von guten Büchern. Hier soll lediglich 
auf die speziellen Eigenschaften des Clusterassemblers eingegangen werden. 
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Alle, die sich schon mit 68000er-Assembler beschäftigt haben, werden 
hier viel Vertrautes wiederfinden. Jedoch werden Sie wahrscheinlich über 
einiges gestolpert sein. Folgende Eigenschaften sind zu beachten: 

• Die einzelnen Befehle müssen durch ein Leerzeichen oder einen 
Zeilenumbruch von einander getrennt sein. 

• Hinter den Befehlen muß keine Längenangabe folgen, der Assem¬ 
bler versucht dann aus dem Typ der Operatoren die richtige Länge 
zu ermitteln. Ist eine andere Länge erwünscht, kann diese auf ge¬ 
wohnte Weise mit „ . L/W/B“ hinzugefügt werden. 

• Sprungmarken werden durch einen Namen gefolgt von einem Dop¬ 
pelpunkt definiert. 

• Wie sie sehen, kann man direkt auf Clustervariablen über deren 
Namen zugreifen. Jedoch nicht nur auf einfache Variablen, son¬ 
dern auch auf einzelne Array oder Recordelemente kann man in 
gewohnter Clustersyntax zugreifen. 

• Im Normalfall reserviert sich der Assembler alle Register für sich, 
so daß man innerhalb des Assemblerteils alle verwenden kann. Soll 
einem jedoch der Compiler den Zugriff auf komplexe Strukturen 
erleichtern, benötigt dieser ebenfalls freie Register. Daher sollte 
man zu begin mittels USE die Register angeben, die man benötigt. 
Die Parameterliste entspricht üblicher 68K-Syntax. 

• Assembler verfügt über einen Typcheck, der mittels des Compi¬ 
lerswitches $$AssTypeChk: =TRUE eingeschaltet werden kann. Da¬ 
raufhin überprüft der Assembler bei jeder Operation, ob die in 
den Registern enthaltenen Daten kompatible Typen enthalten. 

• Am Ende des Assemblerteils muß der Stack wieder im selben Zus¬ 
tand wie davor sein. Wurden auf diesen z. B. für einen Prozedu¬ 
raufruf Parameter abgelegt, so muß der Stack durch die Anweisung 
STACK #num wieder korigiert werden, wobei num die Anzahl Bytes 
ist, um die der Stack korigiert werden muß. 

Daneben gibt es noch einige sehr rudimentäre Punktionen aus der An¬ 
fangszeit des Compilers: 
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SETREG (Register, Wert ) weist einem Prozessorregister einen Wert 
zn. Dieses Register wird dabei nicht als belegt gekennzeichnet nnd 
kann bereits dnrch die nächste Anweisung überschrieben werden. 

REG (Register ) liefert den Inhalt eines Prozessorregisters. 

INLINE (Wert, Wert ..) schreibt die angegebenen Werte direkt in das 
erzeugte Programm. Damit können auf Zahlenebene Maschine¬ 
ninstruktionen in das Programm eingebunden werden. Ist Wert 
eine einfache Zahl, wird ein Wort geschrieben. Ist Wert dagegen 
eine Adresse, wird ein Langwort geschrieben. 


6.7 Aufbau der Amiga Hardware 

Als erstes eine Mitteilung an alle Clusterprogrammierer, die auch das 
letzte Handbuch kennen: In dieser neuen überarbeiteten Ausgabe des 
Handbuches verzichten wir nun auf eine Einführung in die direkte Pro¬ 
grammierung der Graphikchips. In den ersten Tagen von Cluster mag 
das „Bitpopeln“ legitim gewesen sein, hieß es doch aus einem 68000er 
das Letzte herauszuholen. Der Schock kam jedoch mit dem Erscheinen 
der neuen Graphikchips, durch das viele Programme auf einmal nicht 
mehr lauffähig waren. Da die weitere Entwicklung der Amiga-Hardware 
nicht vorauszusehen ist und jede Annahme in dieser Richtung die Elexi- 
bilität und Kompatibilität eines Programms herabsetzt, sollte man nach 
Möglichkeit das direkte Ansprechen der Custom-Chips vermeiden und 
die komfortablen und sicheren Routinen des Betriebssystems verwen¬ 
den. Schließlich ist man bei einem 68040 nicht mehr auf jeden Zyklus 
angewiesen. 

In der Geschichte der Computer gibt es drei Verfahren, mit denen der 
Prozessor mit seiner Umwelt in Verbindung tritt. Bei der ältesten Me¬ 
thode besitzt der Prozessor spezielle Ein/Ausgabebefehle („IN“, „OUT“ 
etc.). Diese Methode besitzt den Nachteil, daß meist die Anzahl der 
externen Bausteine stark begrenzt ist. Eine andere Methode funktio¬ 
niert über Befehle, die nicht der Prozessor sondern der externe Baustein 
ausführt. Der Nachteil ist, daß diese Bausteine über eine gehörige Menge 
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eigene „Intelligenz“ verfügen müssen und deshalb meist recht teuer sind. 
Darum wird diese Methode nur bei Großrechnern verwendet (Kanal¬ 
prozessoren). Auf dem Amiga findet diese Art der Komunikation nur 
in Verbindung mit einem mathematischen Coprozessor (68881/68882) 
statt. 

Bei der auf dem Amiga eingesetzten Methode, wird der Adreßraum 
des Prozessors ausgenutzt. Dazu hegt an bestimmten Adressen im Sys¬ 
tem kein Speicher sondern ein externer Baustein. Diese Verfügen über 
spezielle Register, auf die so mit normalen Schreib- oder Lesebefehlen 
zugegriffen werden kann. Manche dieser Register lösen eine Aktion auf, 
wenn in sie geschrieben wird, andere lassen sich nur lesen. 

Um von Cluster darauf zuzugreifen, sind für die Einzelnen Chips im 
Modul Hardware und CIA Records definiert, deren einzelne Elemente den 
einzelnen Registern entsprechen. Um auf diese zuzugreifen, muß nur auf 
das entsprechende Recordelement zugegriffen werden. 

Informationen zu den einzelnen Registern entnehmen Sie bitte dem 
Hardware Reference Manual von Addison Wesley. 
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KAPITEL 7. STANDARDMODULE 


Die Standardmodule von Cluster stellen eine Sammlung von Biblio- 
theksmodulen dar, die einem das Programmieren erleichtern und verhin¬ 
dern sollen, daß das Rad mehrmals erfunden wird. 

Außerdem heben Sie den Programmierer von der Hardware bzw. vom 
Betriebssystem ab. Sie bieten Funktionen, die man normalerweise nur 
durch direkte Programmierung des Betriebssystems erreichen könnte, die 
aber wesentlich einfacher als die des Betriebssystems zu benutzen sind. 
Sie beinhalten Prozeduren zur Stringhandhabung, zur Speicherverwal¬ 
tung, für einfache Graphik und vieles mehr. 

Wir sind ständig dabei, diese Sammlung zu erweitern. Falls Sie 
selbst Module geschrieben haben und diese der Allgemeinheit zugänglich 
machen wollen, senden Sie sie uns mit Dokumentation auf einer Diskette 
zu. 

Bei der Beschreibung der einzelnen Module sind wir so vorgegangen, 
daß als erstes immer das Definitionsmodul des jeweiligen Moduls abge¬ 
druckt ist und anschließend die einzelnen Prozeduren kommentiert sind. 
Einen kurzen Kommentar finden Sie selbstverständlich auch in den De¬ 
finitionsmodulen auf Diskette, dieser wurde jedoch hier beim Abdruck 
aus Platzgründen weggelassen. 

Alle Quelltexte der Implementationsmodule finden Sie außerdem ge¬ 
packt auf den Disketten. Es ist Ihnen gestattet, diese Module zu er¬ 
weitern oder auch nach ihren Bedürfnissen zu verändern. Sollten Sie 
einen Eehler finden, würden wir es begrüßen, wenn Sie diesen beheben 
und die verbesserte Version an uns zurückschicken. Änderungen sind 
jedoch nur zu empfehlen, wenn diese nur im Implementationsmodul ges¬ 
chehen. Verändern Sie die Eunktionsweise nicht gravierend, für den Eall, 
daß Sie einmal ein fremdes Programm übersetzen wollen, das von der 
ursprünglichen Version ausgeht. 

Um zu verdeutlichen, ob es sich bei den Parametern um Ein- oder 
Ausgabeparameter handelt, wird dies durch folgende Symbole angezeigt: 

Parameter dient nur zur Dateneingabe. 

^ Parameter dient nicht zur Eingabe, sondern wird ausschließlich 
von der Prozedur beschrieben (verändert). 

Tritt dieses Symbol ganz am Ende einer Beschreibung auf, ohne 
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vorangestellten Parameternamen, handelt es sich nm einen Fnnk- 
tionsrückgabewert. 

Es handelt sich um einen Eingabeparameter, dessen Wert jedoch 
innerhalb der Prozedur verändert wird, so daß er auch als Ergebnis 
zu verstehen ist. 
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7.1 Arguments 

Das Modul „Arguments“ dient dazu, Argumente abzufragen, die bei ei¬ 
nem Aufruf vom CLI hinter dem Programmnamen, oder beim Start von 
der Workbench über erweiterte Auswahl angegeben wurden. Außerdem 
bietet es Prozeduren zur vereinfachten Bearbeitung der Tooltypes. 


DEFINITION MODULE Arguments; 

VAR 

NumArgs : INTEGER; 

Wb : BOOLEAN; 

$$0wnHeap:=TRUE 

PROCEDURE ArgCnum : INTEGER):STRING; 

PROCEDURE ExistsCREF arg : STRING; 

Start : INTEGER:=0; 

caps : BOOLEAN:=TRUE):INTEGER; 

$$0wnHeap:=TRUE 

PROCEDURE FindTooIType(REF path, 

tooIType : STRING):STRING; 

PROCEDURE MatchTooIVaIue(REF typeString, 

val : STRING):BOOLEAN; 


GROUP 

All = NumArgs,Wb,Arg,Exists; 
END Arguments. 


NumArgs : Anzahl übergebener Argumente 
WB : Flag für Workbenchstart 
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PROCEDURE ArgCnum : INTEGER):STRING; 

Funktion: Gibt Argumentstring zurück 

Parameter: 

num Nummer des Arguments 

(0. .NumArgs-1), das ausgegeben werden soll. 

^ String mit dem num-ten Argument. Wurde das 
Programm von der Workbencli gestartet, erhält 
man den kompletten Pfad der übergebenen Da¬ 
tei. Beim Workbenchstart gibt Arg(-l) den Na¬ 
men des Programms zurück. 

PROCEDURE ExistsCREF arg : STRING; 

Start : INTEGER:=0; 

caps : BOOLEAN:=TRUE):INTEGER; 

Funktion: Uberprüft das Vorhandensein eines Arguments und liefert 

Position zurück. 

Parameter: 

arg 4= Argumentstring, nach dem gesucht werden soll. 

num Nummer des Arguments, von dem ab gesucht 

werden soll. Wichtig, falls ein Argument mehr¬ 
fach Vorkommen darf. 

caps Flag, ob ohne Rücksicht auf die Groß- oder 

Kleinschreibung verglichen werden soll. 

^ Position des Arguments oder -1, falls kein solches 
Argument übergeben wurde 
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PROCEDURE FindToolType(REF path, 

toolType : STRING):STRING; 

Funktion: Liefert den Wert eines ToolTypes 

Parameter: 

path ^ Pfad der Datei, anf die sich der Befehl be¬ 

zieht. Dabei ist zu beachten, daß nur der Name 
des eigentlichen Files ohne angehängtes „ . inf o“ 
übergeben wird. 

toolType ^ Name des Tooltypes, dessen Wert abgefragt wer¬ 
den soll. 

Wert des Tooltypes oder ein Leerstring, falls der 
Tooltype nicht gesetzt war. 

PROCEDURE MatchTooIVaIue(REF typeString, 

val : STRING):B00LEAN; 

Funktion: Vergleicht einen übergebenen ToolType-Wert mit einem 
vorgegebenen ToolType. Dabei wird nicht Case-Sensitiv vorgegangen. 
Außerdem wird unterschieden, ob in TypeString mehrere alternative 
Möglichkeiten existieren, die durch ein „|“ getrennt sind. 

Parameter: 

typeString ToolTypewert, der verglichen werden soll. 

val <t= Wert oder Muster, mit dem „typestring“ ver¬ 

glichen werden soll. 
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Zur Verdeutlichung von MatchToolValue hier einige Beispiele: 


typel = "text" 
type2 = "a|b|c" 


MatchToolValue( 
MatchToolValue( 
MatchToolValue( 
MatchToolValue( 
MatchToolValue( 
MatchToolValue( 
MatchToolValue( 


typel. 

"text 

typel. 

"TEXT 

typel. 

"data 

type2. 

"a" ) 

type2. 

"b" ) 

type2. 

"d" ) 

type2. 

"alb" 


) -> TRUE 
) -> TRUE 
) -> FALSE 
-> TRUE 
-> TRUE 
-> FALSE 
) -> FALSE 
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7.2 ASCII 

Neben den druckbaren Zeichen gibt es noch einige nicht druckbare Steuer¬ 
zeichen, die aber zum Beispiel zur Druckeransteuerung oder zur Text¬ 
formatierung gebraucht werden. Die Zahlwerte dieser Zeichen sind in 
diesem Modul als Konstanten definiert. 


DEFINITION MODULE ASCII; 


CONST 





nul 

= 

&00; 

soh = &01; 

stx = &02; 

etx = &03; 

eot 

= 

&04; 

enq = &05; 

ack = &06; 

bei = &07; 

bs 

= 

&08; 

ht = &09; 

If = &10; 

vt = &11; 

ff 

= 

&12; 

er = &13; 

so = &14; 

si = &15; 

die 

= 

&16; 

dcl = &17; 

dc2 = &18; 

dc3 = &19; 

dc4 

= 

&20; 

nak = &21; 

syn = &22; 

etb = &23; 

can 

= 

&24; 

em = &25; 

sub = &26; 

esc = &27; 

f s 

= 

&28; 

gs = &29; 

rs = &30; 

US = &31; 

sp 

= 

&32; 




del 

= 

&128; 




eol 

= 

If; 




eof 

= 

fs; 




csi 

= 

&155; 





END ASCII 


Die meisten dieser Steuerzeichen sind jedoch heute nicht mehr von so 
großer Bedeutung, als zu der Zeit, als sie vor allem zur Ansteuerung von 
Terminals verwendet wurden. Daher werden hier nur die Konstanten 
beschrieben, die gebräuchlich sind. 
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nul Das Nullbyte, wie es z. B. als Endekennzeichen von Strings ver¬ 
wendet wird. 

bs Backspace, Rückschritt 

If Linefeed, bewirkt einen Zeilenvorschub und einen Wagenrücklauf. 

ff Formfeed oder Seitenvorschub, bewirkt auf einem Ducker den Auss¬ 
toß der aktuellen und dem Einzug einer neuen Seite. Auf der 
Console wird das Eenster gelöscht. 

er Wagenrücklauf, auf manchen Druckern auch mit einem Linefeed 
verbunden. 

esc Escape, dieses Zeichen leitet stets eine Kette Zeichen ein, die dann 
vom Ausgabegerät als Kommando interpretiert wird. 

sp Space oder Leertaste. 

del Delete, Zeichen löschen 

eol End of line, entspricht dem Zeilenvorschub. 

eof End of File, kennzeichnet das Ende einer Textdatei. 

bei Bell, läßt Klingel ertönen, bzw. der Bildschirm blitzt. 

ht Horizontaler Tabulator, bewirkt Vorlauf auf den nächsten Tabs¬ 
top. 
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7.3 AVLTrees 

Das Modul „AVLTrees“ ist ein generisches ModuQ das Ihnen Routinen 
zur Verwaltung in AVL-Bäumer|^ zur Verfügung stellt. Der Unterschied 
der beiden internen Module „AVLTrees“ und 

„AVLCursorTrees“ besteht darin, daß bei einem Cursor-Baum nicht das 
Element selbst eingehängt wird, sondern nur eine Verweis darauf ein¬ 
getragen wird. Das hat zur Folge, daß ein Element in beliebig vielen 
Cursor-Bäumen hängen kann. 


DEFINITION MODULE AVLTrees; 

FROM System IMPORT Equation; 

DEFINITION MODULE 

AVLTrees(AVLNodePtr : POINTER TO AVLNode); 


TYPE 

AVLNode = RECORD 

left, 
right, 

parent : AVLNodePtr; 
a_fact : INTEGER; 

END; 

Comparison = PR0CEDURE(a,b : AVLNodePtr):Equation; 

AVLTree = RECORD 

root : AVLNodePtr; 
compare : Comparison; 

END; 


EXCEPTION 

AIIreadyExists 

NotFound 

TreeEmpty 


"Allready exists"; 
"Not found"; 

"Tree is empty"; 


PROCEDURE InitCVAR t : AVLTree; 

compare : Comparison); 


^Falls Sie mit diesem Begriff noch nichts anfangen können, lesen Sie bitte 


im Kapitel 


4 


nach. 


'Ein AVL 


glichen sein kann. 


■Baum ist ein Binärbaum (siehe Kapitel , der niemals unausge- 
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PROCEDURE Insert (VAR t 

data 

PROCEDURE SearchCREF t 

data 

PROCEDURE DeleteCVAR t 

data 

PROCEDURE Remove(VAR t 

data 

PROCEDURE NextCREF t : 

data : 

PROCEDURE PrevCREF t : 

data : 


: AVLTree; 

: AVLNodePtr); 

: AVLTree; 

: AVLNodePtr):AVLNodePtr; 

: AVLTree; 

: AVLNodePtr); 

: AVLTree; 

: AVLNodePtr); 

AVLTree; 

AVLNodePtr):AVLNodePtr; 
AVLTree; 

AVLNodePtr):AVLNodePtr; 


PROCEDURE First (REF t : AVLTree):AVLNodePtr; 
PROCEDURE Last (REF t : AVLTree):AVLNodePtr; 
END AVLTrees; 
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DEFINITION MODULE AVLCursorTrees(type : ANYPTR); 
TYPE 

CNodePtr = POINTER TO CNode; 

DEFINITION MODULE CTree = AVLTrees(CNodePtr); 


TYPE 

CNode = RECORD OF CTree.AVLNode 

data : type; 

END; 


Comparison = PROCEDURE(a,b : type):Equation; 
Destructor = PROCEDURE(a : type); 


AVLTree = RECORD OF CTree.AVLTree 

Cursor : CNodePtr; 
greater2 : Comparison; 
END; 


FROM CTree IMPORT AIIreadyExists,NotFound; 


PROCEDURE Init(VAR t : AVLTree; 

compare : Comparison); 


PROCEDURE Insert (VAR t : AVLTree;data 
PROCEDURE Search(VAR t : AVLTree;data 
PROCEDURE Get(VAR t : AVLTree):type; 
PROCEDURE DeIete(VAR t : AVLTree); 
PROCEDURE Remove(VAR t : AVLTree); 


type); 
type); 


PROCEDURE Destruct(VAR t 


AVLTree; 


destructor : Destructor); 
PROCEDURE DeIete_AII(VAR t : AVLTree); 


PROCEDURE Destruct_AII(VAR t 


AVLTree; 


destructor : Destructor); 


PROCEDURE Next(VAR t : AVLTree); 
PROCEDURE Prev(VAR t : AVLTree); 
PROCEDURE First (VAR t : AVLTree); 
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PROCEDURE Last (VAR t : AVLTree); 
END AVLCursorTrees; 

END AVLTrees. 


7.3.1 AVLTrees 

PROCEDURE InitCVAR t : AVLTree; 

compare : Comparison); 

Funktion: Initialisiert einen AVL-Baum 

Parameter: 

t => Variable vom Typ AVLTree, die initialisiert wer¬ 

den soll. Sie wird bei allen zukünftigen Opera¬ 
tionen auf den Baum als Zugriff auf den Baum 
gebraucht. 

compare ^ Funktion vom Typ Comparison. Diese wird zur 
richtigen Einsortierung der Elemente benötigt. 

Die Eunktion bekommt zwei Elemente vom 
Typ AVLNodePtr übergeben und muß festlegen, 
welche von beiden größer, gleich oder kleiner ist. 

PROCEDURE Insert (VAR t : AVLTree; 

data : AVLNodePtr); 

Funktion: Fügt einen neuen Knoten in den AVL-Baum ein. Enthält der 

Baum schon einen solchen Knoten, wird die Exception AllreadyExists 

ausgelöst. 

Parameter: 

t Baum, in den der Knoten eingefügt werden soll. 

data Knoten, der eingefügt werden soll. 
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PROCEDURE SearchCREF t : AVLTree; 

data : AVLNodePtr):AVLNodePtr; 

Funktion: Sucht einen Knoten in einem Baum. Ist der Knoten nicht 
im Baum, wird die Exception NotFound ausgelöst. 

Parameter: 

t Baum, in dem gesucht werden soll, 

data Knoten, nach dem gesucht werden soll. 

Zeiger auf den gefundenen Knoten. 


PROCEDURE DeleteCVAR t : AVLTree; 

VAR data : AVLNodePtr); 

Funktion: Entfernt einen Knoten aus dem Baum und gibt dessen Spei¬ 
cher frei. 

Parameter: 

t Baum, aus dem der Knoten entfernt werden soll. 

data Knoten, der gelöscht werden soll. Nach dem Au¬ 

fruf enthält data den Wert NIL. 


PROCEDURE Remove(VAR t : AVLTree; 

data : AVLNodePtr); 

Funktion: Entfernt einen Knoten aus dem Baum, ohne jedoch seinen 
Speicher freizugeben. 

Parameter: 

t Baum, aus dem der Knoten entfernt werden soll, 

data <t= Knoten, der entfernt werden soll. 
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PROCEDURE NextCREF t : AVLTree; 

data : AVLNodePtr):AVLNodePtr; 

Funktion: Da ein AVL-Baum ein geordneter Baum ist, bei dessen Ini¬ 
tialisierung schließlich ein Ordnungskriterium übergeben wurde, kann 
man zu jedem Knoten einen Vorgänger und einen Nachfolger finden. 

Next liefert nun den Nachfolger eines Knotens oder NIL, wenn der höchstwertigste 
Knoten schon erreicht war. 

Parameter: 

t ^ Baum, auf den sich die Operation bezieht, 

data 4= Knoten, dessen Nachfolger gefunden werden soll. 

^ Nachfolgerknoten oder NIL. 

PROCEDURE PrevCREF t : AVLTree; 

data : AVLNodePtr):AVLNodePtr; 

Funktion: Entsprechendes Gegenstück zu Next. Prev liefert den Vor¬ 
gänger eines Knotens oder NIL, wenn der niedrigwertigste Knoten schon 
erreicht war. 

Parameter: 

t ^ Baum, auf den sich die Operation bezieht, 

data 4= Knoten, dessen Vorgänger gefunden werden soll 

^ Vorgänger knoten oder NIL. 
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PROCEDURE First (REF t : AVLTree):AVLNodePtr; 

Funktion: Liefert den Knoten eines Banmes, mit dem kleinsten Wert. 

Parameter: 

t Baum, auf den sich die Operation bezieht. 

=> Knoten mit dem niedrigsten Wert. Falls der 
Baum leer war, wird die Exception TreeEmpty 
ausgelöst. 

PROCEDURE Last (REF t : AVLTree):AVLNodePtr; 

Funktion: Liefert den Knoten eines Baumes mit dem größten Wert. 

Parameter: 

t Baum, auf den sich die Operation bezieht. 

=> Knoten mit dem höchsten Wert. Falls der Baum 
leer war, wird die Exception TreeEmpty aus¬ 
gelöst. 
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7.3.2 AVLCursorTrees 

Wie schon anfangs erwähnt, hängen die Knoten eines Cnrsor-Baumes 
nicht direkt im Baum, sondern nur jeweils ein Knoten mit einem Verweis 
auf die eigentlichen Daten. Dies hat zwei Folgen: 

• Ein Datenfeld kann so in beliebig viele Cursor-Bäume eingfügt 
werden. Dies kann sinnvoll sein, wenn die einzelnen AVL-Bäume 
nach anderen Ordnungskriterien aufgebaut sind. 

• Die Knoten müssen nicht Nachfolger eines Stammknotens sein wie 
dies in AVLTrees sein muß. Da sie nicht direkt eingehängt werden, 
muß das Modul nichts über den Typ wissen. 

Wichtig jedoch: Bei der Freigabe eines solchen Knotens sollte man sicher 
gehen, daß er nicht noch in einem anderen Baum eingetragen ist. Daher 
erst aus allen Bäumen herausnehmen und dann freigeben. 

Da die meisten Prozeduren identisch zu denen in AVLTrees sind, 
werde ich nur auf die Unterschiede aufmerksam machen. Sollte es Sie 
verwirren, daß bei allen Funktion nur der Baum und keine Knoten 
übergeben werden, dann hegt das daran, daß bei einem Cursor-Baum im¬ 
mer ein Knoten als aktueller Knoten gilt, der sich innerhalb des Baumes 
verschieben läßt. D. h. alle Operationen beziehen sich auf den aktuellen 
Knoten. 

Um einen bestimmten Knoten zu bearbeiten, ruft man Search auf. 
Danach zeigt der aktuelle Knoten des Baumes auf den gesuchten Eintrag, 
sofern er im Baum enthalten war. Nun kann man jede andere Funktion 
auf rufen. 
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Remove löscht nur den Verweisknoten aus dem Baum. Das Datenfeld, 
auf den der Konten gezeigt hat, bleibt dabei unangetastet. 

Delete löscht nicht nur den Verweisknoten aus dem Baum, sondern 
auch das Datenfeld wird durch Dispose freigegeben. Nur geeignet, 
wenn das Datenfeld nur aus Speicher besteht. 

Destruct Falls zur Freigabe eines Knotens eine spezielle Routine nötig 
ist, z. B. wenn ein Knoten einen Zeiger auf ein Fenster enthält, das 
vorher noch geschlossen werden muß, verwendet man diese Proze¬ 
dur. Destruct löscht den Eintrag aus dem Baum, und übergibt 
das Datenfeld der mitübergebenen Freigabeprozedur vom Typ Destructor. 

Delete_All Vernichtet die gesamte Baumstruktur und gibt alle Daten¬ 
felder mit Dispose frei, es gilt die gleiche Einschränkung wie bei 
Delete. 

Destruct_All Wie Delete, nur daß für jedes Datenfeld eine übergebene 
Ereigabeprozedur aufgerufen wird. Siehe unter Destruct. 

Nun noch ein kleines Beispielprogramm zur Verdeutlichung. Hierbei wer¬ 
den nacheinander mehrere Datensätze in einen nach Namen geordneten 
Baum eingehängt, anschließend wird nach einem Datensatz anhand des 
Namens gesucht. Sicher ist dieses Verfahren bei drei Datensätzen nicht 
sinnvoll, jedoch soll schließlich nur das Verfahren gezeigt werden. 
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MODULE AVLTreeTest; 

FROM Strings IMPORT Compare; 

FROM System IMPORT Equation; 

FROM InOut IMPORT WriteGrp; 

FROM Resources IMPORT New; 

IMPORT AVLTrees; 

TYPE 

PersonPtr = POINTER TO Person; 

DEFINITION MODULE PersonTrees = AVLTrees.AVLTrees(PersonPtr); 
TYPE 

Person = RECORD OF PersonTrees.AVLNode; 
name : STRING(20); 
alter : SHORTINT; 

Strasse : STRING(30); 

END; 

PROCEDURE ComparePerson(a,b : PersonPtr):Equation; 

BEGIN 

RETURN Compare (a''. name, b''. name) ; 

END ComparePerson; 


VAR 

PersonTree : PersonTrees.AVLTree; 
p,p2 : PersonPtr; 

BEGIN 

TRACK 

PersonTree.Init(ComparePerson); 
New(p); 

p'' .name: ="Meier" ; 
p'' .alter: =38; 

p''. Strasse : ="Neuer Weg 27"; 
PersonTree.Insert(p); 

New(p); 

p'' .name: ="MüIIer" ; 
p''. alter: =75; 

p''. Strasse : ="Musterweg 80"; 
PersonTree.Insert(p); 

New(p); 

p'' .name:="Schulze" ; 
p''. alter: =21; 
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p''. Strasse: = "Kaiserstr. 17"; 
PersonTree.Insert(p); 

New(p); 

p'' .name: = "Müller" ; 
p2:=PersonTree.Search(p); 
WriteString(p2'' .name) ;WriteLn; 
Writeint(p2'' .alter) ;WriteLn; 
WriteString(p2''. Strasse) ; WriteLn; 
END; 

END AVLTreeTest. 
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7.4 Buffers 

Wie bei AVLTrees enthält das Modul Buffers zwei generische Module 
zur Bearbeitung von Stacks und Queues. Damit kann jeder Pointertyp 
verwendet werden. 


DEFINITION MODULE Buffers; 

EXCEPTION 

BufferEmpty : "Buffer empty"; 

NotlnBuffer : "Object not in buffer"; 

DEFINITION MODULE Queues(type : ANYPTR); 
TYPE 


QueueNodePtr = HIDDEN; 

Queue = RECORD 

first : QueueNodePtr; 

END; 

Destructor = PROCEDURE(p : type); 

PROCEDURE Init(VAR q : Queue); 

PROCEDURE Remove_AII (VAR q : Queue); 

PROCEDURE Remove(VAR q : Queue;data : type); 

PROCEDURE Destruct_AII(VAR q : Queue; 

des : Destructor); 

PROCEDURE DeIete_AII(VAR q : Queue); 

PROCEDURE Put (VAR q : Queue;data : type); 

PROCEDURE Get(VAR q : Queue):type; 

PROCEDURE IsEmpty(VAR q : Queue):BOOLEAN; 


END Queues; 


DEFINITION MODULE Stacks(type : ANYPTR); 
TYPE 

StackNodePtr = HIDDEN; 

Stack = RECORD 

first : StackNodePtr; 
END; 

Destructor = PROCEDURE (p : type); 
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PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
END Stacks; 
END Buffers. 


Init(VAR q : Stack); 

Remove_All(VAR q : Stack); 

Remove(VAR q : Stack;data : type); 

Destruct_All (VAR q : Stack; 

des : Destructor); 

Delete_All(VAR q : Stack); 

Put (VAR q : Stack;data : type); 

Get(VAR q : Stack):type; 

IsEmpty (VAR q : Stack):BOOLEAN; 
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Exceptions: 

BufferEmpty Kann dnrch Get ausgelöst werden, falls der Puffer be¬ 
reits leer ist. 

NotlnBufFer Kann durch Remove ausgelöst werden, falls das Objekt 
nicht im Puffer ist. 

7.4.1 Queues 

Hierbei handelt es sich um einen FIFO-PuffeiQ Elemente können belie¬ 
big in den Puffer eingefügt werden und in derselben Reihenfolge wieder 
ausgelesen werden. Typische Anwendung ist eine Warteschlange, z. B. 
ein Tastaturpuffer. 

PROCEDURE Init(VAR q : Queue); 

Funktion: Initialisiert den Queue, muß vor der ersten Verwendung 
geschehen. 

Parameter: 

q ^ Queue, der initialisiert werden soll. 

PROCEDURE RemoveAll (VAR q : Queue); 

Funktion: Vernichtet die Pufferstruktur. Die Elemente, die sich zu die¬ 
ser Zeit noch darin befinden, werden nicht angetastet, da in der Struktur 
nur Verweise auf die Elemente enthalten sind. 

Parameter: 

q Queue, der aufgelöst werden soll. 


^FIFO= First In First Out 
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PROCEDURE Remove(VAR q : Queue;data : type); 

Funktion: Entfernt ein Element aus dem Puffer, unabhängig von dessen 
Position im Puffer. 

Parameter: 

q Queue, aus dem das Element entfernt werden 

soll. 

data Zeiger auf das Element, das entfernt werden soll. 

PROCEDURE Destruct_All(VAR q : Stack; 

des : Destructor); 

Funktion: Vernichtet den Puffer. Für jedes Element, das sich zu dieser 
Zeit noch darin befindet, wird eine spezielle Freigabeprozedur aufgeru¬ 
fen. Sinnvoll, falls das Element nicht nur aus Speicher besteht, sondern 
z. B. ein File, das noch geschlossen werden muß. 

Parameter: 

q Queue, der vernichtet werden soll. 

des Freigabeprozedur vom Typ Destructor, die für 

jedes Element aufgerufen werden soll. 

PROCEDURE Delete_All(VAR q : Queue); 

Funktion: Vernichtet den Puffer. Die Elemente, die sich zu dieser Zeit 
noch darin befinden, werden durch Dispose freigegeben. Diese Funktion 
ist Destruct_All vorzuziehen, wenn keine besonderen Freigaberoutinen 
erforderlich sind. 

Parameter: 

q Queue, der vernichtet werden soll. 
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PROCEDURE Put (VAR q : Queue;data : type); 

Funktion: Fügt ein Element in den Queue so ein, daß es als oberstes 
im Stapel liegt. 

Parameter: 

q Queue, in den das Element eingefügt werden soll, 

data Element, das eingefügt werden soll. 

PROCEDURE Get(VAR q : Queue):type; 

Funktion: Entfernt das Element aus dem Queue, das als erstes ein¬ 
gefügt worden ist, also ganz unten liegt. 

Parameter: 

q Queue, aus dem das Element entfernt werden 

soll. 

^ Element, das als unterstes im Queue lag. 

PROCEDURE IsEmptyCVAR q : Queue):B00LEAN; 

Funktion: Prüft, ob der Queue leer ist. 

Parameter: 

q Queue, der überprüft werden soll. 

^ TRUE, falls er leer ist. 

^ FALSE, falls er nicht leer ist. 

7.4.2 Stacks 

Hierbei handelt es sich um einen LIFO-Puffeij^ Das heißt, das Element, 
das als letztes daraufgelegt worden ist, wird auch wieder als erstes he¬ 
runtergenommen. Typisches Beispiel ist z. B. ein Sicherungsspeicher für 
eine Undo-Eunktion. 

Da die Eunktionen exakt die gleichen wie in Queues sind, werden sie 
nicht noch einmal aufgeführt. 

®LIFO= Last In First Out 
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7.5 Conversions 

Conversions enthält sowohl Funktionen zur Umwandlung von in Strings 
enthaltenen Ziffernfolgen in echte Zahlerj^ als auch solche zur Umwand¬ 
lung von Zahlen in Zeichenfolgen, um Zahlen ausgeben zu können. Die 
Ein/Ausgabeprozeduren von InOut arbeiten ebenfalls mit Conversions. 


DEFINITION MODULE Conversions; 

FROM System IMPORT Regs; 

FROM Exceptions IMPORT RangeVioIation; 


EXCEPTION 

NoPointInMask : "No point in mask"; 

IllegalChar : "Illegal character in string"; 


$$0wnHeap:=TRUE 
PROCEDURE RealToStringCval 

field, 
digits 
fillChar 
point 


LONGREAL; 

CARDINAL; 

CHAR :=" "; 

CHAR STRING; 


$$0wnHeap:=TRUE 

PROCEDURE RealToExpStringCval 

digits 

expDigits 

point 


LONGREAL; 

CARDINAL:=6; 
CARDINAL:=3; 
CHAR:="."):STRING; 


®Dies ist notwendig, da man über die Tastatur nur Zeichenfolgen erhält, 
jedoch keine Zahlwerte mit denen man rechnen kann 
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$$OwnHeap:=TRUE 

PROCEDURE RealToMaskedStringC val 

REF mask 

fillChar 

point 


LONGREAL; 

STRING; 

CHAR : = " "; 

CHAR := "."):STRING; 


$$0wnHeap:=TRUE 

PROCEDURE IntToString (val IN D2 : LONGINT; 

field IND3 : INTEGER:=0; 
fillChar : CHAR:=" "): STRING; 


$$0wnHeap:=TRUE 

PROCEDURE IntToHexStringCval IN D2 

field IND3 

fillChar 

dollar 


LONGINT; 

INTEGER:=0; 

CHAR:=" "; 

BOOLEAN:=FALSE):STRING; 


$$0wnHeap:=TRUE 

PROCEDURE IntToBinStringCval 

field 

fillChar 

sign 


IN D2 
IN D3 


LONGINT; 

INTEGER:=0; 

CHAR:=" "; 

BOOLEAN:=FALSE):STRING; 


$$0wnHeap:=TRUE 

PROCEDURE CardToStringCval IN D2 

field IN D3 

fillChar 


LONGCARD; 

INTEGER:=0; 

CHAR: = " ") : STRING; 


$$0wnHeap:=TRUE 

PROCEDURE CardToHexStringCval IN D2 : LONGCARD; 

field IND3 : INTEGER:=0; 

fillChar IN D4 : CHAR: = " "; 

dollar IN D5 : BOOLEAN := FALSE):STRING; 
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$$OwnHeap:=TRUE 

PROCEDURE CardToBinStringCval IN D2 : LONGCARD; 

field IND3 : INTEGER:=0; 

fillChar IN D4 : CHAR:=" 

sign IND5 : BOOLEAN := FALSE) : STRING; 


PROCEDURE StringToReaKREF str IN AO : STRING; 

point : CHAR:="."):L0NGREAL; 

PROCEDURE StringToIntCREF str IN AO : STRING):LONGINT; 

PROCEDURE HexStringToIntCREF str IN AO : STRING):LONGINT; 

PROCEDURE BinStringToIntCREF str IN AO : STRING):LONGINT; 

PROCEDURE StringToCardCREF str IN AO : STRING):LONGCARD; 


PROCEDURE HexStringToCardCREF str IN AO : STRING):LONGCARD; 


PROCEDURE BinStringToCardCREF str IN AO : STRING):LONGCARD; 
GROUP 

All = ReaIToString,ReaIToExpString,ReaIToMaskedString, 

IntToString,CardToHexString,StringToReal,StringToInt, 
HexStringToCard,IntToHexString,IntToBinString, 
CardToString,CardToHexString,CardToBinString, 
HexStringToInt,BinStringToInt,StringToCard, 
BinStringToCard,NoPointInMask; 

END Conversions. 
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Exceptions 

RangeViolation Die übergebene Zahl paßt nicht in den String, in das 
angegebene Feld, ist zn groß für das gewünschte Zahlenformat oder 
paßt vom Vorzeichen nicht. 

NoPointInMask In einer Formatmaske muß ein Dezimalpunkt enthal¬ 
ten sein, der dem Zeichen entspricht, das als Parameter point 
übergeben wurde. 

IllegalChar In dem übergebenen String befanden sich nicht konvertier¬ 
bare Zeichen. 


7.5.1 Value to String 

PROCEDURE RealToStringCval 

field, 
digits 
fillChar 
point 


LONGREAL; 

CARDINAL; 

CHAR :=" 

CHAR STRING; 


Funktion: Wandelt eine Realzahl in eine Zeichenkette. 


Parameter: 

val 

field 

digits 

fillChar ^ 
point 


Realzahl, die umgewandelt werden soll. 

Gesamtzahl der Stellen, die umgewandelt werden 
sollen. 

Anzahl der gewünschten Nachkommastellen. 

Füllzeichen, mit dem field aufgefüllt werden 
soll. 

Zeichen, das für den Dezimalpunkt verwendet 
werden soll. 

String mit der umgewandelten Zahl 
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PROCEDURE RealToExpStringCval : LONGREAL; 

digits : CARDINAL:=6; 

expDigits : CARDINAL:=3; 

point : CHAR:STRING; 

Funktion: Wie RealToString, jedoch wird die Zahl in Exponential- 
darstellung umgewandelt. 

Parameter: 

val Realzahl, die umgewandelt werden soll. 

digits Anzahl der gewünschten Nachkommastellen. 

expDigits Anzahl der Exponentialstellen. 

point Zeichen, das für den Dezimalpunkt verwendet 

werden soll. 

String mit der umgewandelten Zahl. 


PROCEDURE RealToMaskedStringC val : LONGREAL; 

REFmask : STRING; 

fillChar : CHAR := " "; 

point : CHAR := " . "):STRING; 

Funktion: Wandelt eine Longrealzahl in eine maskierte Realzahl. Siehe 
unten. 

Parameter: 

val Zahl, die konvertiert werden soll, 

mask Maskierungsstring. 

point Zeichen, das als Dezimalpunkt verwendet werden 

soll. 

=> String, der die umgewandelte Zahl enthält. 

Bemerkung: 

Diese Funktion eignet sich hervorragend zum Aufbau von Tabellen. Die 
Maskierung sieht dabei folgendermaßen aus: 

Mask : "ccccc+###c###c###.#### 
oder "ccccc#.#########E****" 


©1992/93 by StoneWare 





7.5. CONVERSIONS 


31 


Wobei „c“ für ein beliebiges Zeichen, „+“ für die Position des Vor¬ 
zeichens, „#“ für eine Ziffer nnd „E***“ für die Exponentialdarstellnng 
steht. Ziffernstellen, die nicht von der Zahl ausgefüllt werden, werden 
mit fillChar gefüllt, point gibt das Zeichen für den Dezimalstring an. 
Wichtig ist, point darf zwischen dem ersten und dem letzten Nummern¬ 
zeichen nur einmal Vorkommen. Zur Verdeutlichung hier einige Beispiele: 

val = -12533.7892 

mask = "Dies ist eine Zahl #######,### als Beispiel." 
fillChar = " " 
point = "," 

=^„Dies ist eine Zahl -12533,789“ als Beispiel.“ 

val = -12533.7892 

mask = "Wert + ##.###.###,#### " 

fillChar = "0" 

point = "," 

^„Wert - 00.012.533,7892“ 

val = 0.00000056778 

mask = "Größe +#.### E*** " 

fillChar = " " 

point = "." 

^„Größe 5.677 E-07“ 

val = 12533.78 

mask = "Betrag ####### DM ## Pf" 
fillChar = " " 
point = "D" 


^„Betrag 12533 DM 78 Pf“ 




32 


KAPITEL 7. STANDARDMODULE 


PROCEDURE IntToStringCval IN D2 : LONGINT; 

field IND3 : INTEGER :=0; 

fillChar : CHARSTRING; 

Funktion: Wandelt eine Integerzahl in eine Zeichenkette. 

Parameter: 

val 4= Integerzahl, die nmgewandelt werden soll. 

field Anzahl der Stellen, die nmgewandelt werden 

sollen. 

fillChar Füllzeichen, mit dem field aufgefüllt werden 
soll. 

=> String mit der umgewandelten Zahl. 


PROCEDURE IntToHexStringCval IN D2 

field IN D3 

fillChar 

dollar 


LONGINT; 

INTEGER:=0; 

CHAR:=" "; 

BOOLEAN:=FALSE):STRING; 


Funktion: Wandelt eine Integerzahl in eine Zeichenkette in Hexade- 

zimaldarstellung mit Vorzeichen um. Die Darstellung entspricht nicht 

dem 2er-Komplement. 

Parameter: 

val Integerzahl, die umgewandelt werden soll. 

field <;= Anzahl der Stellen, die umgewandelt werden 

sollen. 

fillChar Füllzeichen, mit dem field aufgefüllt werden 
soll. 

dollar Flag, ob ein $-Zeichen vor der Zahl eingefügt 

werden soll. 

=> String mit der umgewandelten Zahl. 
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PROCEDURE IntToBinStringCval IN D2 

field IND3 

fillChar 

sign 


LONGINT; 

INTEGER:=0; 

CHAR:=" 

BOOLEAN:=FALSE):STRING; 


Funktion: Wandelt eine Integerzahl in eine Zeichenkette in Binärdar¬ 
stellung mit Vorzeichen. Negative Zahlen werden ebenfalls nicht im 2er- 
Komplement dargestellt. 

Parameter: 

val ^ Integerzahl, die umgewandelt werden soll. 

field Anzahl der Stellen, die umgewandelt werden 

sollen. 

fillChar ^ Füllzeichen, mit dem field aufgefüllt werden 
soll. 


sign Flag, ob ein °/o-Zeichen vor der Zahl eingefügt 

werden soll. 


^ String mit der umgewandelten Zahl. 


Die Funktionen CardToString, CardToHexString und CardToBinString 
entsprechen in Funktion und Parametern denen von IntToString, 
IntToHexString und IntToBinString. Daher werden sie hier nicht 
noch einmal alle aufgeführt. Ubergibt man CardToBinString oder 
CardToHexString bei ausgeschaltetem 

RangeCheck eine negative Zahl, wird diese im 2er-Komplement darges¬ 
tellt. 
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7.5.2 String to Value 

PROCEDURE StringToReaKREF str IN AO : STRING; 

point : CHAR:="."):L0NGREAL; 

Funktion: Wandelt einen String in eine Realzahl, auch Strings in Ex- 
ponentialdarstellung. 

Parameter: 

str Zeichenkette, die umgewandelt werden soll. 

point Zeichen, welches als Dezimalpunkt verwendet 

wird. 

Realzahl. 

PROCEDURE StringToIntCREF str IN AO : STRING):LONGINT; 
Funktion: Wandelt einen String in eine Longintzahl. 

PROCEDURE HexStringToIntCREF str IN AO : STRING):LONGINT; 

Funktion: Wandelt einen HexString in eine Longintzahl. Keine 2er- 
Komplementdarstellung. 

PROCEDURE BinStringToIntCREF str IN AO : STRING):LONGINT; 

Funktion: Wandelt einen BinärString in eine Longintzahl. Keine 2er- 
Komplementdarstellung 

PROCEDURE StringToCardCREF str IN AO : STRING):LONGCARD; 
Funktion: Wandelt einen String in eine Longcardzahl. 

PROCEDURE HexStringToCardCREF str IN AO : STRING):LONGCARD; 
Funktion: Wandelt einen Hex-String in eine Longcardzahl. 

PROCEDURE BinStringToCardCREF str IN AO : STRING):LONGCARD; 
Funktion: Wandelt einen Binär-String in eine Longcardzahl. 
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7.6 Dates 


Dieses Modul stellt Konvertierungsroutinen zur Umwandlung von Dos- 
Datumsstrukturen zur Verfügung, so daß die Daten in der uns gebräuchliche 
Form ausgegeben werden kann. Weiterhin auch Prozeduren, um Daten 
im Dosformat zu erzeugen. 


DEFINITION MODULE Dates; 

FROM Dos IMPORT Date; 

FROM Exceptions IMPORT RangeVioIation; 


EXCEPTION 

NoLeapYear 
TooMuchDays 
NotBefore78 


"Only in leap-years there is a 29.th, february" 
"This month has less days, than passed"; 

"Year was earlier than 1978"; 


TYPE 

Months = 
Days = 
Hours = 
US-Hours = 
Min_Secs = 
WeekDays = 
MonthNameType = 
ShortNameType = 
DayNameType = 
FuIIDate = 


[ 1 .. 12 ]; 

[1. .31] ; 

[0. .23] ; 

[ 1 .. 12 ]; 

[0..59]; 

[1..7]; 

ARRAY Months OF STRING(IO); 
ARRAY Months OF STRING(3); 


ARRAY WeekDays OF STRING(10); 
RECORD 


year 

[1978..2099]; 

month 

Months; 

day 

[1..31] ; 

dayInWeek 

WeekDays; 

dayInYear 

[1..366]; 

hour 

[0. .23] ; 

us_Hour : 

\ -1 

CN 

1_1 

pm 

BOOLEAN; 

minute, 


second 

[0. .59] ; 

ticks 

[0. .49] ; 


END; 
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CONST 

US_Months 

DJ^onths 

ShortNames 
US_DayNames 
D J)ayNames 


MonthNameType:("January","February","March", 

"April","May","June","July", 
"August","September","October", 
"November","December"); 

MonthNameType:("Januar","Februar","März", 

"April","Mai","Juni","Juli", 
"August","September","Oktober", 
"November","Dezember"); 

ShortNameType:("Jan","Feb","Mar","Apr","May", 

"Jun","Jul","Aug","Sep","Okt", 
"Nov","Dez"); 

DayNameType:("Sunday","Monday","Tuesday", 

"Wednesday","Thursday","Friday", 
"Saturday"); 

DayNameType:("Sonntag","Montag","Dienstag", 

"Mittwoch","Donnerstag","Freitag", 
"Samstag"); 


PROCEDURE FullDateOf(date : Date):FullDate; 


PROCEDURE ValToDate(day 

month 

year 

hour 

min, 

second 


Days; 

Months; 
CARDINAL; 

Hours; 

Min.Secs):Date; 
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CONST 

am = FALSE; | Vormittag 1-12 Uhr 
pm = TRUE; | Nachmittag 13-0 Uhr 


PROCEDURE US_ValToDate(month 

day 

year 

hour 

min, 

second 

pm 


Months; 

Days; 

CARDINAL; 

US_Hours; 

Mi n FIpp^ • 

BOOLEAN:=FALSE):Date; 


GROUP 

All = MonthsjWeekDaysjMonthNameType,ShortNamelype, 

DayNameType, FullDate ,US jyionths ,D jyionths, ähortNames , 
US_DayNames ,D_DayNames, ,FullDateOf , ValToDate ,Date, 
Dos.DateStamp,US_ValToDate; 


END Dates. 
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Exceptions: 

NoLeapYear Es wurde in einem Nicht-Schaltjahr ein 29. Februar übergeben. 

TooMuchDays Das übergebene Tagesdatum ist größer als der Monat 
Tage hat. 

NotBefore78 Es können keine Daten vor 1978 verarbeitet werden. 

Typen: Die einzelnen Elemente von FullDate haben folgende Funktio¬ 
nen: 

year : Jahr 

month : Monat 

day : Tag im Monat 

dayInWeek : Tag in der Woche 

dayInYear : Tag im laufenden Jahr 

hour : Stunde im 24 Stunden-Tag 

us_Hour : Stunde im anglo-amerikanischen 12 Stunden 
Tag 

pm : TRUE für hour OF 13..0 

minute : Minuten der angebrochenen Stunde 
second : Sekunde der angebrochenen Minute 
ticks : 1/50 Sekunden der angebrochenen Sekunde 

Die Konstanten USJyionths, D_Months, ShortNames, US_DayNames und 
D_DayNames dienen zur einfachen Konvertierung der Felder month und 
dayInWeek zu Strings. Jeweils auf deutsch und auf englisch. 
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PROCEDURE FullDateOf(date : Date):FullDate; 

Funktion: Wandelt ein Dos-Date in ein FullDate nm. 
Parameter: 

data <^= Dos-Date, das nmgewandelt werden soll. 

^ FnllDate-Strnknr, mit dem nmgewandelten 
Datnm. 


PROCEDURE ValToDate(day 

month 

year 

nour 

min, 

second 


Days; 

Months; 
CARDINAL; 

Hours; 

Min_Secs):Date; 


Funktion: Erzeugt aus einem deutschen Standarddatum ein Dos-Date. 

Parameter: 

Tag im Monat 
Monat 
Jahr 
Stunde 
4= Minute 
<t= Sekunde 
^ Dos-Date 


day 

month 

year 

hour 

min 

second 
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PROCEDURE US_ValToDate(month 

day 

year 

nour 

min, 

second 

pm 


Months; 

Days; 

CARDINAL; 

US_Hours; 

Min Spp^• 

BOOLEAN:=FALSE):Date; 


Funktion: Erzeugt aus einem anglo-amerikanischen Standarddatum ein 
Dos-Date. 

Parameter: 

day Tag im Monat 

month Monat 

year Jahr 

hour Stunde 

min Minute 

second Sekunde 

pm Flag ob am oder pm 

^ Dos-Date 
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7.7 DosSupport 

Dieses Modul bietet eine Vielzahl von Prozeduren und Methoden zur 
einfachen Handhabung von Dos-Objekten. 


DEFINITION MODULE DosSupport; 


FROM System 

IMPORT 

FROM Exceptions 

IMPORT 

FROM Resources 

IMPORT 

FROM Lists 

IMPORT 

FROM Trees 

IMPORT 


IMPORT 


Regs; 

RangeVioIation; 
NotEnoughMemory,ContextPtr; 
BiLists jTextLists; 

StdTrees; 

Dos; 


TYPE 

DrivePtr 

DirNodePtr 

DirTreePtr 


POINTER TO Drive; 
POINTER TO DirNode; 
POINTER TO DirTree; 


DEFINITION MODULE DriveLists = TextLists(DrivePtr); 


DEFINITION MODULE DirLists 
DEFINITION MODULE DirTrees 


= BiLists(DirNodePtr); 

= StdTrees(DirTreePtr); 


TYPE 

Drive 

DriveList 


FileData 


= DriveLists.TextNode; 

= RECORD OF DriveLists.TextList 
context : ContextPtr; 

END; 

= RECORD 

dir : BOOLEAN; 

name : CLASSPTR TO STRING; 

comment: CLASSPTR TO STRING; 

flags : Dos.ProtectionFIagSet; 

date : Dos.Date; 

length : LONGINT; 

END; 
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DirData 


DirDataPtr 

DirNode 


DirTree 


Selection 

DirSelectType 

DirList 


FileErrors 


FileTexts 


RECORD 

s 

fullSize : LONGINT; 

entries, 
fullEntries, 
dirs, 

fullDirs : INTEGER; 

END; 

POINTER TO DirData; 

RECORD OF DirLists.BiNode; 

data : FileData; 

END; 

RECORD OF DirTrees.Leaf; 
data : FileData; 

dirData : DirDataPtr; 

END; 

(selectFiles,selectDirs); 

SET OF Selection; 

RECORD OF DirLists.BiList 
context : ContextPtr; 
entries, 

dirs : INTEGER; 

size : LONGINT; 

END; 

(ok,unknownError,obj ectInUse,obj ectExists, 
objectNotFound,objectWrongType, 
diskNotValidated,writeProtected, 
renameAcrossDevices,directoryNotEmpty, 
deviceNotMounted,seekError,diskFuII, 
deleteProtected,readProtected,notADosDisk); 
ARRAY FileErrors OF POINTER TO STRING; 


CONST 

FileErrTexts = FileTexts; | 

I-Directory- 

TYPE 

PutProc = PROCEDURE (data : 
PROCEDURE ScanDirC put 

REF path 
REF pattem 
type 


Fehlermeldungen im Klartext 


FileData); 

: PutProc; 

: STRING; 

: STRING:="#?"; 

:= DirSelectType: 
{selectFiles, 
selectDirs}); 


METHOD GetCVAR data 
REF path 


: FileData; 
: STRING) 
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METHOD Delete(VAR list : DirList); 


METHOD GetCVAR 

list 

: DirList; 

REF 

path 

: STRING; 

REF 

pattem 

: STRING:="#?" ; 

:= DirSelectType: 

{selectDirs, 
selectFiles}; 


type 


context 

: ContextPtr := NIL) 


METHOD DeleteCVAR tree 

DirTreePtr); 

METHOD GetCVAR tree 

: DirTreePtr; 

REF path 

: STRING; 

REF pattem 

: STRING:="#?"; 

type 

:= DirSelectType: 
{selectDirs, 
selectFiles}; 

context 

: ContextPtr:=N1L); 


TYPE 

CmpProc = PROCEDURECREF dl,d2 : FileData):B00LEAN; 


PROCEDURE byNameCREF 

PROCEDURE bySizeCREF 

PROCEDURE byDateCREF 
METHOD SortCVAR list 


dl,d2 : FileData):B00LEAN; 

dl,d2 : FileData):B00LEAN; 

dl,d2 : FileData):B00LEAN; 
: DirList;cmp : CmpProc); 


METHOD Sort(father : DirTreePtr;cmp : CmpProc := byName); 


PROCEDURE ExistsCREF name : STRING; 

retry : BOOLEAN := FALSE ):B00LEAN; 

PROCEDURE IsFileCREF name : STRING):BOOLEAN; 
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METHOD Get(VAR list : DriveList; 

physical : BOOLEAN := TRUE; 

context : ContextPtr := NIL); 

METHOD Delete(VAR list : DriveList); 

GROUP 

DirGrp = DirTree,DirTreePtr,byName,bySize,byDate, 

DirNodePtr,DirNode,Selection,DirSelectType, 
Drive,DriveList,DrivePtr,DirList, 

ScanDirjFileData; 

I-Path- 

PROCEDURE SplitName(VAR path,name,extension : STRING); 

PROCEDURE GetPathName (VAR path IN A0,name IN Al : STRING); 
$$0wnHeap:=TRUE 

PROCEDURE NameCREF path IN AO : STRING):STRING; 

$$0wnHeap:=TRUE 

PROCEDURE ExtendedNameCREF path IN AO : STRING):STRING; 
$$0wnHeap:=TRUE; 

PROCEDURE PathCREF fullPath IN AO : STRING):STRING; 
$$0wnHeap:=TRUE 

PROCEDURE ExtensionCREF name IN AO : STRING):STRING; 
PROCEDURE GetSubDirCVAR path : STRING; 

REF subDir : STRING); 

$$0wnHeap:=TRUE; 

PROCEDURE SubDir (REF path,subDir : STRING):STRING; 

PROCEDURE GetParentDir(VAR path IN AO : STRING); 

$$0wnHeap:=TRUE 

PROCEDURE ParentDir(REF path IN AO : STRING):STRING; 
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PROCEDURE BuildNameCVAR path : STRING; 

REF name, 

extension : STRING); 

$$0wnHeap:=TRUE 

PROCEDURE FName(REF path,name,extension : STRING):STRING; 


PROCEDURE GetFuIIPathCREF smallPath : STRING; 

VAR path : STRING); 

$$0wnHeap:=TRUE 

PROCEDURE FuIIPathCREF smallPath : STRING):STRING; 


PROCEDURE BuildConsoIePath (VAR title 

: STRING; 

leftEdge, 


topEdge, 


width. 


height 

: CARDINAL); 


$$0wnHeap:=TRUE 

PROCEDURE ConsoIePathCREF title : STRING; 

leftEdge, 
topEdge, 
width, 

height : CARDINAL):STRING; 


GROUP 

PathGrp = SpIitName,GetFuIIPath,GetPathName,SubDir, 

GetSubDir,GetParentDir,ParentDir,BuildName, 
FName,FuIlPath,BuildConsoIePath,ConsoIePath, 
Path,Name,ExtendedName,Extension; 
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I-Global flies- 

PROCEDURE DeleteCREF name : STRING; 

all : BOOLEAN := FALSE); 


PROCEDURE MakeDirCREF name : STRING); 

PROCEDURE Rename (REF oldName, 

newName : STRING) 


TYPE 

CopyProc = PROCEDURE (VAR name : STRING; 

dir : BOOLEAN); 

CheckProc = PROCEDURE (REF path, 

name : STRING):BOOLEAN; 

PROCEDURE Copy(src, 


dest 

all 

overWrite 


STRING; 

BOOLEAN :=FALSE; 
CheckProc :=N1L; 
CopyProc :=N1L); 
BOOLEAN :=TRUE); 


apply 


clone 


PROCEDURE Move(REF src,dest : STRING); 

TYPE 

SearchProc = PROCEDURE (REF path : STRING; 

data : FileData); 

PROCEDURE Search(REF startDir, 


name 

react 


: STRING; 

: SearchProc); 
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TYPE 

WorkProc = PROCEDURE(REF path,name : 

data : 

PROCEDURE WorkOnFiles (REF path,pattem 

apply 

recursive 

type 


scanFirst 


STRING; 

FileData); 

STRING; 

WorkProc; 
B00LEAN:=FALSE; 

= DirSelectType: 
{selectDirs, 
selectFiles}; 
B00LEAN:=FALSE); 


PROCEDURE SetProtect (REF name 

f lags 


PROCEDURE GetProtect (REF name 

VAR flags 


STRING; 

Dos.ProtectionFIagSet) ; 
STRING; 

Dos.ProtectionFIagSet); 


I-Utilities- 

TYPE 

WindowPtr = DEFERRED POINTER Intuition.WindowPtr; 
PROCEDURE GetSystemRequest (REF window : WindowPtr); 

PROCEDURE RestoreSystemRequest; 

PROCEDURE SysReqOff; 

PROCEDURE SysReqOn; 

PROCEDURE FiIeError2(error : LONGINT):FileErrors; 


(* $E-*) 

PROCEDURE FileErrorO:FileErrors; 


GROUP 

GIobalGrp = DeIete,Rename,Copy,WorkOnFiles, 
SetProtect,GetProtect,FileError, 
FiIeError2,FileErrors,FileErrTexts, 
Search; 

All = DirGrpjPathGrp,GIobalGrp; 


END DosSupport. 
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Exceptions: 

RangeViolation Falls diese Exception von einer Prozednr in diesem 
Modnl ausgelöst wurde, war wahrscheinlich eine der Pfad-Manipu- 
lations-Prozeduren die Ursache, da der zurückgegebene Pfad nicht 
in die Variable gepaßt hat. 

Im Prinzip können in diesem Modul fast alle Exceptions aus dem Modul 

DosSupport ausgelöst werden. Ihre Beschreibung entspricht denen der 

EileError-Group, deren Elemente den gleichen Namen wie die Exception 

haben. Siehe dort. 

Typen: 

Drive, DriveList Generische Erweiterung von 

DriveLists . TextNode und DriveList. TextLists, auf sie sind 
also auch alle Methoden dieses Generischen Moduls anwendbar. 
Bei DriveList handelt es sich um eine alphabetisch geordnete Liste 
der Laufwerke. Dabei gibt das special-Eeld der Textnode an, 
ob es sich um ein physikalisches oder um ein logisches Laufwerk 
handelt. 

FileData Ein Datenblock, der einen Verzeichniseintrag näher beschreibt. 
Die einzelnen Eelder sind: 

dir : Gibt an, ob es sich bei dem Eintrag um 
ein Verzeichnis handelt. 

name : Name des Eintrags. 

comment : Kommentar des Eintrags. 

flags : Protectionflags des Eintrags. Beschrei- 

bung der einzelnen Elags siehe Kapitel 

5.4.3| 

date : Datum der Erzeugung des Eintrags. 

length : Länge des Eintrags, falls es ein Eile ist. 

DirData Datenblock, der nähere Information zu Verzeichnissen bein¬ 
haltet: 
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size 

: Länge aller Einträge dieses Verzeichnisses 
in Bytes. 

fullSize 

: Länge aller Einträge dieses Verzeich¬ 
nisses, inklusive der Länge aller Unterver¬ 
zeichnisse, die darin enthalten sind. 

entries 

: Anzahl der Einträge dieses Verzeichnisses. 
Eiles und Directories 

fullEntries : 

: Anzahl aller Einträge 

inklusive der Anzahl der Einträge even¬ 
tueller Unterverzeichnisse. 

dirs 

: Anzahl der Unterverzeichnisse in diesem 
Verzeichnis. 

fullDirs 

: Anzahl der Unterverzeichnisse in diesem 
Verzeichnis, inklusive aller Unterverzeich¬ 
nisse in Unterverzeichnissen. 


DirTree Knoten eines Verzeichnisbanmes, ebenfalls eine Generische Ansprägnng, 
es können also alle Methoden für Bänme auch auf diesen an¬ 
gewandt werden. Jeder Knoten enthält dabei einen FileData- 
Eintrag, und falls es sich um ein Verzeichnis handelt, auch einen 
Zeiger auf einen DirData-Block. 

DirList Generisch ausgeprägte Liste für Elemente eines Verzeichnisses: 

context : Zeiger auf den Kontext, zu dem die 
Einträge alloziert wurden. Auf dieses Eeld 
sollte nicht zugegriffen werden, sondern 
die entsprechende Ereigabeprozedur ver¬ 
wendet werden. 

entries : Anzahl der Einträge. 

dirs : Anzahl der Unterverzeichnisse. 

size : Summe der Größen aller Einträge in 
Bytes, nicht rekursiv. 

FileErrors Aufzählungstyp aller Rückgabe werte, die bei Dos-Operationen 
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Vorkommen können. Die meisten können, wenn man T_Dos ver¬ 
wendet, auch als Exceptions auftreten. Zum Abfangen eignen sich 
die Exceptiongruppen aus T_Dos besonders gut. Die Elemente im 
einzelnen: 

ok : Es trat kein Eehler auf. 

unknownError : Es trat ein Eehler auf, der nicht einem 

der anderen Eehler zuzuordnen ist. 

objectlnUse : Tritt beim Löschen eines Eiles oder 

Verzeichnisses auf, wenn dieses noch 
geöffnet ist oder darauf noch ein Lock 
existiert. 

objectExists : Es wurde versucht, ein Verzeichnis zu 

erzeugen, das schon existiert. 

objectNotFound : Angefordertes Dos-Object wurde nicht 

gefunden. 
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objectWrongType : Objekt hat nicht den richtigen Typ 

für diese Operation. 

diskNotValidated : Es wnrde schreibend versucht, auf 

einen nicht validierten Datenträger 
zuzugreifen. 

writeProtected : Es wurde schreibend versucht, auf 

ein schreibgeschütztes Eile oder 
Datenträger zuzugreifen. 

renameAcrossDevices : Es wurde bei einem Rename als 

Ziel ein anderes Laufwerk angege¬ 
ben als bei der Quelle. 

directoryNotEmpty : Es wurde versucht, ein nicht leeres 

Verzeichnis zu löschen. 

deviceNotMounted : Es wurde auf ein Device zugegrif¬ 
fen, das nicht angemeldet ist. Ist 
meistens auf einen Schreibfehler 
zurückzuführen. 

seekError : Bei einer Seekoperation trat ein 

Eehler auf. 

diskFull : Es wurde versucht, auf eine volle 

Diskette zu schreiben. 

deleteProtected : Es wurde versucht, ein 

löschgeschütztes Eile zu löschen. 

readProtected : Es wurde versucht, von einem lese¬ 

geschützten Eile zu lesen. 

notADosDisk : Es wurde auf eine Diskette zuge¬ 

griffen, die nicht dem Eormat des 
Amiga-Dos entspricht. 

Konstanten: 

FileErrTexts Array, das als IndexTyp den Aufzählungstyp FileErrors 
hat, und dessen Einträge jeweils eine Klartextmeldung der ents- 
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prechenden Dos-Fehlernummer enthalten. Um z. B. die Meldnng 
zn diskNotValidated zn bekommen, müssen Sie nnr schreiben: 

WriteString(FileErrTexts[diskNotValidated]); 
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7.7.1 Directory Funktionen 


TYPE 

PutProc = PROCEDURE(data : 

PROCEDURE ScanDirC put 

REF path 
REF pattem 
type 


FileData); 

: PutProc; 

: STRING; 

: STRING 

:= DirSelectType: 
{selectFiles, 
selectDirs}); 


Funktion: Diese Funktion stellt wohl die flexibelste Funktion dar, ein 
Verzeichnis zu untersuchen. Sie geht alle Einträge eines Verzeichnisses 
durch und ruft für jeden Eintrag, auf den das Pattern zutrifft, eine 
übergebene Prozedur auf, der die Eintragsdaten übergeben werden. 

Parameter: 

put ^ Prozedur, die bei jedem Eintrag aufgerufen wer¬ 

den soll. 

path <^= Pfad des Verzeichnisses, das untersucht werden 

soll. 

pattem <t= Dos-Pattern, das angibt, welche Einträge unter¬ 
sucht werden sollen. 

type Set, der angibt, ob nur Eile-, nur Verzeichnis¬ 

einträge oder beide untersucht werden sollen. 
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METHOD GetCVAR data : FileData; 

REF path : STRING) 

Funktion: Untersucht ein File/Directory und füllt dazu einen FileDa- 
tablock aus. 

Parameter: 

data FileDatablock, in den die Daten eingetragen wer¬ 

den sollen. 

path ^ Pfad des Eintrags, der untersucht werden soll. 

METHOD Delete(VAR list : DirList); 

Funktion: Gibt eine DirListe frei. 

Parameter: 

list freizugebende Liste 
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METHOD GetCVAR list 
REF path 
REF pattem 
type 


context 


: DirList; 

: STRING; 

: STRING:="#?" ; 

:= DirSelectType: 

{selectDirs, 
selectFiles}; 

: ContextPtr := NIL); 


Funktion: Untersucht ein Directory und gibt eine Liste der Einträge 
zurück. 


Parameter: 


list ^ 

path ^ 

pattern 

type ^ 

context 


Liste, in die die Einträge eingehängt werden 
sollen. 

Pfad des Directorys, das untersucht werden soll. 

Dos-Pattern der Einträge, die in die Liste aufge- 
nommen werden sollen. 

Gibt an, ob nach Eiles, Directories oder nach 
beiden gesucht werden soll. 

Kontext, zu dem der Speicher für die Einträge 
alloziert werden sollen. Standardmäßig wird der 
aktuelle Kontext verwendet. 


METHOD DeleteCVAR tree : DirTreePtr); 

Funktion: Gibt einen DirTree frei. 

Parameter: 

tree freizugebender Baum. 
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METHOD GetCVAR tree 
REF path 
REF pattem 
type 


context 


DirTreePtr; 

STRING; 

STRING 

= DirSelectType: 
{selectDirs, 
selectFiles}; 
ContextPtr:=NIL); 


Funktion: Untersucht ein Directory und die darin enthaltenen Einträge 
und gibt einen Baum der Einträge zurück. 


Parameter: 


tree ^ 

path 

pattern 

type ^ 

context 


Baum, in den die Einträge eingehängt werden 
sollen. 

Pfad des Directorys, das untersucht werden soll. 

Dos-Pattern der Einträge, die in die Liste aufge¬ 
nommen werden sollen. 

Gibt an, ob Eiles,Directories oder beide in den 
Baum aufgenommen werden sollen. 

Kontext, zu dem der Speicher für die Einträge 
alloziert werden soll. Standardmäßig wird der 
aktuelle Kontext verwendet. 


TYPE 

CmpProc = PROCEDURECREF dl,d2 : FileData):BOOLEAN; 

PROCEDURE byNameCREF dl,d2 : FileData):BOOLEAN; 

PROCEDURE bySizeCREF dl,d2 : FileData):BOOLEAN; 

PROCEDURE byDateCREF dl,d2 : FileData):BOOLEAN; 

Funktion: Diese drei Funktionen entsprechen alle dem Typ CmpProc, 
und dienen dazu den folgenden Sortprozeduren übergeben zu werden. 
Dabei sortiert byName nach Namen, bySize nach Größe und byDate 
nach Datum. 


METHOD Sort(VAR list : DirList;cmp : CmpProc); 
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Funktion: Sortiert eine DirList abhängig von einer übergebenen Ver- 

gleichsprozednr. 

Parameter: 

list Liste, die sortiert werden soll. 

cmp Vergleichsprozednr, nach der anfsteigend sortiert 

werden soll. In den meisten Fällen mnß man nnr 
eine der drei oben vordefinierten Fnnktionen hier 
eintragen. 

Beispiel: 

TestListe.Sort(byName); 


METHOD Sort(father : DirTreePtr;cmp : CmpProc := byName); 

Funktion: Sortiert einen DirTree nach obenstehenden Kriterien. 

Parameter: 

father Knoten, von dem ab sortiert werden soll. 

cmp Vergleichsprozednr, nach der anfsteigend sortiert 

werden soll. 

PROCEDURE ExistsCREF name : STRING; 

retry : BOOLEAN := FALSE ):B00LEAN; 

Funktion: Prüft ob ein File/Verzeichnis, dessen Namen übergeben wor¬ 
den ist, existiert. 

Parameter: 

name 4= Name des Files/Verzeichnisses, das überprüft 

werden soll. 

retry Flag, ob im Falle, daß sich der Name auf einem 

nicht im Laufwerk liegenden Volume befindet, 
ein Systemrequester zum Einlegen der Diskette 
auffordern soll. 

^ TRUE wenn das Verzeichnis/File existiert. 
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PROCEDURE IsFileCREF name : STRING):B00LEAN; 

Funktion: Prüft, ob ein übergebener Pfad ein File bezeichnet. 

Parameter: 

name Pfad, der überprüft werden soll. 

=> TRUE, wenn es sich nm ein File handelt. 

METHOD GetCVAR list : DriveList; 

physical : BOOLEAN := TRUE; 

context : ContextPtr := NIL); 

Funktion: Füllt eine übergebene Liste mit Einträgen der angeschlos¬ 

senen Laufwerke (special-Feld der Node = TRUE), sowie der logischen 
Laufwerke (special = FALSE). 

Parameter: 

list ^ Liste, in die die Einträge eingehängt werden 

sollen. 

physical Flag, das angibt, ob nur physikalische Laufwerke 
in die Liste aufgenommen werden sollen. 

METHOD DeIete(VAR list : DriveList); 

Funktion: Gibt eine gefüllte DriveList wieder frei. 

Parameter: 

list Liste, die freigegeben werden soll. 


©1992/93 by StoneWare 




7.7. DOSSUPPORT 


59 


7.7.2 Pfadoperationen 

PROCEDURE SplitName (VAR path,naiiie,extension : STRING); 

Funktion: Zerlegt einen Filenamen in Pfad, Name nnd Erweiternng 
(Pfad/Name. Erweiternng) 

Parameter: 

path Beim Anfrnf der gesamte Eilenamen. 

^ Nach Prozednrende der reine Pfad des Eiles. 
name ^ Name des Eiles. 

extension ^ Erweiternng nach am Namensende z. B. 

iff“ 

PROCEDURE GetPathNameCVAR path IN A0,name IN Al : STRING); 


Funktion: Zerlegt einen String mit kombiniertem Pfad + Filenamen in 
einen getrennten Pfad nnd einen Filenamen. 

Parameter: 

path Pfad kombiniert. 

^ Reiner Pfad. 

name => Abgtrennter Name. 

$$0wnHeap:=TRUE 

PROCEDURE NameCREF path IN AO : STRING):STRING; 

Funktion: Gibt den in einem Pfad enthaltenen Dateinamen ohne an¬ 
gehängte Erweiternng znrück. 

Parameter: 
path Pfad. 

^ Name. 



60 


KAPITEL 7. STANDARDMODULE 


$$0wnHeap:=TRUE 

PROCEDURE ExtendedNameCREF path IN AO : STRING):STRING; 


Funktion: Gibt den in einem Pfad enthaltenen Dateinamen, inklusive 
einer eventuell angehängten Erweiterung zurück. 

Parameter: 
path Pfad. 

^ Name. 

$$0wnHeap:=TRUE; 

PROCEDURE PathCREF fuIIPath IN AO : STRING):STRING; 

Funktion: Gibt den in einem Pfad enthaltenen reinen Pfad zurück. 

Parameter: 

fuIIPath Kompletter Pfad mit Dateinamen. 

^ Reiner Pfad. 

$$0wnHeap:=TRUE 

PROCEDURE ExtensionCREF name IN AO : STRING):STRING; 

Funktion: Gibt die in einem Pfad enthaltene Erweiterung zurück. 

Parameter: 

name Kompletter Pfad. 

=> Darin enthaltene Erweiterung. 

PROCEDURE GetSubDirCVAR path : STRING; 

REF subDir : STRING); 

Funktion: Fügt an einen Pfad ein Unterverzeichnis an. Dabei wird 
darauf geachtet, daß kein „/“ zuviel eingefügt wird. 

Parameter: 

path <(=> Pfad, an den ein Subdir angefügt werden soll. 

subDir Namen des Verzeichnisses, das angefügt werden 

soll. 
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$$OwnHeap:=TRUE; 

PROCEDURE SubDirCREF path,subDir : STRING):STRING; 

Funktion: Wie GetSubDir, jedoch als Funktion. 

PROCEDURE GetParentDirCVAR path IN AO : STRING); 

Funktion: Liefert den Pfad des übergeordneten Directorys. 

Parameter: 

pf ad Pfad, von dem das ParentDirectory ermittelt 

werden soll. Enthält nach dem Aufruf den Pfad 
des übergeordneten Verzeichnisses. 

$$0wnHeap:=TRUE 

PROCEDURE ParentDirCREF path IN AO : STRING):STRING; 
Funktion: Wie GetParentDir, jedoch als Funktion. 

PROCEDURE BuildNameCVAR path : STRING; 

REF name, 

extension : STRING); 

Funktion: Setzt aus einem Pfad, einem Namen und einer Erweiterung 
einen kompletten Pfad zusammen. 

Parameter: 

path einzelner Pfad/zusammengesetzter Pfad, 

name <;= Name, 

extension Erweiterung. 


$$0wnHeap:=TRUE 

PROCEDURE FName(REF path,name,extension : STRING):STRING; 
Funktion: Wie BuildName, jedoch als Funktion. 
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PROCEDURE GetFullPathCREF smallPath : STRING; 

VAR path : STRING); 

Funktion: Gibt, nach Übergabe eines zum aktuellen Verzeichnis re¬ 
lativen Pfades, einen vollständigen Pfad zurück (einschließlich Volume- 
Namen). 

Parameter: 

smallPath Name des UnterVerzeichnisses. 
path ^ Kompletter Pfad. 


$$0wnHeap:=TRUE 

PROCEDURE FuIIPathCREF smallPath : STRING):STRING; 
Funktion: Wie GetFullPath, jedoch als Funktion. 


PROCEDURE BuildConsoIePathCVAR title : STRING; 

leftEdge, 
topEdge, 
width, 

height : CARDINAL); 


Funktion: Setzt aus den übergebenen Werten einen Pfad zusammen, 
wie man ihn zum Offnen eines Gonsol-Fensters benötigt. 

Parameter: 

title Titel des Fensters/zusammengesetzter Pfad. 

leftEdge x Position der linken, oberen Ecke des Fensters. 


topEdge 

width 

heigth 


y Position der linken, oberen Ecke des Eensters. 
^ Breite des Eensters. 

^ Höhe des Eensters. 


$$0wnHeap:=TRUE 

PROCEDURE ConsoIePathCREF title : STRING; 

leftEdge, 
topEdge, 
width, 

height : CARDINAL):STRING; 

Funktion: Wie BuilGonsolePath, jedoch als Funktion. 
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7.7.3 Globale Filefunktionen 

PROCEDURE DeleteCREF name : STRING; 

all : BOOLEAN := FALSE); 

Funktion: Löscht ein File/Verzeichnis. 

Parameter: 

name <^= Pfad des Files/Directories. 

all Gibt an, ob auch Unterverzeichnisse rekursiv 

gelöscht werden sollen. Hier ist äußerste Vor¬ 
sicht geboten! 

PROCEDURE MakeDirCREF name : STRING); 

Funktion: Erzeugt ein Verzeichnis. 

Parameter: 

name ^ Pfad des neuen Verzeichnisses. 

PROCEDURE Rename(REF oldName, 

newName : STRING) 

Funktion: Benennt ein File um. Dabei muß sich der neue Name auf 
dem selben Gerät befinden wie der alte. Jedoch kann der neue Pfad 
innerhalb eines Gerätes in einem anderen Verzeichnis hegen als der alte. 

Parameter: 

oldName Alter Name des Files. 

newName ^ Neuer Name des Files. 

TYPE 

CopyProc = PROCEDURE(VAR name : STRING; 

dir : BOOLEAN); 

CheckProc = PROCEDURE(REF path, 

name : STRING):BOOLEAN; 

PROCEDURE CopyCsrc, 

dest : STRING; 

all : BOOLEAN :=FALSE; 
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overWrite : CheckProc :=NIL; 

apply : CopyProc :=NIL); 

Clone : BOOLEAN :=TRUE); 


Funktion: : Kopiert ein oder mehrere Files oder Verzeichnisse. Der 
Quellpfad, darf dabei ein Dos-Pattern enthalten z. B. „#?. (def |mod)“. 


Parameter: 
src <t= 

dest <t= 

all ^ 


overWrite <t= 


apply ^ 


clone 


Quellpfad. 

Zielpfad. 

Flag, das bestimmt, ob bei der Kopie eines Ver¬ 
zeichnisses darin liegende Verzeichnisse rekursiv 
mitkopiert werden sollen. 

Funktion, die mit Pfad und Namen des Files 
aufgerufen wird, wenn ein File gleichen Na¬ 
mens im Zielverzeichnis schon enthalten ist. Sie 
muß einen BOOLEAN-Wert zurückgeben, ob 
das File überschrieben werden soll. Ist exist- 
Check = NIL, werden eventuell existierende 
Files gleichen Namens überschrieben. Achtung, 
von „overWrite“ darf weder Pfad noch Name 
verändert werden. 

Prozedur, der der Namen des als nächsten zu 
kopierenden Files/Verzeichnisses, sowie ein Flag, 
das angibt, ob es sich um ein Verzeichnis handelt, 
übergeben wird. Verändert „apply“ den Namen, 
wird beim Schreiben des Files dieser neue Namen 
verwendet. 

Flag, das angibt, ob beim Kopieren auch das Fi¬ 
ledatum mitkopiert werden soll. 
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PROCEDURE MoveCREF src,dest : STRING); 

Funktion: Verschiebt ein File/Verzeichnis in ein anderes Verzeichnis, 
auch von einem Laufwerk auf ein anderes. Achtung, diese Prozedur ist 
mit Vorsicht zu genießen, da bei einem Move von einem Laufwerk auf 
ein anderes erst kopiert und dann gelöscht wird. Tritt beim Kopieren ein 
Fehler auf, kann nicht garantiert werden, daß in diesem Fall das Original 
nicht gelöscht wird. 

Parameter: 

src File/Verzeichnis, das verschoben werden soll, 

dest Ziel der Operation. 

TYPE 

SearchProc = PROCEDURE(REF path : STRING; 

data : FileData); 

PROCEDURE Search(REF startDir, 

name : STRING; 

react : SearchProc); 

Funktion: Sucht ein File/Verzeichnis im Verzeichnis „startDir“ und 
dessen Unterverzeichnissen. Wird ein Eintrag mit passendem Namen 
gefunden, wird eine Prozedur aufgerufen, der der Pfad dieses Eintrages, 
sowie sein EileData-Block übergeben wird. 

Parameter: 

StartDir ^ Name des Verzeichnisses, in dem gesucht werden 
soll. 

name Name oder Pattern, nach dem gesucht werden 

soll. 

react ^ Prozedur, die beim Auffinden des gesuchten Na¬ 

mens aufgerufen werden soll. 
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TYPE 

WorkProc = PROCEDURE(REF path,name : STRING; 

data : FileData); 


PROCEDURE WorkOnFiles (REF path,pattem 

apply 

recursive 

type 


scanFirst 


: STRING; 

: WorkProc; 

: B00LEAN:=FALSE; 

:= DirSelectType: 

{selectDirs, 
selectFiles}; 
: B00LEAN:=FALSE); 


Funktion: : Geht eine Verzeichnisstruktur rekursiv durch, und ruft für 
jeden Eintrag die Prozedur „apply“ auf. 

Parameter: 

path ^ Pfad des Verzeichnisses, das bearbeitet werden 

soll. 


pattem Pattern für die Einträge, für die „apply“ aufge¬ 

rufen werden soll. Wird kein Pattern übergeben, 
werden alle Einträge bearbeitet. 

recursive Gibt an, ob auch in dem Verzeichnis liegende 
Unterverzeichnisse rekursiv untersucht werden 
sollen. 

apply Prozedur, die für jeden Eintrag aufgerufen wird, 

auf den „pattem“ paßt. Ihr wird der Name des 
Eintrags, sein Pfad sowie dessen EileData-Block 
übergeben. Sie darf den Pfad und den Namen 
nicht verändern. 

type Gibt an, ob nur Eiles, nur Directories oder beide 

bearbeitet werden sollen. 
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scanfirst Flag, das angibt, ob die Prozedur erst den ge¬ 
samten Verzeichnisbaum durchgehen, sich die 
Einträge die in Frage kommen merken und da¬ 
nach bearbeiten soll, oder ob die Bearbeitung 
gleich beim Scanlauf geschehen soll. In manchen 
Fällen, kommt man ohne scanFirst=TRUE nicht 
aus. 

PROCEDURE SetProtectCREF name : STRING; 

flags : Dos.ProtectionFlagSet); 

Funktion: Setzt Protectionbits für ein File. 

Parameter: 

name Name des Files. 

flags <^= Neue Protectionbits. 


PROCEDURE GetProtectCREF name : STRING; 

VAR flags : Dos.ProtectionFlagSet); 

Funktion: Ließt Protectionbits eines Files. 

Parameter: 

name Name des Files, 

flags Flags des Files. 
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7.7.4 Utilities 

PROCEDURE GetSystemRequest (REF window : WindowPtr); 

Funktion: Leitet Dos-Requester (z. B. Aufforderung zum Einlegen einer 
Diskette) auf den Screen mit dem angegebenen Fenster um. 

Parameter: 

window 4 = Zeiger auf das Window, auf dessen Screen der 
Reqeuster erscheinen soll. 

PROCEDURE RestoreSystemRequest; 

Funktion: Sorgt dafür, daß Dos-Requester wieder auf der Screen er¬ 
scheinen, die beim Programmbeginn eingetragen war. 

PROCEDURE SysReqOff; 

Funktion: Sorgt dafür, daß im Falle eines vom User korrigierbaren Dos- 
Errors (z. B. Disk is writeProtected) kein Systemrequester erscheint, son¬ 
dern die Fehlermeldung unmittelbar vom Programm behandelt werden 
kann. 

PROCEDURE SysReqOn; 

Funktion: Sorgt dafür, daß Dos-Errors wieder mittles Systemreques- 
tern behandelt werden. Achtung: Rufen Sie SysReqOn nicht auf, wenn 
Sie davor nicht SysReqOff benutzt haben. 

PROCEDURE FileError2(error : LONGINT):FileErrors; 

Funktion: Wandelt eine Dos-Fehlernummer in einen FileError um. 

Parameter: 

error DosFehlernummer. 

=> FileError. 

PROCEDURE FileError0:FileErrors; 

Funktion: Gibt den zuletzt aufgetretenen Dos-Fehler als FileError 
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zurück. 

Parameter: 

^ Zuletzt aufgetretener Fehler. 
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7.8 DynamicArrays 

Dieses generische Modul dient zur Verwaltung von dynamischen, also 
wachsenden Arrays. Dabei müssen die Elemente, die eingetragen werden, 
keine Nachfolger eines speziellen Typs sein. 


DEFINITION MODULE DynamicArrays; 

EXCEPTION BadSubscript : "Bad subscript"; 
DEFINITION MODULE DynamicArray(type : ANYPTR); 
TYPE 

Array = RECORD 

data : ARRAY [256] OF POINTER TO 
ARRAY [256] OF type; 

first, 

last : CARDINAL; 

END; 


PROCEDURE 

Init (VAR a : Array); 

PROCEDURE 

Destruct(VAR a 

: Array); 

PROCEDURE 

DeIete(VAR a : 

Array); 

PROCEDURE 

Put (VAR a 

Array; 


index 

CARDINAL; 


data 

type); 

PROCEDURE 

Get (REF a 

Array; 


index 

CARDINAL):type; 

PROCEDURE 

Next (REF a : 

Array; 


old : 

CARDINAL):CARDINAL; 

PROCEDURE 

Prev(REF a : 

Array; 


old : 

CARDINAL):CARDINAL; 


END DynamicArray; 


DEFINITION MODULE DynamicArray2(type : ANYPTR); 
TYPE 
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Array = RECORD 


data 

: ARRAY 

[16] , [16] 

OF 

POINTER 

TO 


ARRAY 

[16] , [16] 

OF 

POINTER 

TO 


ARRAY 

[16] , [16] 

OF 

POINTER 

TO 


ARRAY 

[16] , [16] 

OF 

type; 


firstX, 
firstY, 
lastX, 







lastY 

: CARDINAL; 





END; 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


InitCVAR a : Array); 

Destruct(VAR a : Array); 

Delete(VAR a : Array); 

Put (VAR a : Array; 

X, 

y : CARDINAL; 

data : type); 

Get(REF a : Array; 

X, 

y : CARDINAL):type; 

FirstXatY(REF a : Array; 

y : CARDINAL):CARDINAL; 

LastXatY (REF a : Array; 

y : CARDINAL):CARDINAL; 

FirstYatX(REF a : Array; 

X : CARDINAL):CARDINAL; 

LastYatX(REF a : Array; 

X : CARDINAL):CARDINAL; 
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PROCEDURE NextXCREF a 

X, 

y 

PROCEDURE NextYCREF a 

X, 

y 

PROCEDURE PrevXCREF a 

X, 

y 

PROCEDURE PrevYCREF a 

X, 

y 


Array; 

CARDINAL):CARDINAL; 
Array; 

CARDINAL):CARDINAL; 
Array; 

CARDINAL):CARDINAL; 
Array; 

CARDINAL):CARDINAL; 


END DynamicArray2; 
END DynamicArrays. 


Exceptions: 


BadSubscript Diese Exception wird ausgelöst, wenn man am Anfang 
oder Ende eines Arrays nach dem - nicht vorhandenen - vorheri¬ 
gen oder nächsten belegten Eintrag sucht. 
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7.8.1 Dynamic Array 

Dieses Modul stellt Methoden zur Bearbeitung von eindimensionalen 
Arrays variabler Größe zur Verfügung. Die Größe ist dabei nicht wirklich 
beliebig, sondern Arrays können maximal 65536 Elemente enthalten. 

PROCEDURE InitCVAR a : Array); 

Funktion: Initialisiert ein Array. Muß aufgerufen werden, bevor man 
ein Array verwenden kann. 

Parameter: 

a ^ Array, das initialisiert werden soll. 

PROCEDURE Destruct(VAR a : Array); 

Funktion: Zerstört die Arraystruktur; die darin enthaltenen Elemente 
bleiben jedoch erhalten. 

Parameter: 

a Array, das zerstört werden soll. 

PROCEDURE DeleteCVAR a : Array); 

Funktion: Zerstört die Arraystruktur; die darin enthaltenen Elemente 
werden ebenfalls mit „Dispose“ freigegeben. 

Parameter: 


a 


Array, das gelöscht werden soll. 
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PROCEDURE Put (VAR a : Array; 

Index : CARDINAL; 
data : type); 

Funktion: Trägt einen Wert in das Array ein. Erst dnrch diese An¬ 
weisung wird das entsprechende Feld erzeugt. Somit belegen auch große 
Arrays, die nur wenig gefüllt sind, nur wenig Speicher. 

Parameter: 

a Array, in das der Wert eingetragen werden soll. 

Index Index des Array-Feldes, in das der Wert geschrie¬ 

ben werden soll. 

data Zeiger auf den Wert, der eingetragen werden soll. 

Dabei stellt das generische Konzept sicher, daß 
nur Elemente eines Typs in ein Array gelangen 
können. 

PROCEDURE GetCREF a : Array; 

Index : CARDINAL):type; 

Funktion: Liest den Wert eines Array Feldes aus. 

Parameter: 

a Array, aus dem gelesen werden soll. 

Index ^ Nummer des Feldes, das ausgelesen werden soll. 

Zeiger auf den Wert dieses Feldes. War unter 
diesem Index noch kein Wert eingetragen, wird 
NIL zurückgegeben. 
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PROCEDURE Next(REF a : Array; 

old : CARDINAL):CARDINAL; 

Funktion: Da ein solches dynamisches Array sehr groß nnd trotzdem 

nnr zum Teil gefüllt sein kann, bietet diese Funktion die Möglichkeit, 

den nächsten Index zu ermitteln, an dem ein Wert eingetragen ist. 

Parameter: 

a Array, in dem der nächste Eintrag gesucht wer¬ 

den soll. 

old <^= Position, ab der gesucht werden soll. Liegt old 

hinter dem letzten gültigen Eintrag, wird eine 
Exception ausgelöst. 

=4> Index des nächsten Eintrags, der einen Wert 
enthält. 

PROCEDURE Prev(REF a : Array; 

old : CARDINAL):CARDINAL; 

Funktion: Ermittelt den vorherigen Index, an dem ein Wert eingetra¬ 
gen ist. 

Parameter: 

a Array, in dem der vorherige Eintrag gesucht wer¬ 

den soll. 

old <^= Position, ab der gesucht werden soll. Liegt old 

vor dem ersten gültigen Eintrag, wird eine Ex¬ 
ception ausgelöst. 

^ Index des vorherigen Eintrags, der einen Wert 
enthält. 
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7.8.2 DynamicArray2 

Dieses Modul stellt Methoden zur Bearbeitung von zweidimensionalen 
Arrays variabler Größe zur Verfügung. Die Größe ist dabei nicht wirk¬ 
lich beliebig, sondern Arrays können maximal 4.294.967.296 Elemente 
enthalten. 

Die Funktionen Init, Destruct und Delete entsprechen in ihrere 
Funktion und Parametern den Funktionen aus Dynamic Arrays, siehe 
dort. 


PROCEDURE Put (VAR a 

X, 

y 

data 


Array; 

CARDINAL; 
type); 


Funktion: Trägt einen Wert in ein Array-Feld ein. 

Parameter: 

a Array, in das der Wert eingetragen werden soll. 

X Index in x-Richtung des Array-Feldes, in das der 

Wert geschrieben werden soll. 

y Index in y-Richtung des Array-Feldes, in das der 

Wert geschrieben werden soll. 

data 4= Zeiger auf den Wert, der eingetragen werden soll. 

Dabei stellt das generische Konzept sicher, daß 
nur Elemente eines Typs in ein Array gelangen 
können. 
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PROCEDURE GetCREF a : Array; 

X, 

y : CARDINAL):type; 

Funktion: Liest den Wert eines Array Feldes aus. 

Parameter: 

a 4= Array, aus dem gelesen werden soll. 

X 4= Index in x-Richtung des Feldes, das ausgelesen 

werden soll. 

y 4= Index in y-Richtung des Feldes, das ausgelesen 

werden soll. 

^ Zeiger auf den Wert dieses Feldes. War unter 
diesem Index noch kein Wert eingetragen, wird 
NIL zurückgegeben. 


PROCEDURE FirstXatYCREF a : Array; 

y : CARDINAL):CARDINAL; 

Funktion: Sucht den ersten x-Index mit einem Eintrag in der Reihe 

mit Index „y“. 

Parameter: 

a Array, in dem nach dem Index gesucht werden 

soll. 

y 4= Index der Reihe, in der der erste Eintrag gesucht 

werden soll. 

^ Erster x-Index, an dem sich ein valider Eintrag 
befindet. 
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PROCEDURE LastXatYCREF a : Array; 

y : CARDINAL):CARDINAL; 

Funktion: Sucht den letzten x-Index mit einem Eintrag in der Reihe 

mit Index „y“. 

Parameter: 

a Array, in dem nach dem Index gesucht werden 

soll. 

y Index der Reihe, in der der letzte Eintrag gesucht 

werden soll. 

=> Letzter x-Index, an dem sich ein valider Eintrag 
befindet. 

PROCEDURE FirstYatXCREF a : Array; 

X : CARDINAL):CARDINAL; 

Funktion: Sucht den ersten y-Index mit einem Eintrag in der Spalte 

mit Index „x“. 

Parameter: 

a Array, in dem nach dem Index gesucht werden 

soll. 

X Index der Spalte, in der der erste Eintrag gesucht 

werden soll. 

=> Erster y-Index, an dem sich ein valider Eintrag 
befindet. 
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PROCEDURE LastYatXCREF a : Array; 

X : CARDINAL):CARDINAL; 

Funktion: Sucht den letzten y-Index mit einem Eintrag in der Spalte 

mit Index „x“. 

Parameter: 

a Array, in dem nach dem Index gesucht werden 

soll. 

X Index der Spalte, in der der letzte Eintrag ge¬ 

sucht werden soll. 

=4> Letzter y-Index, an dem sich ein valider Eintrag 
befindet. 

PROCEDURE NextXCREF a : Array; 

X, 

y : CARDINAL):CARDINAL; 

Funktion: Sucht den x-Index des nächsten validen Eintrags in der Zeile 

Parameter: 

a Array, in dem nach dem Index gesucht werden 

soll. 

X Index der Spalte, ab der der nächste Eintrag ge¬ 

sucht werden soll. 

y <t= Index der Zeile, in der gesucht werden soll. 

^ Nächster x-Index in dieser Zeile, an dem sich ein 
valider Eintrag befindet. 
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PROCEDURE NextYCREF a : Array; 

X, 

y : CARDINAL):CARDINAL; 

Funktion: Sucht dem y-Index des nächsten validen Eintrags in Spalte 
x“ 

„Ä . 

Parameter: 

a Array, in dem nach dem Index gesucht werden 

soll. 

X Index der Spalte, in der gesucht werden soll. 

y Index der Zeile, ab der gesucht werden soll. 

=> Nächster y-Index in dieser Spalte, in der sich ein 
valider Eintrag befindet. 

PROCEDURE PrevXCREF a : Array; 

X, 

y : CARDINAL):CARDINAL; 

Funktion: Sucht den x-Index des vorherigen validen Eintrags in der 
Zeile „y“. 

Parameter: 

a Array, in dem nach dem Index gesucht werden 

soll. 

X Index der Spalte, ab der der vorherige Eintrag 

gesucht werden soll. 

y Index der Zeile, in der gesucht werden soll. 

=> Vorheriger x-Index in dieser Zeile, an dem sich 
ein valider Eintrag befindet. 
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PROCEDURE PrevYCREF a : Array; 

X, 

y : CARDINAL):CARDINAL; 

Funktion: Sucht den y-Index des vorherigen validen Eintrags in Spalte 
x“ 

„Ä . 

Parameter: 

a Array, in dem nach dem Index gesucht werden 

soll. 

X ^ Index der Spalte, in der gesucht werden soll. 

y Index der Zeile, ab der gesucht werden soll. 

=4> Vorheriger y-Index in dieser Spalte, in der sich 
ein valider Eintrag befindet. 
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7.9 Exception 

In diesem Modul finden Sie eine Sammlung von Systemexceptions, die 
zum Teil bei Laufzeit fehlem aufgerufen werden und zum Teil von unseren 
Modulen verwendet werden. Sollten Sie einmal eine Exception erhalten, 
die nicht in dem entsprechenden Modul definiert ist, finden Sie sie mit 
Sicherheit hier. Außerdem enthält es Prozeduren, mit denen man im 
Closeteil die letzte Exception abfragen oder auch die Exception ausgeben 
kann. 


DEFINITION MODULE Exceptions; 


EXCEPTION 


EverythingOk 

0; 

BusError 

2; 

AddressError 

3; 

IllegalOpcode 

4; 

DivisionByZero 

5; 

RangeVioIation 

6; 

Overflow 

7; 

PrivilegeVioIation 

8; 

Trace 

9; 

Line A Emulator : 

10; 

Line F Emulator : 

11; 

Trap_0 

32; 

Trap_l 

33; 

Trap_2 

34; 

Trap_3 

35; 

Trap_4 

36; 

Trap_5 

37; 

Trap_6 

38; 

Trap_7 

39; 

Trap_8 

40; 

Trap_9 

41; 

Trap_10 

42; 

Function_NoJleturn : 

43; 

LocaI_Proc_Var : 

44; 

NIL_Dereferenced 

45; 

OverfIow2 

46; 

RangeVioIation2 

47; 

StackUnderflow 

99; 

UserBreak 

100; 
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CouldNotOpenLibrary 
CouldNotOpenResource 
UnimplementedProcedure 
NilPassed 


"Could not open library"; 

"Could not open resource"; 
"Unimplemented procedure"; 
"Nil-pointer passed to procedure"; 


PROCEDURE GetExceptionIdO:L0NGINT; 


$$0wnHeap:=TRUE; 

PROCEDURE GetExceptionStringO:STRING; 


PROCEDURE WriteException; 


PROCEDURE ExceptionToSer; 


END Exceptions. 


EXCEPTION 


EverythingOk Es liegt keine Exception vor, dies sollte normalerweiser 
der Wert sein, den man bei der Exceptionabfrage im Closeteil 
erhalten sollte. Wenn nicht, ist wohl etwas schief gegangen. 

BusError Kann eigentlich nie auftreten, sie ist hier nur der Vollstän¬ 
digkeit halber erwähnt. 

AdressError Wird ausgelöst, wenn man versucht, auf einem 68000 an 
einer ungeraden Adresse ein Wort oder ein Langwort zu lesen. 

IllegalOpCode Kann durch nicht initialisierte Prozedur-Variablen, oder 
durch den Illegal-Befehl in Assembler ausgelöst werden. 

DivisionByZero Es wurde versucht durch Null zu teilen. 

RangeViolation Verletzung eines Zahlenbereichs. Dies kann ein Un¬ 
terbereich sein oder ein Array-Index. 

Overflow Das Ergebnis einer Rechenoperation lag außerhalb des Wer¬ 
tebereichs der verwendeten Typen. 
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PrivilegeViolation Kann dnrch Verwendnng von Snpervisor-Befehlen 
in Assembler anftreten oder, falls der Amiga jemals über einen 
Speicherschntz verfügen sollte, wenn man anf einen fremden Spei¬ 
cherbereich zugreift. 

Trace Kann nur entstehen, wenn man mittels Inline oder Assembler 
das Trace-Flag setzt. 

Line_A_Emulator Kann nur durch Assembler entstehen. Sehr un¬ 
wahrscheinlich . 

Line_F_Emulator Es wurde Code ausgeführt, der für eine FPU (68881/2) 
compiliert wurde, obwohl der Rechner über keine FPU verfügt. 

Bei den oben aufgeführten Exceptions handelt es sich um Prozessorex- 
ceptions und würden normalerweise zu einem Systemalert führen. Wer¬ 
den sie nicht vom Programm abgefangen, werden sie als Laufzeitfehler 
gemeldet, da Cluster grundsätzlich einen Händler für Prozessorexcep- 
tions installiert. 

Die folgenden Exceptions Trap_0...Userbreak sollte man nicht be¬ 
nutzen oder abfangen, da sie für interne Compilerchecks verwendet wer¬ 
den. 

Bei den folgenden Exceptions handelt es sich nicht um Prozessorex- 
ceptions. 

CouldNotOpenLibrary Wird von Systemmodulen, die eine Library 
öffnen aufgerufen, falls sich die Libary nicht öffnen ließ. 

CouldNotOpenResource Wird von Systemmodulen, die eine Resource 
öffnen aufgerufen, falls sich die Resource nicht öffnen ließ. 

UnimplementedProcedure Diese Exception sollte verwendet werden, 
falls man eine Prozedur definiert, aber noch nicht implementiert 
hat. Dies ist besser, als nur eine leere Prozedur zu verwenden, da 
man so nicht so leicht vergißt, sie zu implementieren. 

NilPassed Sollte man in eigenen Prozeduren immer verwenden, wenn 
innerhalb ein Check läuft, ob NIL übergeben wurde. Auch eine 
Anzahl von Prozeduren der Standardmodule verwenden diese Ex¬ 
ception. 
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Die folgenden Prozeduren sind nur zum Aufruf innerhalb eines Closeteil 
sinnvoll, da an anderen Stellen immer nur „EverythingOk“ zurückgeliefert 
würde. 

PROCEDURE GetExceptionIdO:L0NGINT; 

Funktion: Hiermit läßt sich der Wert der aktuellen Exceptionnummer 
ab fragen. Der Wert ist jedoch nur dann als Nummer zu verstehen, wenn 
er im Bereich zwischen 0 und 4000 hegt. Sonst handelt es sich um einen 
Zeiger auf einen Cluster-String. 

Parameter: 

^ Wert der letzten Exception. 

$$0wnHeap:=TRUE; 

PROCEDURE GetExceptionStringO:STRING; 

Funktion: Liefert einen String mit der letzten Exception zurück. War 
die Exception eine Zahl, wird diese automatisch in einen String gewan¬ 
delt. 

Parameter: 

^ String mit der letzten Exception. 

PROCEDURE WriteException; 

Funktion: Gibt die letzte Exception aus. Wenn das Programm von 
der Shell gestartet wurde, wird die Meldung auf der Shell ausgegeben. 
Wurde es von der Workbench gestartet, erscheint ein Systemrequester. 
Diese Punktion kann auch in Libraries verwendet werden. 

PROCEDURE ExceptionToSer; 

Funktion: Im Falle, daß das Programm im CloseTeil selbst abstürzt, 
kann man diese Routine verwenden, die die zuletzt aufgetretene Excep¬ 
tion auf die serielle Schnittstelle ausgibt. Wir verwenden dafür system¬ 
konform die Routine RawPutChar aus Exec. Man kann also eines jener 
Tools verwenden, die diese Ausgabe auf die parallele Schnittstelle um¬ 
lenkt. 



86 


KAPITEL 7. STANDARDMODULE 


7.10 FileSystem 

Das Modul FileSystem stellt Prozeduren und Funktionen zur Dateiver¬ 
waltung zur Verfügung. Eine Datei ist normalerweise einfach eine Byte¬ 
oder Zeichenfolge auf einer Diskette/Festplatte. Sie können selbst eine 
solche Datei erzeugen und darin den Inhalt von Variablen oder allozier- 
ten Speicherstücken abspeichern und jederzeit wieder einiesen. Auf diese 
Weise bleibt die Information auch nach dem Verlassen des Programms 
oder nach dem Ausschalten des Computers erhalten. 

Im Gegensatz zu Dos nimmt ihnen dieses Modul jedoch eine Menge 
Arbeit ab, außerdem schließt es automatisch alle geöffneten Files am 
Programmende wieder. 

Man kann aber auch an eine bestehende Datei (im Folgenden auch 
File genannt) Daten anhängen, diese verändern, oder auch einfach nur 
Daten aus dieser einiesen und verarbeiten. 


DEFINITION MODULE FileSystem; 

FROM System IMPORT Regs; 

FROM Resources IMPORT NotEnoughMemory,ContextPtr; 
FROM T_Dos IMPORT DosExceptionGrp; 


EXCEPTION 

BadFile 

NoInFile 

NoOutFile 

OutFileOpenedTwice 

InFileOpenedTwice 


"Bad filehandle"; 

"InFile not opened"; 
"OutFile not opened"; 
"OutFile allready open"; 
"InFile allready open"; 


GROUP 

FsExceptionGrp = NoInFile,NoOutFile,NotEnoughMemory, 

TJDos.DosExceptionGrp; 


TYPE 

File = HIDDEN; 


I-Global File- 

PROCEDURE Open (VAR f : File; 

REF name : STRING; 
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new : BOOLEAN := FALSE; 

size : LONGINT := $1000; 
context : ContextPtr := NIL); 

PROCEDURE CloseCVAR f : File); 

PROCEDURE LengthCf : File):LONGINT; 

I-Input- 

PROCEDURE Read(f : File;VAR c : CHAR); 

PROCEDURE ReadBlockCf : File; VAR block : ANYTYPE); 
PROCEDURE ReadBytesCf : File;pos : ANYPTR;len : LONGINT); 


I-Output- 

PROCEDURE WriteCf : File;c : CHAR); 

PROCEDURE WriteBlockCf : File;REF block : ANYTYPE); 
PROCEDURE WriteBytesCf : File;pos : ANYPTR;len : LONGINT); 


PROCEDURE Pos(f : File):LONGINT; 

PROCEDURE SetPosCf : File;pos : LONGINT); 
PROCEDURE Eof(f : File):BOOLEAN; 


GROUP 

FilelOGrp = Open,File,Close,Length,Read,ReadBlock, 
ReadBytes,Write,WriteBlock,WriteBytes, 
Pos,SetPos,Eof; 

I-Quickfiles- 

PROCEDURE Q_OpenInFile(REF name : STRING; 

buffSize : LONGINT; 
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context : ContextPtr:=NIL); 

PROCEDURE Q_OpenOutFile(REF name : STRING; 

buffSize : LONGINT; 
context : ContextPtr:=NIL); 

PROCEDURE Q.CloselnFile; 

PROCEDURE Q.CloseOutFile; 


PROCEDURE Q_Test(c : CHAR):B00LEAN; 

PROCEDURE Q_Read(VAR c IN AO : CHAR) ; 

PROCEDURE Q_ReadBIock(VAR block : ANYTYPE); 
PROCEDURE Q_ReadBytes(pos : ANYPTR;Ien : LONGINT); 
PROCEDURE Q_Write(c IN D4 : CHAR); 

PROCEDURE Q_WriteBIock(REF block : ANYTYPE); 
PROCEDURE Q_WriteBytes(pos : ANYPTR;Ien : LONGINT); 


PROCEDURE Q_GetInPos():LONGINT; 
PROCEDURE Q_SetInPos(pos : LONGINT); 
PROCEDURE Q.GetOutPosO:LONGINT; 
PROCEDURE Q_SetOutPos(pos : LONGINT); 


GROUP 

QuicklOGrp = Q_OpenInFiIe,Q_OpenOutFiIe,Q_CIoseInFiIe, 
Q_CIoseOutFile, Q_Test, Q_Read, Q_ReadBIock, 
Q_ReadBytes, Q_Write,Q_WriteBlock,Q_WriteBytes, 
Q_GetInPos,Q_SetInPos,Q_GetOutPos,Q_SetOutPos; 
All = FilelOGrp,QuicklOGrp; 

END FileSystem. 


Exception: 

BadFile Ein übergebener Filehandle ist nicht gültig. 
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NoInFile Bei einer Quickfilefunktion wurde auf das Eingabefile zuge¬ 
griffen, ohne daß eines geöffnet wurde. 

NoOutFile Bei einer Quickfilefunktion wurde auf das Ausgabefile zu¬ 
gegriffen, ohne daß eines geöffnet wurde. 

OutFileOpenedTwice Da sich immer nur ein Quick-Ausgabefile öffnen 
läßt, wird diese Exception aufgerufen, wenn versucht wird, ein 
zweites zu öffnen. 

InFileOpenedTwice Da sich immer nur ein Quick-Eingabefile öffnen 
läßt, wird diese Exception aufgerufen, wenn versucht wird, ein 
zweites zu öffnen. 

Im übrigen können Exceptions aus dem Modul T_Dos auftreten. 
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7.10.1 Global File 


PROCEDURE Open (VAR f 


REF name 
new 
size 
context 


File; 

STRING; 

BOOLEAN := FALSE; 
LONGINT := $1000; 
ContextPtr := NIL); 


Funktion: Bevor man in ein File schreiben oder davon lesen kann, muß 
man es erst öffnen. Dabei können alle Exceptions der Exceptiongruppe 
„OpenErr“ aus dem Modul T_Dos auftreten. Nach dem Öffnen steht der 
interne Positionszeiger des Eiles am Anfang des Eiles. 

Parameter: 

f ^ Zugriff auf das Eile. Da das EileSystem beliebig 

viele Dateien öffnen kann, benötigt man einen 
Zugriff auf das Eile, der bei allen weiteren Ope¬ 
rationen übergeben wird, damit das Modul weiß, 
welches Eile es zu bearbeiten hat. 

name ^ Pfad der Datei, die geöffnet werden soll. 

new Muß TRUE sein, wenn eine neue Datei erzeugt 

und eine bestehende mit gleichem Namen dabei 
gelöscht werden soll. Ist new FALSE, dann wird 
eine bestehende Datei geöffnet. 
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size 4 = Gibt an, wie groß der Puffer sein soll, der für 

das File eingerichtet werden soll. Da ein Disket¬ 
tenlaufwerk nicht unbedingt zu den schnellsten 
Datenträgern zählt, sollte man nur darauf zu¬ 
greifen, wenn eine größere Datenmenge darauf 
geschrieben oder davon gelesen werden soll. Aus 
diesem Grund hält man sich immer einen Teil 
der Datei in einem Puffer im Speicher und ar¬ 
beitet in diesem. Nur wenn man sehr große Da¬ 
tenmengen auf einmal schreiben oder lesen will, 
sollte man auf einen Puffer verzichten (size=0, 
da sonst die Daten unnötigerweise erst in den 
Puffer und dann an ihr Ziel kopiert werden, ans¬ 
tatt direkt dorthin. Als Faustregel sollte man 
den Puffer am besten zwischen einem und zehn 
KBytes wählen. 

context y= Gontext, zu dem das File geöffnet werden soll. 

Ist dieser NIL, wird der ActGontext verwendet 
(siehe Resources). 

PROCEDURE CloseCVAR f : File); 

Funktion: Schließt ein File. Alle von ihnen geöffneten Files müssen am 
Ende wieder geschlossen werden. Zwar schließt FileSystem die Files auch 
selbständig, jedoch zeugt es von schlechtem Stil, sich darauf zu verlassen, 
da man damit wahrscheinlich Files länger geöffnet hält als nötig. Außer¬ 
dem wird anderen Programmen der Zugriff auf dieses File unnötigerweise 
eingeschränkt, was man in einem Multitaskingsystem stets vermeiden 
sollte. 

Parameter: 

f <^= Zugriff auf das File, das geschlossen werden soll. 
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PROCEDURE LengthCf : File):L0NGINT; 

Funktion: Liefert die aktuelle Länge eines Files. 

Parameter: 

f ^ Zugriff auf das File, dessen Länge ermittelt wer¬ 

den soll. 

Länge des Files in Bytes. 

7.10.2 Input 

Hier finden sich alle Funktionen, um von einem File Daten zu lesen. 
PROCEDURE ReadCf : File; VAR c : CHAR); 

Funktion: Liest ein Zeichen aus einem File. Der interne Positionzeiger 
wandert dabei eine Stelle weiter. War man schon am Ende eines Files, 
wird die Exception „EOF“ ausgelöst. 

Parameter: 

f ^ Zugriff auf das File, von dem gelesen werden soll, 

c ^ Zeichen, das gelesen wurde. 

PROCEDURE ReadBlockCf : File;VAR block : ANYTYPE); 

Funktion: Dient dazu, die selbe Anzahl von Bytes zu lesen, die der 
Länge der übergebenen Variablen entspricht. Dieser Prozedur können 
Sie also im Grunde Variablen aller Typen übergeben (besonders für 
Records geeignet). Versuchen Sie jedoch nicht ein ASCII-File in einen 
String einzulesen, da dabei auch das Längenfeld des Strings mit Zeichen 
gefüllt würde. 

Parameter: 

f Zugriff auf das File, von dem gelesen werden soll, 

block ^ Gelesene Variable. 
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PROCEDURE ReadBytesCf : File;pos : ANYPTR;len : LONGINT); 
Funktion: Liest eine beliebige Anzahl Bytes nnd schreibt sie an eine 

bestimmte Position in den Speicher. Dabei verschiebt sich die Leseposi¬ 
tion um die Anzahl der gelesenen Bytes. 

Parameter: 

f ^ Zugriff auf das File, von dem gelesen werden soll. 

pos Zeiger auf die Position im Speicher, an die die 

Daten geschrieben werden sollen. 

len Anzahl Bytes, die gelesen werden sollen. 

7.10.3 Output 

Hier finden Sie alle Prozeduren, um Daten in ein File zu schreiben. 
PROCEDURE WriteCf : File;c : CHAR); 

Funktion: Schreibt ein Zeichen in ein File. Der interne Positionszeiger 
wandert dabei eine Stelle weiter. Es wird dabei immer an der aktuellen 
Position weitergeschrieben. 

Parameter: 

f Zugriff auf das File, in das geschrieben werden 

soll. 

c ^ Zeichen, das geschrieben werden soll. 
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PROCEDURE WriteBlockCf : File;REF block : ANYTYPE); 

Funktion: Eignet sich vor allem, um z. B. ganze Records oder Arrays 
auf einmal zu schreiben, die man später wieder mit ReadBlock einiesen 
kann. Achtung, wollen Sie nur den wirklich gefüllten Teil eines Strings als 
ASCII-Text abspeichern, so sollten Sie dazu nicht WriteBlock benutzen, 
da diese Routine immer den gesamten String, also mit Länge und nicht 
benutzten Feldern abspeichert. 

Parameter: 

f Zugriff auf das File, in das geschrieben werden 

soll. 

block ^ Variable, deren Inhalt geschrieben werden soll. 


PROCEDURE WriteBytesCf : File;pos : ANYPTR;len : LONGINT); 

Funktion: Schreibt von einer bestimmten Position im Speicher ab eine 
Anzahl Bytes in ein File. Eignet sich sehr gut, eine bekannte Anzahl 
Bytes abzuspeichern, so z. B. um dynamische Strukturen abzuspeichern, 
oder die Zeichen eines Strings. 

WriteBytes(MyFile,Str.data ’ PTR,Str.len) 

Parameter: 

f Zugriff auf das File, in das geschrieben werden 

soll. 

pos Zeiger auf die Position im Speicher, von der ab 

die Daten gelesen werden sollen. 

len Anzahl Bytes, die in das File geschrieben werden 

sollen. 
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7.10.4 Position 

Hier finden Sie die Fnnktionen, nm die aktuelle Position im File abzu¬ 
fragen oder neu zu setzen. 

PROCEDURE Pos(f : File):LONGINT; 

Funktion: Gibt die aktuelle Position des internen Schreib/Lesezeiger 
relativ zum Dateianfang zurück. 

Parameter: 

f File, von dem man die Information erhalten 

möchte. 

^ Aktuelle Position. 

PROCEDURE SetPosCf : File;pos : LONGINT); 

Funktion: Daten am Stück zu lesen oder zu schreiben wäre nichts be¬ 
sonderes, denn das könnte man auch mittels InOut. Interessant wird es 
bei Dateien mit immer gleichgroßen Datenfeldern, z. B. eine Adreßda- 
tei. Hier möchte man gerne direkt auf das gewünschte Datenfeld zugrei¬ 
fen, ohne die ganze Datei einzuladen. Daher hat man in Dateien eine 
Schreib/Lesemarke geschaffen, ähnlich einem Cursor im Editor. Um 
diese Marke zu versetzen, benutzt man SetPos. Um z. B. auf das 12. 
Datenfeld des Typs AdrRecord zuzugreifen, müßte man nur folgendes 
machen: SetPos(MyFile,12*AdrRecord’SIZE). 

Parameter: 

f <^= File, dessen Marke versetzt werden soll. 

pos ^ Neue Position in Bytes, vom Fileanfang aus 

gerechnet. 

PROCEDURE Eof(f : File):BOOLEAN; 

Funktion: Hiermit kann überprüft werden, ob man schon das Ende 
des Eiles erreicht hat. Diese Eunktion hat jedoch viel von ihrer Bedeu¬ 
tung verloren, da nun alle Lesefunktionen die Exception „EOF“ auslösen, 
sobald man über das Eileende hinausliest. 
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Parameter: 

f File, das überprüft werden soll. 

^ TRUE, wenn mit der letzten Operation das Fi¬ 
leende ereicht wnrde. Versucht man dennoch 
weiterzulesen, wird eine Exception ausgelöst. 

7.10.5 Quickfiles 

Durch die Möglichkeit mit den bisherigen Prozeduren gleichzeitig lesend 
und schreibend auf eine Datei zuzugreifen, fällt ein enormer Verwal¬ 
tungsaufwand an, der auch entsprechend Zeit benötigt. Bei vielen An¬ 
wendungen ist es jedoch nicht nötig, gleichzeitig auf ein File lesend und 
gleichzeitig schreibend zuzugreifen. Ein gutes Beispiel ist der Compiler; 
er muß beim Übersetzen auf Symbolmodule nur lesend zugreifen und 
schreibt auch nur in eine neu erzeugte Datei, ohne von dieser lesen zu 
müssen. 

In solchen Eällen sollte man die Quickfileroutinen verwenden. Mit 
diesen läßt sich zwar nur auf jeweils ein Eile entweder lesend oder schrei¬ 
bend zugreifen, dafür sind sie einiges schneller als die normalen Routinen. 
Außerdem muß man nicht bei jedem Eunktionsaufruf einen Eilepointer 
übergeben, da immer klar ist, auf welches der beiden Eiles der Zugriff 
geschehen soll. 

Q_OpenInFile Öffnet ein Eile, um davon zu lesen. Danach ist es nicht 
möglich, auch auf das Eile zu schreiben. Versucht man zweimal ein 
Eile auf diese Weise zu öffnen, ohne das letzte „Infile“ geschlossen 
zu haben, wird eine Exception ausgelöst. 

Q_OpenOutFile Öffnet ein Eile, um darauf zu schreiben. Davon kann 
dann nicht gelesen werden. Versucht man zweimal ein Eile auf 
diese Weise zu öffnen, ohne das letzte „Outfile“ geschlossen zu 
haben, wird eine Exception ausgelöst. 

Q_CloseInFile Schließt das LeseEile. 

Q_CloseOutFile Schließt das Ausgabefile. 
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Die weiteren Routinen entsprechen in ihrer Funktion den oben erklärten, 
sie sind lediglich durch ein vorangesteltes „Q_“ gekennzeichnet. Für Set- 
Pos und Pos existieren jeweils für In- und OutFile zwei Prozeduren 
Q_SetInPos, Q_SetOutPos und Q_GetInPos, Q_GetOutPos. 

PROCEDURE Q_Test(c : CHAR):B00LEAN; 

Funktion: Oft möchte man wissen, welches Zeichen als nächstes gelesen 
würde. Hierfür dient Q_Test. Mit dieser Funktion können Sie testen, ob 
das nächste Zeichen gleich dem übergebenen ist. Diese Funktion ist viel 
schneller, als erst ein Zeichen zu lesen, und eventuell wieder die Marke 
zurückzusetzen. Parameter: 

c <^= Zeichen, das getestet werden soll. 

^ TRUE, wenn das nächste Zeichen „c“ entspricht. 
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7.11 GfxDraw 

Bevor Sie hier weiterlesen sollten Sie erst mal einen Blick in GfxScreen 
werfen, da Sie einige Dinge von dort benötigen. GfxDraw enthält Pro¬ 
zeduren, um einfach die graphischen Fähigkeiten des Amigas nutzen zu 
können. Die GfxModule nehmen einem gegenüber dem Betriebssystem 
eine Menge Arbeit ab. GfxDraw enthält zum großen Teil alle Funk¬ 
tionen, die auch Graphics bietet, doch dürfen Sie nie Funktionen aus 
Graphics mit denen aus GfxDraw vermischen. Sollten Sie es doch tun, 
können wir keine Verantwortung für die Folgen übernehmen. 


DEFINITION MODULE GfxDraw; 

FROM System IMPORT BITSET,SHORTSET; 

FROM GfxScreen IMPORT Screen; 

EXCEPTION 

AreaDrawFail 
AreaEIIipseFail 
AreaEndFail 
AreaMoveFail 
FIoodFail 
WritePixelFail 

TYPE 

Point = ARRAY [0..1] OF INTEGER; 

Polygon = ARRAY OF Point; 

DrawModes = (drawAPen,drawABPen,drawInvers); 

Pattern = ARRAY OF CARDINAL; 


Areaoraw laixea ; 
"AreaEIIipse failed"; 
"AreaEnd failed"; 
"AreaMove failed"; 
"Flood faiied"; 
"WritePixel faiied": 


PROCEDURE SetAPenCs : Screen;color : INTEGER); 
PROCEDURE SetBPenCs : Screen;color : INTEGER); 

PROCEDURE SetDrawMode(s : Screen;mode : DrawModes); 

PROCEDURE SetPIanesCs : Screen;plane : SHORTSET); 
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PROCEDURE SetDrawPtCs : 
PROCEDURE SetAreaPtCs : 

PROCEDURE ClearScreenCs 

PROCEDURE WritePixeK s 
PROCEDURE ReadPixeK s 


Screen;pat : CARDINAL); 
Screen;VAR pat : Pattern); 

: Screen); 

: Screen; x, y : INTEGER ); 
Screen;x,y : INTEGER ):INTEGER; 


PROCEDURE CursorXC 
PROCEDURE CursorYC 

PROCEDURE Move(s : 
PROCEDURE MoveToCs 

PROCEDURE Draw(s : 
PROCEDURE DrawToCs 

PROCEDURE Line(s : 


s : Screen ):INTEGER; 
s : Screen ):INTEGER; 

Screen;x,y : INTEGER); 

: Screen;dx,dy : INTEGER); 

Screen;x,y : INTEGER); 

: Screen;dx,dy : INTEGER); 

Screen;xl,yl,x2,y2 : INTEGER); 


PROCEDURE DrawRectangle(s : Screen;xl,yl,x2,y2 : INTEGER); 

PROCEDURE DrawPoIygon(s : Screen;VAR poly : Polygon); 
PROCEDURE DrawCircIe(s : Screen;x,y,r : INTEGER); 

PROCEDURE DrawEIIipse(s : Screen;x,y,a,b : INTEGER); 

GROUP 

DrawGrp = 

(*T*) DrawModes »Pattern,Point »Polygon, 

Screen»SHORTSET» 

(*E*) WritePixelFail» 

(*P*) ClearScreen»CursorX»CursorY»Draw» 

DrawCirde»DrawEIIipse,DrawPoIygon, 
DrawRectangle»DrawTo »Line»Move»MoveTo, 
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ReadPixel,SetAPen,SetAreaPt,SetBPen, 
SetDrawMode,SetDrawPt,SetPlanes,WritePixel; 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

GROUP 


AreaMoveC s : Screen;x,y : INTEGER ); 

AreaDraw(s : Screen;x,y : INTEGER); 

AreaEndC s : Screen ); 

AreaRectangle(s : Screen;xl,yl,x2,y2 : INTEGER); 

AreaPoIygon(s : Screen; VAR poly : Polygon); 
AreaCircIe(s : Screen;x,y,r : INTEGER); 
AreaEIIipse(s : Screen;x,y,a,b : INTEGER); 
FIood(s : Screen;x,y : INTEGER); 


ExceptionGrp = 


AreaGrp 


(*E*) 

(*!*) 

(*P*) 


All 


AreaDrawFail,AreaEIIipseFail, 

AreaEndFail,AreaMoveFailjFIoodFail, 
WritePixelFail; 

AreaDrawFail,AreaEIIipseFail,AreaEndFail, 
AreaMoveFail, FIoodFail, 

Screen, 

AreaCircIe,AreaDraw,AreaEIIipse,AreaEnd, 
AreaMove,AreaPoIygon,AreaRectangle,Flood, 
SetAreaPt; 

DrawGrp,AreaGrp; 


END GfxDraw. 


Exceptions: 

AreaDrawFail Funktion AreaDraw konnte nicht ordnungsgemäß aus¬ 
geführt werden. 

AreaEIIipseFail Funktion AreaEIIipse konnte nicht ordnungsgemäß 
ausgeführt werden. 

AreaEndFail Funktion AreaEnd konnte nicht ordnungsgemäß ausgeführt 
werden. 
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AreaMoveFail Funktion AreaMove konnte nicht ordnungsgemäß aus¬ 
geführt werden. 

FloodFail Funktion Flood konnte nicht ordnungsgemäß ausgeführt wer¬ 
den. 

WritePixel Es wurden Punkkoordinaten übergeben, die außerhalb des 
Bildschirms hegen. 

Typen: 

Point Beschreibung eines Bildpunktes, dabei gibt der erste Eintrag des 
Arrays die x, der zweite die y-Koordinate an. 

Polygon Offenes Array von Punkten. Dient zur Definition von Polygo¬ 
nen für die Punktion AreaPolygon. 

DrawModes Legt die Art fest, wie die Zeichenoperationen wirken: 

drawAPen Es wird mit dem Vordergrundstift, dem APen ge¬ 
zeichnet, bei einer Schrift oder einem Muster freie Stellen 
lassen den Hintergrund durchscheinen. 

drawABPen Es wird mit dem Vordergrundstift, dem APen, ge¬ 
zeichnet, bei einer Schrift oder einem Muster freie Stellen 
werden mit dem Hintergrundstift, dem BPens, gefüllt. 

drawinvers Beim Zeichnen werden die betroffenen Stellen des 
Hintergrunds invertiert. Durch nochmaliges darüberzeichnen 
mit diesem Modus stellt man den ursprünglichen Hinter¬ 
grund wieder her. 

Pattern Muster für Elächen, dieses ist 16 Punkte (Bits) breit und eine 
zweierPotenz hoch, also 1,2,4,8,16,32 Punkte hoch. Jede Car- 
dinalzahl in diesem Eeld entspricht daher einer Zeile des Mus¬ 
ter und jedes gesetzte Bit in einer Cardinalzahl einem gesetzen 
Punkt. Am besten legt man Pattern als konstantes Array an und 

^Denken Sie daran, daß in einem Array mit Bereich [0. . x] das erste Felde 

immer den Index „0“ hat. 
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gibt die einzelnen Felder direkt binär an : yollOOllOOllOOllOO. 
Bei DrawMode=drawAPen werden die gesetzen Pnnkte in der Farbe 
des APens gezeichnet nnd die nicht gesetzten Pnnkte lassen den 
Hintergrnnd durchscheinen; für DrawMode=drawABPen werden die 
nicht gesetzten Punkte in der Farbe des BPens gezeichnet. Wich¬ 
tig ist, daß dieses Feld im ChipMem liegen muß. Daher derartige 
Konstanten in ein einzelnes Modul auslagern und dort am Anfang 
den Schalter $$ChipMem:=TRUE setzen. 


PROCEDURE SetAPenCs : Screen;color : INTEGER); 

Funktion: Setzt die Farbe des Vordergrundstiftes. 

Parameter: 

s <;= Zugriff auf den Screen. 

color <;= Farbregisternummer, die dem Vordergrundstift 

zugeordnet werden soll. 

PROCEDURE SetBPenCs : Screen;color : INTEGER); 

Funktion: Setzt die Farbe des Hintergrundstiftes. 

Parameter: 

s <;= Zugriff auf den Screen. 

color <;= Farbregisternummer, die dem Hintergrundstift 

zugeordnet werden soll. 

PROCEDURE SetDrawMode(s : Screen;mode : DrawModes); 

Funktion: Setzt den Zeichenmodus für einen Screen 

Parameter: 

s <;= Zugriff auf den Screen, dessen Zeichenmodus ge¬ 

setzt werden soll. 

mode <;= Neuer Zeichenmodus. 
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PROCEDURE SetPlanesCs : Screen;plane : SHORTSET); 

Funktion: Mit dieser Prozedur kann man festlegen, auf welche Bit¬ 
planes eines Screens gezeichnet werden kann. 

Parameter: 

s ^ Zugriff auf den Screen. 

plane Bitplanes, in die gezeichnet werden darf. Die 

Bitplanes entsprechen dabei direkt den Num¬ 
mern der Bits (Denken Sie daran, daß Informa¬ 
tiker immer bei 0 mit dem Zählen anfangen) im 
SHORTSET. Um z. B. nur auf BitPlane 1,3,5 zuzu¬ 
greifen müßten Sie für plane SHORTSET: {l, 3 ,5} 
wählen. Standardmäßig ist plane bei vier Bit¬ 
planes SHORTSET : {0, 1 , 2 ,3} gesetzt. 

PROCEDURE SetDrawPtCs : Screen;pat : CARDINAL); 

Funktion: Setzt das Linienmuster, daß bei Linienroutinen verwendet 

werden soll. 

Parameter: 

s ^ Zugriff auf den Screen. 

pat Ist eine Cardinalzahl, in der wie bei Pattern jedes 

gesetzte Bit für einen gesetzten Punkt steht. Um 
z. B. eine gepunktete Linie zu erhalten müßten 
Sie pat = yollOOllOOllOOllOO setzen. 

PROCEDURE SetAreaPtCs : Screen; VAR pat : Pattern); 

Funktion: Setzt das Flächenmuster, das von nun an für alle Flächen- 

und Füllfunktionen verwendet werden soll. 

Parameter: 

s Zugriff auf den Screen. 

pat Muster, Aufbau siehe Erklärung der Typen 

dieses Moduls oben. 
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PROCEDURE ClearScreen(s : Screen); 

Funktion: Füllt den Screen mit der Hintergrnndfarbe. 

Parameter: 

s Zngriff anf den Screen, der gelöscht werden soll. 

PROCEDURE WritePixeK s : Screen; x, y : INTEGER ); 

Funktion: Setzt einen Punkt in der Vordergrundfarbe. Falls der Pixel 
außerhalb des Screens lag, wird die Exception WritePixelFail aus¬ 
gelöst. 

Parameter: 

s Zugriff auf den Screen, auf dem der Punkt ge¬ 

setzt werden soll. 

X x-Position des Punktes, 

y y-Position des Punktes. 

PROCEDURE ReadPixeK s : Screen;x,y : INTEGER ):INTEGER; 
Funktion: Liest die Farbe eines Punktes ein. 

Parameter: 

s Zugriff auf den Screen. 

X ^ x-Position des Punktes. 

y ^ y-Position des Punktes. 

Nummer des Stiftes, mit dem dieser Punkt ge¬ 
zeichnet wurde. 
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PROCEDURE CursorXC s : Screen ):INTEGER; 

Funktion: Ermittelt die x-Koordinate des Graphikcursor^ 

Parameter: 

s ^ Zugriff auf den Screen. 

^ x-Koordinate des Cursors. 

PROCEDURE CursorYC s : Screen ):INTEGER; 

Funktion: Ermittelt die y-Koordinate des Graphikcursors. 

Parameter: 

s ^ Zugriff auf den Screen. 

^ y-Koordinate des Cursors. 


^Bei einigen Zeichenoperationen, wie dem Zeichnen von Linien oder Tex¬ 
tausgabe, übergibt man nicht die Position direkt, sondern die Ausgabe wird an 
der Position eines unsichtbaren Graphikcursors gemacht. Nach der Operation 
befindet sich der Cursor am Ende der Linie / des Texts, so daß man direkt 
weiterzeichnen kann. 
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PROCEDURE Move(s : Screen;x,y : INTEGER); 

Funktion: Setzt den Graphikcursor an die angegeben Position. 

Parameter: 

s Zugriff auf den Screen. 

X Neue x-Position des Cursors, 

y ^ Neue y-Position des Cursors. 

PROCEDURE MoveToCs : Screen;dx,dy : INTEGER); 

Funktion: Verschiebt den Graphikcursor relativ zur aktuellen Position. 

Parameter: 

s Zugriff auf den Screen. 

dx Betrag, um den der Cursor relativ in x-Richtung 

verschoben werden soll. Kann auch negativ sein. 

dy 4 = Betrag, um den der Cursor relativ in y-Richtung 

verschoben werden soll. 

PROCEDURE Draw(s : Screen;x,y : INTEGER); 

Funktion: Zeichnet vom Graphikcursor aus zur angegebenen Position. 
Der Graphik Cursor steht danach am Ende der Linie. 

Parameter: 

s Zugriff auf den Screen. 

X x-Position des Zielpunktes der Linie, 

y y-Position des Zielpunktes der Linie 

PROCEDURE DrawToCs : Screen;dx,dy : INTEGER); 

Funktion: Im Gegensatz zu Draw sind die Werte dx, dy relativ zur 
aktuellen Position des Graphikcursors. 

Parameter: 

s Zugriff auf den Screen. 

dx Relative x-Position des Zielpunktes der Linie, 

dy 4 = Relative y-Position des Zielpunktes der Linie 
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PROCEDURE Line(s : Screen;xl,yl,x2,y2 : INTEGER); 

Funktion: Zieht eine Linien zwischen zwei Pnnkten, ohne daß Move 
verwendet werden mnss. 

Parameter: 

s ^ Zngriff anf den Screen. 

xl <^= x-Position des Startpnnktes der Linie. 

yi y-Position des Startpnnktes der Linie 

x2 x-Position des Zielpnnktes der Linie. 

y2 y-Position des Zielpnnktes der Linie 

PROCEDURE DrawRectangle(s : Screen;xl,yl,x2,y2 : INTEGER); 
Funktion: Zeichnet die Umrißlinien eines Rechtecks. 

Parameter: 

s Zngriff anf den Screen. 

xl ^ X-Position der linken oberen Ecke. 

yi y-Position der linken oberen Ecke. 

x2 X-Position der rechten nnteren Ecke. 

y2 ^ y-Position der rechten nnteren Ecke. 

PROCEDURE DrawPolygonCs : Screen;VAR poly : Polygon); 

Funktion: Zeichnet ein Polygon. 

Parameter: 

s ^ Zngriff anf den Screen. 

poly 4= Feld mit den Koordinaten der Polygonecken. 

PROCEDURE DrawCircleCs : Screen;x,y,r : INTEGER); 

Funktion: Zeichnet einen Kreis. Der Kreis wird bei nngleicher hori¬ 
zontaler nnd vertikaler Anffösnng entsprechend gestreckt. 
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Parameter: 

s Zugriff auf den Screen. 

X ^ x-Position des Mittelpunktes, 

y y-Position des MittelPunktes. 

r ^ Radius des Kreises. 

PROCEDURE DrawEllipse(s : Screen;x,y,a,b : INTEGER); 

Funktion: Zeichnet eine Ellipse. 

Parameter: 

s Zugriff auf den Screen. 

X ^ x-Position des Mittelpunktes, 

y y-Position des MittelPunktes. 

a Radius der Ellipse in x-Richtung. 

b ^ Radius der Ellipse in y-Richtung. 

PROCEDURE AreaMoveC s : Screen;x,y : INTEGER ); 

Funktion: Um ein Ausgefülltes Polygon zu zeichnen, können Sie die 
Areabefehle verwenden. AreaMove setzt dazu den ersten Punkt, und 
schließt gleichzeitig noch nicht vollendete Polygone ab. 

Parameter: 

s Zugriff auf den Screen. 

X X-Position des Anfangpunktes, 

y y-Position des Anfangpunktes. 
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PROCEDURE AreaDraw(s : Screen;x,y : INTEGER); 

Funktion: Setzt eine weitere Ecke eines ausgefüllten Polygons. Vo¬ 
rher muß schon AreaMove ausgeführt worden sein, um das Vieleck zu 
initialisieren. 

Parameter: 

s Zugriff auf den Screen. 

X x-Position des neuen Eckpunktes, 

y y-Position des neuen Eckpunktes. 

PROCEDURE AreaEndC s : Screen ); 

Funktion: Hat man mit AreaDraw alle Polygonpunkte gesetzt, muß 
man das Polygon mit AreaEnd schließen, dabei wird automatisch der 
letzte Punkt mit dem ersten verbunden, und das Polygon mit dem ak¬ 
tuellen Eüllmuster in der Earbe des APens gefüllt. Ist kein Muster ge¬ 
setzt, so wird die gesamte Eläche gefüllt. 


PROCEDURE AreaRectangleCs : Screen;xl,yl,x2,y2 

Funktion: Zeichnet ein ausgefülltes Rechtecks. 


Parameter: 

s 

xl 

yi 

x2 

y2 


Zugriff auf den Screen. 
x-Position der linken oberen Ecke. 
y-Position der linken oberen Ecke. 
X-Position der rechten unteren Ecke. 
y-Position der rechten unteren Ecke. 


INTEGER); 


PROCEDURE AreaPoIygon(s : Screen;VAR poly : Polygon); 

Funktion: Zeichnet ein ausgefülltes Polygon. 

Parameter: 

s Zugriff auf den Screen. 

poly Feld mit den Koordinaten der Polygonecken. 
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PROCEDURE AreaCircle(s : Screen;x,y,r : INTEGER); 

Funktion: Zeichnet einen ausgefüllten Kreis. Der Kreis wird bei nn- 
gleicher horizontaler nnd vertikaler Anflösung entsprechend gestreckt. 

Parameter: 

s Zngriff anf den Screen. 

X ^ x-Position des Mittelpnnktes. 

y ^ y-Position des MittelPnnktes. 

r 4= Radins des Kreises. 

PROCEDURE AreaEllipse(s : Screen;x,y,a,b : INTEGER); 

Funktion: Zeichnet eine ausgefüllte Ellipse. 

Parameter: 

s Zugriff auf den Screen. 

X ^ x-Position des Mittelpunktes, 

y ^ y-Position des MittelPunktes. 

a Radius der Ellipse in x-Richtung. 

b ^ Radius der Ellipse in y-Richtung. 

PROCEDURE FloodCs : Screen;x,y : INTEGER); 

Funktion: Füllt eine Fläche in der Farbe des APens. Flood füllt so¬ 
lange, bis es auf eine andere Farbe als der des Startpunktes trifft. 

Parameter: 

s Zugriff auf den Screen. 

X ^ X-Position des Startpunktes, 

y ^ y-Position des Startpunktes. 
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7.12 Gfxinput 

Bevor Sie weiterlesen, sollten Sie erst die Beschreibnng von GfxScreen 
lesen. Gfxinput ermöglicht direkt die Tastatur und die Maus abzufra¬ 
gen. Die Abfrage bezieht sich immer auf einen Screen. Der Screen, der 
angeklickt wurde ist aktiv, d. h. das Programm, das diesen Screen bei 
der Abfrage angibt, erhält die Nachrichten. Genauso, wie wenn Sie meh¬ 
rere Fenster geöffnet haben, und die Tastendrücke nur in dem aktiven 
Fenster Wirkung zeigen. In Wirklichkeit hegt nämlich vor jedem Screen, 
der mit GfxScreen geöffnet wurde, ein unsichtbares Fenster. 


DEFINITION MODULE Gfxinput; 

FROM GfxScreen IMPORT Screen; 

TYPE 

UserActions = (userKey,userMouse); 

UserAct = SET OF UserActions; 

KeyTypes = (KeyReturn,KeyBackspace,KeyDeIete, 

KeyTab,KeyHelp,KeyEsc, 

KeyCsrUp,KeyCsrDown,KeyCsrLeft, 
KeyCsrRight, 

KeyFl,KeyF2,KeyFS,KeyF4,KeyFB, 

KeyF6,KeyFT,KeyFS,KeyF9,KeyFlO, 
SKeyReturn,SKeyBackspace,SKeyDelete, 
SKeyTab,SKeyHelp,SKeyEsc, 

SKeyCsrtjp, SKeyCsrDown, SKeyCsrLef t, 
SKeyCsrRight, 

SKeyFl,SKeyF2,SKeyFS,SKeyF4,SKeyFS, 
SKeyF6,SKeyFT,SKeyFS,SKeyF9,SKeyFlO, 
AKeyReturn,AKeyBackspace,AKeyDelete, 
AKeyTab,AKeyHelp,AKeyEsc, 

AKeyCsrtjp, AKeyCsrDown, AKeyCsrLef t, 
AKeyCsrRight, 

AKeyFl,AKeyF2,AKeyFS,AKeyF4,AKeyFS, 
AKeyF6,AKeyFT,AKeyFS,AKeyF9,AKeyFlO, 
CKeyReturn,CKeyBackspace,CKeyDelete, 
CKeyTab,CKeyHelp,CKeyEsc, 

CKeyCsrtjp, CKeyCsrDown, CKeyCsrLef t, 
CKeyCsrRight, 

CKeyFl,CKeyF2,CKeyFS,CKeyF4,CKeyFS, 
CKeyF6,CKeyFT,CKeyFS,CKeyF9,CKeyFlO, 
MKeyReturn,MKeyBackspace,MKeyDelete, 
MKeyTab,MKeyHelp,MKeyEsc, 

MKeyCsrUp,MKeyCsrDown,MKeyCsrLeft, 
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MKeyCsrRight, 

MKeyF1,MKeyF2,MKeyFS,MKeyF4,MKeyF5, 
MKeyF6,MKeyFT,MKeyFS,MKeyF9,MKeyFl0, 
NoKeyjNormalKey); 


PROCEDURE WaitUser(s : Screen;act : UserAct); 

PROCEDURE CheckUser(s : Screen;act : UserAct):B00LEAN; 

PROCEDURE LastActionCs : Screen):UserActions; 

PROCEDURE GetKeyCs : Screeii;VAR c : CHAR) ; 

PROCEDURE GetExtKeyCs : Screen; VAR type : KeyTypes; 

VAR Code : CHAR); 

PROCEDURE GetMousePosCs : Screen; VAR x,y : INTEGER); 
PROCEDURE MousePressed(s : Screen):BOOLEAN; 

PROCEDURE MouseClickCs : Screen; VAR x,y : INTEGER); 


GROUP 

All 


UserActions,UserAct »KeyTypes,WaitUser,CheckUser, 
LastAction,GetKey,GetExtKey,GetMousePos, 
MousePressed,MouseCIick,WasDouble; 


END Gfxinput. 
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Typen: 

UserActions, UserAct Aufzählungstyp und dazugehöriges Set, der 
die verschiedenen Eingabearten des Benutzers enthält. Dazu zählen: 

• ns er Key ^^Tastendruck. 

• userMouse <^Mousekhck 

KeyTypes Aufzählungstyp, der sämliche Funktionstasten enthält: 


KeyReturn 

: Die Returntaste. 

KeyBackspace 

: Die Backspacetaste (Rückschrittaste) 

KeyDelete 

: Die Deletetaste. 

KeyTab 

: Die Tabulatortaste. 

KeyHelp 

: Die Helptaste. 

KeyEsc 

: Die Escapetaste. 

KeyCsrUp 

: Die Cursorhochtaste. 

KeyCsrDown 

: Die Cursorruntertaste. 

KeyCsrLeft 

: Die Cursorlinkstaste. 

KeyCsrRight 

: Die Cursorrechtstaste. 

KeyFl 

: Die Funktionstaste Fl. 


KeyFlO 


Die Funktionstaste FlO. 


Ein vorangestelltes „S“ bedeutet zusammen mit | SHIFT 
Ein vorangestelltes „A“ bedeutet zusammen mit 
Ein vorangestelltes „C“ bedeutet zusammen mit 
Ein vorangestelltes „M“ bedeutet zusammen mit A . 



Uns ist klar, das diese Verfahren nicht optimal und nicht mehr zeit¬ 
gemäß ist. Diese Module stammen jedoch noch aus der Anfang- 
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szeit des Compilers, und da wir keine Zeit hatten sie zu ersetzen, 
und dennoch eine einfache Schnittstelle zur Graphik des Amigas 
bieten wollten, beschlossen wir sie noch einmal mitauszuliefern. 

War die letzte Eingabe kein Tastendruck, erhält man den Wert 
NoKey. Handelte es sich um einen normalen Tastendruck, erhält 
man NormalKey. 

PROCEDURE WaitUserCs : Screen;act : UserAct); 

Funktion: Wartet, bis die angegebenen Eingabart ausgeführt wurde. 
Ist die Eingabe bereits geschehen, kehrt das Programm sofort zurück. 
Die Eingabe wird nicht gelöscht. 

Parameter: 

s Screen, von dem die Eingabe erwartet wird. 

act Benutzereingabeart, auf die gewartet werden 

soll. 

PROCEDURE CheckUserCs : Screen;act : UserAct):B00LEAN; 

Funktion: Prüft, ob eine der angegebenen Eingaben getätigt wurde, 
kehrt aber sofort wieder zurück. Diese Eunktion sollte nur verwendet 
werden, wenn innerhalb einer Programmschleife kontroliert werden soll, 
ob in der Zwischenzeit eine Eingabe geschehen ist. Bitte warten Sie nicht 
mit dieser Eunktion auf eine Eingabe, da solches „Polling“ in einem 
Multitasking-System anderen Programmen unnötig Rechenzeit stiehlt. 
Verwenden Sie stattdessen WaitUser. 

Parameter: 

s Screen, der auf eine Eingabe geprüft werden soll, 

act Benutzereingabeart, auf die geprüft werden soll. 

^ TRUE, wenn eine solche Eingabe vorlag. 
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PROCEDURE LastAction(s : Screen):UserActions; 

Funktion: Stellt fest, von welcher Art die letzte Eingabe war. Wnrde 
die letzte Eingabe schon gelöscht, wartet die Ennktion anf die nächste 
Eingabe. 

Parameter: 

s Screen, der anf die letzte Eingabe geprüft werden 

soll. 

=4> Typ der letzten Eingabe. 


PROCEDURE GetKeyCs : Screen;VAR c : CHAR); 

Funktion: Wartet, bis der Benutzer eine Taste, der ein ASCII-Code zn- 
geordnet ist, also keine Fnnktionstaste, drückt. War schon eine gedrückt, 
kehrt die Prozedur sofort zurück. 

Parameter: 

s Screen, von dem die Eingabe gelesen werden soll, 

c ^ Gelesenes ASCII-Zeichen. 

PROCEDURE GetExtKeyCs : Screen; VAR type : KeyTypes; 

VAR Code : CHAR); 

Funktion: Wartet auf eine Tatstureingabe. Liegt schon eine vor, kehrt 
die Prozedur sofort zurück. 

Parameter: 

s Screen, von dem die Eingabe gelesen werden soll, 

type ^ Art der Taste. 

Code ASCII-Code der Taste, falls es sich um eine nor¬ 

male Zeichentaste handelte. 
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PROCEDURE GetMousePosCs : Screen;VAR x,y : INTEGER); 

Funktion: Liest die aktuelle Position der Maus ein. 

Parameter: 

s Screen, von dem die Eingabe gelesen werden soll. 

X ^ x-Position der Maus, 

y ^ y-Position der Maus. 

PROCEDURE MousePressed(s : Screen):BOOLEAN; 

Funktion: Stellt fest, ob der linke Mausknopf gerade gedrückt ist. 

Parameter: 

s Screen, von dem die Eingabe gelesen werden soll. 

^ TRUE falls der Knopf gedrückt ist. 

PROCEDURE MouseClickCs : Screen; VAR x,y : INTEGER); 

Funktion: Holt die Position des letzten Mausklicks. Hat noch kein 
Klick stattgefunden, wartet die Routine, bis geklickt wird. 

Parameter: 

s Screen, von dem die Eingabe gelesen werden soll. 

X ^ x-Position des letzten Mausklicks, 

y ^ y-Position des letzten Mausklicks. 
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7.13 GfxPseudoSD 

Dieses Modul ermöglicht es Zeichen, Strings, gefüllte Rechtecke, und 
gefüllte Kreise mit scheinbar dreidimensionalem Aussehen zu erzeugen. 
Das heißt, das die Objekte leicht erhaben oder vertieft wirken. Damit 
lassen sich dann so nette Spielerein wie z. B. das Programm Puzzle, das 
Sie auf der PD-Diskette hnden, erzeugen. 


DEFINITION MODULE GfxPseudoSD; 
FROM GfxScreen IMPORT Screen; 


TYPE 

CoIorSD = RECORD 

topLeft, 
bottomRight, 

normal : SHORTCARD; 

END; 


PROCEDURE Write3D(s : Screen; 

col : CoIorSD; 
x,y : INTEGER; 
c : CHAR); 


PROCEDURE WriteSDStringC s 

Screen; 

col 

CoIorSD; 

x,y 

INTEGER; 

REF str 

STRING); 

PROCEDURE WriteQSDStringC s 

Screen; 

col 

CoIorSD; 

x,y 

INTEGER; 

VAR str 

STRING); 
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PROCEDURE Box3D(s : Screen; 

col : ColorSD; 

xl,yl, 

x2,y2 : INTEGER); 


PROCEDURE Circle3D(s : Screen; 

col : Color3D; 

x,y, 

r : INTEGER); 


GROUP 

All = Color3D,Write3D,Screen,Write3DString, 
WriteQSDString,Box3D,CircleSD; 

END GfxPseudoSD. 


Typen: 

ColorSD Farbstruktur für PseudoSd-Darstellung: 

topLeft : Farbstift für linke und obere Kante. 

bottomRight : Farbe für untere und rechte Kante. 

normal : Farbe der Oberfläche. 

Abhängig von der Farbwahl, erscheint ein Objekt erhaben oder 
vertieft. 
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PROCEDURE Write3D(s 

col 

x,y 

c 


Screen; 
ColorSD; 
INTEGER; 
CHAR); 


Funktion: Schreibt ein Zeichen in 3D. 

Parameter: 

Screen, anf den gezeichnet werden soll. 
Farbstrnktnr des Objekts. 


s 

col 

X 


x-Position, an der das Zeichen geschrieben wer¬ 
den soll. 

y-Position, an der das Zeichen geschrieben wer¬ 
den soll. 


Zeichen, das geschrieben werden soll. 


PROCEDURE Write3DString( s 

col 


x,y 

REF str 


Screen; 
Color3D; 
INTEGER; 
STRING); 


Funktion: Schreibt einen String in 3D. Dabei wird für jedes Zeichen 
Write3D anfgernfen. 


Parameter: 

s <= 

col 

X ^ 


y ^ 

str 


Screen, auf den gezeichnet werden soll. 
Farbstrnktnr des Objekts. 

x-Position, an der der String geschrieben werden 
soll. 

y-Position, an der der String geschrieben werden 
soll. 

String, der geschrieben werden soll. 
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PROCEDURE WriteQ3DString( s : Screen; 

col : ColorSD; 

x,y : INTEGER; 

VAR str : STRING); 

Funktion: Schreibt einen String in 3D. Das Ergebnis sieht anders aus 
als das von WriteSDString, außderdem ist diese Routine schneller. 


Parameter: 

s 

col 

X ^ 


y ^ 

str 


Screen, auf den gezeichnet werden soll. 
Farbstruktur des Objekts. 

x-Position, an der der String geschrieben werden 
soll. 

y-Position, an der der String geschrieben werden 
soll. 

String, der geschrieben werden soll. 


PROCEDURE Box3D(s : Screen; 

col : CoIor3D; 

xl,yl, 

x2,y2 : INTEGER); 

Funktion: Zeichnet ein Rechteck in 3D. 

Parameter: 


s 

col 

xl 

yi 

x2 

y2 


Screen, auf den gezeichnet werden soll. 
Farbstruktur des Objekts. 
x-Position der linken oberen Ecke. 
y-Position der linken oberen Ecke. 
X-Position der rechten unteren Ecke. 
y-Position der rechten unteren Ecke. 
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PROCEDURE Circle3D(s : Screen; 

col : ColorSD; 

x,y, 

r : INTEGER); 

Funktion: Zeichnet einen Kreis in 3D. 

Parameter: 


s 

<^= 

Screen, anf den gezeichnet werden soll. 

col 


Farbstruktur des Objekts. 

X 


x-Position, des Mittelpnnktes. 

y 


y-Position, des Mittelpunktes. 

r 


Radius des Kreises. 
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7.14 GfxScreen 

Dieses Modul ist Grundlage für alle GfxModule, da sie alle auf Screens 
zugreifen. Ein Screen ist ein virtueller Bildschirm, z. B. hat der Editor 
von Ginster einen eigenen Screen. GfxScreen ermöglicht Ihnen, einen 
Screen so einfach wie in Basic zu öffnen, ohne daß Sie erst viel initiali¬ 
sieren müssen. Außerdem, als Hinweis für die Spezialisten, richtet das 
Modul auch gleich eine TmpRas-Struktur für die Aera-Befehle ein. Am 
Programmende werden alle noch geöffneten Screens geschlossen. Auto¬ 
matisch. 


DEFINITION MODULE GfxScreen; 


TYPE 

Screen = DEFERRED POINTER BasicGfx.ScreenPtr; 


CoIorRGB 

Color 

Palette 


(red,green,blue); 

ARRAY CoIorRGB OF SHORTINT; 
ARRAY OF Color; 


CONST 

Black 

White 

Red 

Green 

Blue 

Cyan 

Purple 

Yellow 


Color:( 0, 0, 0); 
Color:(15,15,15); 
Color:(15, 0, 0); 
Color:( 0,15, 0); 
Color:( 0, 0,15); 
Color:( 0,12,12); 
Color:(12, 0,12); 
Color:(15,15, 0); 


PROCEDURE 0penScreen(VAR s : Screen; 

depth : INTEGER; 
hilTGS 

lace ’ : BOOLEAN); 


PROCEDURE ScreenHeight(s : Screen):INTEGER; 


PROCEDURE CloseScreen(VAR s : Screen); 
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PROCEDURE ScreenToFront(s : Screen); 


PROCEDURE ScreenToBack(s : Screen); 


GROUP 

ScreenGrp = Screen,OpenScreen,ScreenHeight, 

CloseScreen,SaveScreen,ScreenToFront, 
ScreenToBack,LoadScreen; 


PROCEDURE SetPaletteC s : Screen; 

VAR color : Palette); 


PROCEDURE SetPalettePart( s 

reg 

VAR color 


Screen; 
INTEGER; 
Palette); 


PROCEDURE SetColorCs 


reg 

color 


Screen; 
INTEGER; 
Color); 


PROCEDURE SetRGBCs : Screen; 

reg, 

red, 

green, 

blue : INTEGER); 
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PROCEDURE GetPaletteC s 

VAR color 


Screen; 
Palette); 


PROCEDURE GetPalettePart( s 

reg 

VAR color 


Screen; 
INTEGER; 
Palette); 


PROCEDURE GetColorCs 

reg 


: Screen; 

: INTEGER):Color; 


PROCEDURE GetRGB 


(s 

reg 

color 


Screen; 

INTEGER; 

ColorRGB):INTEGER; 


GROUP 

ColorGrp = ColorRGB,Color.Palette,Black,White, 
Red,Green,Blue,Cyan,Purple.Yellow, 
SetPalette,SetPalettePart,SetColor, 
SetRGB,GetPalette,GetPalettePart, 
GetColor,GetRGB; 


PROCEDURE Fadeln( s : Screen; 

VAR color : Palette; 

time : INTEGER); 


PROCEDURE FadeOut(s : Screen; 

time : INTEGER); 


GROUP 

All = ScreenGrp,ColorGrp,Fadeln,FadeOut; 
END GfxScreen. 


Typen: 

Screen: Ein Hidden-Type, auf was er wirklich zeigt, ist für Sie nicht 
interessant, eine Variable dieses Typs ist nur ein Verweis auf die 
Screen, und muß einigen Prozeduren übergeben werden, damit 
diese wissen, mit welchem Screen sie arbeiten sollen. Achtung: 
Ubergeben Sie nie eine Variable vom Typ Screen an eine Funktion 
von Intuition oder Graphics, es handelt sich dabei nämlich nicht 
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um einen normalen ScreenPtr. 

Color: Feld mit drei Einträgen, nämlich dem Rot-, dem Blau- und dem 
Grünanteil einer Farbe. 

Palette: Feld vom einzelnen Farbe, wird zur einfacheren Screenfar- 
beinstellung benötigt. 

PROCEDURE OpenScreenCVAR s : Screen; 

depth : INTEGER; 
hilTGS 

lace ’ : BOOLEAN); 

Funktion: Offnet einen Screen mit den angegebenen Parametern. 

Parameter: 

s ^ Zugriff auf die Screen, er muß bei allen weiteren 

Operationen auf diesen Screen angegeben wer¬ 
den. Kann der Screen nicht geöffnet werden, 
wird eine Exception ausgelöst. 

depth Anzahl der Bitplanes des Screens. Die Zahl der 

möglichen Farben ist davon abhängig, sie beträgt 

2''depth. 

hires Falls TRUE, hat der Screen eine horizontale 

Auflösung von 640, sonst von 320 Punkten. 

lace Falls TRUE, hat der Screen eine vertikale 

Auflösung von 512, sonst von 256 Punkten, dann 
allerdings mit dem vertrauten Interlaceflimmern. 
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PROCEDURE ScreenHeightCs : Screen):INTEGER; 

Funktion: Liefert die Höhe eines Screens. 

Parameter: 

s Zugriff auf den Screen, dessen Höhe erfragt wer¬ 

den soll. 

Höhe des Screen. 

PROCEDURE CloseScreen(VAR s : Screen); 

Funktion: Schließt einen mit OpenScreen geöffnetten Screen wieder. 

Zwar werden auch am Programmende alle noch geöffneten Screens au¬ 
tomatisch geschlossen, doch sollte man keinen Screen länger auf haben 

als nötig, da andere Programme das Chipmem benötigen könnten. 

Parameter: 

s Zugriff auf den Screen, der geschlossen werden 

soll. Auf diese Vaiable darf danach nicht mehr 
als Screen zugegriffen werden, es sei denn amn 
übergibt sie erneut OpenScreen. 

PROCEDURE ScreenToFront(s : Screen); 

Funktion: Bringt den angegebenen Screen in den Bildvordergrund. 

Parameter: 

s Zugriff auf den Screen, der in den Vordergrund 

gebracht werden soll. 

PROCEDURE ScreenToBackCs : Screen); 

Funktion: Bringt den angegebenen Screen hinter alle anderen Screens. 

Parameter: 

s Zugriff auf den Screen, der in den Hintergrund 

gebracht werden soll. 
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PROCEDURE SetPaletteC s : Screen; 

VAR color : Palette); 

Funktion: Setzt die angegebene Palette für den Screen. Die Palette 
legt man am besten als konstantes Array an. Von der Palette werden 
höchstens 2''depth Color-Einträge eingetragen, wobei depth die Tiefe 
ist, die man beim Offnen des Screens angegeben hat. In der Reihen¬ 
folge, in der die Farben in der Palette stehen, werden sie auch in die 
Farbregister eingetragen, die Nummer des Farbregister muß man dann 
bei SetAPen bzw. SetBPen angeben, um die darin liegende Farbe an¬ 
zuwählen. 

Parameter: 

s Zugriff auf den Screen, für den die Palette gelten 

soll. 

color ^ Palette, die verwendet werden soll. 

PROCEDURE SetPalettePart( s : Screen; 

reg : INTEGER; 

VAR color : Palette); 

Funktion: Setzt einen Teil der Palette eines Screens neu. Dabei werden 

so viele Farbregister verändert, wie Farbeinträge in der Palette sind. 

Parameter: 

s Zugriff auf den Screen, für den die Palette gelten 

soll. 

reg Farbnummer, ab dem die Palette geändert wer¬ 

den soll. 

color ^ Palette, die verwendet werden soll. 
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PROCEDURE SetColor(s : Screen; 

reg : INTEGER; 

color : Color); 

Funktion: Setzt eine Farbe eines Screens nen. 

Parameter: 

s Zngriff anf den Screen. 

reg Farbnnmmer, die geändert werden soll. 

color Farbkombination, die eingetragen werden soll. 


PROCEDURE SetRGBCs : Screen; 

reg, 

red, 

green, 

blue : INTEGER); 


Funktion: Setzt eine Farbe des Screens in Komponenten neu. 


Parameter: 

s 

reg 

red 

green 

blue 


Zugriff auf den Screen. 

Farbnnmmer, die geändert werden soll. 
Neuer Rotanteil. 

Neuer Grünanteil. 

Neuer Bauanteil. 


PROCEDURE GetPaletteC s : Screen; 

VAR color : Palette); 

Funktion: Holt die Farben eines Screens. Es werden nur so viele Farben 
ausgelesen, wie das übergebene Array Felder hat. 

Parameter: 

s Zugriff auf den Screen, dessen Palette ausgelesen 

werden soll. 

color Feld, in das die Farbeinträge eingetragen werden 

sollen. 
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PROCEDURE GetPalettePart( s : Screen; 

reg : INTEGER; 

VAR color : Palette); 

Funktion: Holt einen Ausschnitt der Screenfarben. 

Parameter: 

s <^= Zugriff auf den Screen, dessen Palette ausgelesen 

werden soll. 

reg Farbnummer, ab der die Farben ausgelesen wer¬ 

den sollen. 

color => Feld, in das die Farbeinträge eingetragen werden 

sollen. Es werden nur soviele Farben geholt, wie 
color Elemente enthält 

PROCEDURE GetColor(s : Screen; 

reg : INTEGER):Color; 

Funktion: Holt eine Farbe eines Screens. 

Parameter: 

s Zugriff auf den Screen. 

reg Farbnummer, die ausgelesen werden soll. 

^ Farbkombination. 

PROCEDURE GetRGBCs : Screen; 

reg : INTEGER; 

color : ColorRGB):INTEGER; 

Funktion: Holt eine einzelnen Komponente einer Farbe des Screens. 

Parameter: 

s Zugriff auf den Screen. 

reg Farbnummer, die ausgelesen werden soll. 

color Farbkomponente, die ausgelesen werden soll. 

^ Intesität dieser Komponente dieser Farbe. 
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PROCEDURE Fadeln( s : Screen; 

VAR color : Palette; 

time : INTEGER); 

Funktion: Blendet einen Bildschirm von schwarz aus ein. 

Parameter: 

s Zugriff auf den Screen. 

color Palette, die der Screen am Ende haben soll. 

time Zeit in 1/50 Sekunden, die die Einblendung 

dauern soll. 

PROCEDURE FadeOutCs : Screen; 

time : INTEGER); 

Funktion: Blendet einen Screen langsam nach schwarz hin aus. 

Parameter: 

s Zugriff auf den Screen. 

time Zeit in 1/50 Sekunden, die der Vorgang dauern 

soll. 
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7.15 GfxShape 

Mit den Routinen dieses Moduls können Sie auf einfache Weise rech¬ 
teckige Bereiche eines Screens, sogenannte Shapes, auschneiden und an 
anderer Stelle wieder einfügen. Die Routinen sind sicherlich recht rudi¬ 
mentär, jedoch kann man mit ihnen erstaunliches bewirken, wie man bei 
unserem Demo-Programm Puzzle sehen kann. 


DEFINITION MODULE GfxShape; 


FROM GfxScreen IMPORT Screen; 


TYPE 


Shape = HIDDEN; 


PROCEDURE GetShapeC s 

: Screen; 

VAR shp 

: Shape; 

xl,yl. 


x2,y2 

: INTEGER); 


PROCEDURE PutShapeCs 

shp 


x,y 


Screen; 
Shape; 
INTEGER); 


PROCEDURE FreeShapeCshp : Shape); 


PROCEDURE LoadShapeCVAR shp 

REF path 


Shape; 
STRING); 


PROCEDURE SaveShape( shp 

REF path 


Shape; 
STRING); 


PROCEDURE SizeShapeC 

VAR 


sshp : Shape; 
dshp : Shape; 
newx, 

newy : INTEGER); 
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PROCEDURE Sync(s : Screen); 

GROUP 

All = Screen,Shape,GetShape,PutShape,FreeShape, 
LoadShape,SaveShape,Sync,SizeShape; 

END GfxShape. 


Typen: 

Shape Da Sie mehrere Shapes auf einmal verwenden können, müssen 
Sie GfxShape mitteilen, anf welchen sich ein Befehl beziehen soll. 
Shape übt damit eine ähnliche Fnnktion wie „Screen“ in Gf xScreen 
ans. 
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PROCEDURE GetShapeC s : Screen; 

VAR shp : Shape; 

xl,yl, 

x2,y2 : INTEGER); 

Funktion: Holt einen Bildschirmausschnitt. Falls die übergebenen 
Koordinaten nicht der erwarteten Reihenfolge ensprechen, werden diese 
vertauscht. 

Parameter: 


s 


Zugriff auf den Screen. 




shp 


Zugriff auf das Shape. Diesen müssen Sie bei 
allen weiteren Operationen auf das das Shape 
übergeben. 

xl 


x-Position der linken 
Bildschirmausschnitts. 

oberen 

Ecke 

des 

yi 


y-Position der linken 
Bildschirmausschnitts. 

oberen 

Ecke 

des 

x2 


X-Position der rechten 
Bildschirmausschnitts. 

unteren 

Ecke 

des 

y2 


y-Position der rechten 
Bildschirmausschnitts. 

unteren 

Ecke 

des 


PROCEDURE PutShapeCs : Screen; 

shp : Shape; 
x,y : INTEGER); 

Funktion: Setzt ein Shape auf den Screen. 

Parameter: 

s Zugriff auf den Screen. 

shp ^ Zugriff auf das Shape, das gesetzt werden soll. 

X x-Position der linken oberen Ecke der 

gewünschten Position 

y y-Position der linken oberen Ecke der 

gewünschten Position 
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PROCEDURE FreeShape(shp : Shape); 

Funktion: Gibt den Speicher eines Shapes wieder frei. Danach darf 
dieser keiner Operation mehr nnterzogen werden, anßer man übergibt 
ihn erneut GetShape. 

Parameter: 

shp ^ Zugriff auf das Shape, das freigegeben werden 

soll. 

PROCEDURE LoadShape (VAR shp : Shape; 

REF path : STRING); 

Funktion: Lädt ein Shape. Dabei kann kein IFF-File geladen werden, 
sondern nur Shapes, die mit diesem Modul gespeichert wurden. 

Parameter: 

shp => Zugriff auf das Shape. 

path ^ Pfad der Datei, die geladen werden soll. 

PROCEDURE SaveShape( shp : Shape; 

REF path : STRING); 

Funktion: Speichert ein Shape ab. Die Speicherung erfolgt nicht im 
IFF-Format. 

Parameter: 

shp ^ Zugriff auf das Shape. 

path Pfad, unter dem das Shape abgespeichert werden 

soll. 
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PROCEDURE SizeShapeC sshp : Shape; 

VAR dshp : Shape; 
newx, 

newy : INTEGER); 

Funktion: Erzeugt die Kopie eines Shapes, mit neuer Größe. Das 
übergebene Shape wird dabei entsprechend skaliert. 

Parameter: 


sshp 


Quellshape. 

dshp 


Zielshape. 

newx 


Neue Breite. 

newy 


Neue Höhe. 


PROCEDURE Sync(s : Screen); 

Funktion: Um beim Setzen eines Shapes flackern zu vermeiden, sollte 
man zuvor diese Routine aufrufen. Sie wartet, bis der Kathodenstrahl 
den unteren Rand der Screen erreicht hat. Das Zeichnen geschieht dann 
in der Austastlücke. 

Parameter: 

s Zugriff auf den Screen, auf den gezeichnet wer¬ 

den soll. 



136 


KAPITEL 7. STANDARDMODULE 


7.16 GfxText 

In diesem Modul finden Sie eine Menge Funktionen, die zur Textaus¬ 
gabe auf einen mit GfxScreen erzeugten Screen gedacht sind. Außer¬ 
dem verfügt GfxText auch über Funktionen um jeden der Diskfonts zu 
verwenden. 


DEFINITION MODULE GfxText; 

FROM GfxScreen IMPORT Screen; 

TYPE 

Font = HIDDEN; 

Styles = (underlined,boId,i'taIic,extended) ; 
StyleSet = SET OF Styles; 

CharPtr = POINTER TO CHAR; 


PROCEDURE OpenFontCVAR font : Font; 

REF name : STRING; 

height : INTEGER); 


PROCEDURE CIoseFont (VAR font : Font); 


PROCEDURE SetFont(s : Screen; 

font : Font); 


PROCEDURE GetFont(s : Screen):Font; 


PROCEDURE FontHeightCfont : Font):INTEGER; 


PROCEDURE FontWidhtCfont : Font):INTEGER; 


PROCEDURE CharWidthCfont : Font; 

c : CHAR):INTEGER; 


PROCEDURE IsProportional(font : Font):B00LEAN; 


(©1992/93 by StoneWare 





7.16. GFXTEXT 


137 


GROUP 

FontGrp 


PROCEDURE 

PROCEDURE 

PROCEDURE 


= Screen,Font,OpenFont,CloseFont, 
SetFont,GetFont,FontHeight, 
FontWidht jCharWidth,IsProportional; 


SetStyle(s : Screen; 

style : StyleSet); 


SubStyle(s : Screen;style : Styles); 


AddStyle(s : Screen;style : Styles); 


GROUP 

StyleGrp = Styles,StyleSet,SetStyle, 
SubStyle,AddStyle; 


PROCEDURE WriteAt(s : Screen; 

x,y : INTEGER; 
c : CHAR); 


PROCEDURE WriteStringAt( s : Screen; 

x,y : INTEGER; 
REF str : STRING); 


PROCEDURE WriteCharsAtCs 

x,y, 

len 

pos 


Screen; 

INTEGER; 
CharPtr); 


GROUP 

WriteGrp = WriteAt»WriteStringAt,WriteCharsAt,CharPtr; 


GROUP 

All = FontGrp,StyleGrp,WriteGrp; 


END GfxText. 
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Typen: 

Font Zugriff auf einen Systemzeichensatz. 

Styles Stilrichtungen eines Fonts: 

• underlined : Unterstrichen. 

• bold : Fettdruck. 

• Italic : Kursive Schrift. 

StyleSet Menge der möglichen Stilarten. 

7.16.1 Font-Funktionen 

PROCEDURE OpenFont(VAR font : Font; 

REF name : STRING; 

height : INTEGER); 

Funktion: Bevor Sie einen Font verwenden könne, müssen Sie ihn 

öffnen. Dies geschieht mit dieser Funktion. Falls der gewünschte Font 
nicht geladen werden konnte, wird ein Laufzeitfehler ausgelöst. 

Parameter: 

font => Zugriff auf den Font, 

name Namen des Fonts, 

height ^ gewünschte Höhe. 

PROCEDURE CloseFont (VAR font : Font); 

Funktion: Schließt einen Font wieder. 

Parameter: 

font ^ Zugriff auf den Font, der geschlossen werden soll. 

Er darf danach nicht mehr verwendet werden. 

PROCEDURE SetFont(s : Screen; 

font : Font); 

Funktion: Setzt den Font für den angegebenen Screen. Danach werden 
alle Textausgaben auf diesen Screen in diesem Zeichensatz ausgeführt, 
auch die Schreibroutinen aus GfxPseudoSD. 
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Parameter: 

s Zugriff auf den Screen, dessen Zeichensatz 

geändert werden soll. 

font Zeichensatz, der gesetzt werden soll. 

PROCEDURE GetFont(s : Screen):Font; 

Funktion: Holt den aktuellen Font eines Screens. 

Parameter: 

s ^ Zugriff auf den Screen, dessen Font geholt wer¬ 

den soll. 

^ Zugriff auf den Font des Screens. 

PROCEDURE FontHeightCfont : Font):INTEGER; 

Funktion: Ermittelt die Höhe eines Fonts in Bildpunkten. 

Parameter: 

font Zugriff auf den Zeichensatz. 

Höhe des Fonts. 

PROCEDURE FontWidhtCfont : Font):INTEGER; 

Funktion: Ermittelt die Breite eines Fonts in Bildpunkten. Funktio¬ 
niert nur bei nicht proportionalen Fonts. 

Parameter: 

font Zugriff auf den Zeichensatz. 

^ Breite eines Zeichens des Fonts. 

PROCEDURE CharWidthCfont : Font; 

c : CHAR):INTEGER; 

Funktion: Liefert die Breite eines Zeichens in einem Font. Funktioniert 
auch mit proportionalen Fonts. 
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Parameter: 

font Zugriff auf den Zeichensatz, 

c Zeichen, dessen Breite ermittelt werden soll. 

=> Breite dieses Zeichens in Punkten. 

PROCEDURE IsProportionaKfont : Font):B00LEAN; 

Funktion: Stellt fest, ob ein Font proportional ist. 

Parameter: 

font Zugriff auf den Font, der überprüft werden soll. 

=> TRUE wenn er proportional ist. 

7.16.2 Style-Funktionen 

PROCEDURE SetStyle(s : Screen; 

style : StyleSet); 

Funktion: Setzt die Stilart des Font für die Ausgabe. 

Parameter: 

s Zugriff auf den Screen, dessen Font bearbeitet 

werden soll. 

style ^ Neue Stile, die ab jetzt gelten sollen. 

PROCEDURE SubStyle(s : Screen;style : Styles); 

Funktion: Löscht eine Stilart. 

Parameter: 

s Zugriff auf den Screen, dessen Font bearbeitet 

werden soll. 

style 4 = Stil, der gelöscht werden soll. 

PROCEDURE AddStyle(s : Screen;style : Styles); 
Funktion: Fügt einem Font eine Stilart hinzu. 
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Parameter: 

s Zugriff auf den Screen, dessen Font bearbeitet 

werden soll. 

style Stil, der hinzugefügt werden soll. 


7.16.3 Schreib-Funktionen 

PROCEDURE WriteAt(s : Screen; 

x,y : INTEGER; 
c : CHAR); 


Funktion: Schreibt ein Zeichen an eine Bildschirmposition. 

Parameter: 

s Zugriff auf den Screen, auf den geschrieben wer¬ 

den soll. 

X x-Position des Zeichens, das geschrieben werden 

soll. 


y 

c 


y-Position des Zeichens, das geschrieben werden 
soll. 

Auszugebendes Zeichen. 
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PROCEDURE WriteStringAt( s : Screen; 

x,y : INTEGER; 
REF str : STRING); 


Funktion: Schreibt einen String an eine Bildschirmposition. 

Parameter: 

s Zngriff anf den Screen, anf den geschrieben wer¬ 

den soll. 

X x-Position des Strings, der geschrieben werden 

soll. 


y 

str 


y-Position des Strings, der geschrieben werden 
soll. 

Auszngebender String. 


PROCEDURE WriteCharsAt(s : Screen; 

x,y, 

len : INTEGER; 
pos : CharPtr); 


Funktion: Gibt von einer bestirnten Position im Speicher eine Anzahl 
Zeichen aus. 


Parameter: 


s 

X ^ 

y ^ 

len 

pos 


Zugriff auf den Screen, auf den geschrieben wer¬ 
den soll. 

x-Position, an der ausgegeben werden soll. 

y-Position, an der ausgegeben werden soll. 

Anzahl Zeichen, die ausgegeben werden sollen. 

Position im Speicher, ab der ausgebeben werden 
soll. 
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7.17 GfxTurtle 

Auch dieses Modul ist zum Zeichnen gedacht, allerdings wie in „LOGO“ 
mit einer Schildkröte (turtle). Man stellt sich dabei einen kleinen Ro¬ 
boter (in Schildkrötenform) vor, den man mit einfachen Befehlen wie 
z. B. vorwärts, rückwärts, drehen etc. steuern kann. Dieser Roboter hat 
nun unter sich einen Stift befestigt, mit dem er seine Spur auf Papier in 
verschiedenen Farben hinterlassen kann. GfxTurtle simuliert solch einen 
Roboter auf dem Bildschirm. 

DEFINITION MODULE GfxTurtle; 

FROM GfxScreen IMPORT Screen; 

PROCEDURE Start(scr : Screen; 

xPos, 
yPos, 

Angle : FFP; 
color : INTEGER); 

PROCEDURE Up; 

PROCEDURE Down; 


PROCEDURE Color(reg : INTEGER); 

PROCEDURE Left(Angle : FFP); 
PROCEDURE Right(Angle : FFP); 

PROCEDURE Forward(Dist : FFP); 


PROCEDURE Backward(Dist : FFP); 

GROUP 

All = Screen,Start,Up,Down,Color,Left,Right, 
Forward,Backward; 

END GfxTurtle. 
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PROCEDURE Start(scr 

xPos, 
yPos, 
Angle 
color 


Screen; 

FFP; 

INTEGER); 


Funktion: Setzt die Turtle auf einen Ausgangspunkt. 


Parameter: 

scr Screen, auf dem gearbeitet werden soll. 

xPos Horizontale Koordinate des Startpunktes. 


yPos 

Angle 


color 


^ Vertikale Koordinate des Startpunktes. 

^ Winkel, unter dem die Schildkröte startet. Bei 
0° bewegt sie sich nach rechts, bei 90° nach 
oben, u. s. w.. Zwischenwerte sin natürlich auch 
möglich. 

Farbe, mit der sie am Anfang zeichnet. 


PROCEDURE Up; 

Funktion: Hebt den Stift der Turtle vom Grund ab, so daß bei folgen¬ 
den Bewegungen keine Spur hinterlassen wird. 


PROCEDURE Down; 

Funktion: Senkt den Stift der Turtle auf den Grund, so daß bei folgen¬ 
den Bewegungen wieder eine Spur hinterlassen wird. 


PROCEDURE Color(reg : INTEGER); 

Funktion: Ändert die Farbe des Stiftes. 

Parameter: 

reg ^ Neue Farbe. 

PROCEDURE Left(Angle : FFP); 
Funktion: Dreht die Turtle nach links. 
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Parameter: 

Angle ^ Drehwinkel. 

PROCEDURE Right(Angle : FFP); 

Funktion: Dreht die Turtle nach rechts. 

Parameter: 

Angle 4 = Drehwinkel. 

PROCEDURE Forward(Dist : FFP); 

Funktion: Bewegt die Turtle vorwärts. 

Parameter: 

Dist <= Strecke, um die die Schildkröte bewegt werden 

soll. 

PROCEDURE Backward(Dist : FFP); 

Funktion: Bewegt die Turtle rückwärts. 

Parameter: 

Dist Strecke, um die die Schildkröte bewegt werden 

soll. 
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7.18 Graphs 

Dieses Modul stellt Ihnen eine Vielzahl von Funktionen zur Bearbeitung 
von Graphen zur Verfügung. Da einerseits nur wenige von Ihnen sich mit 
Graphen beschäftigen werden, andererseits Graphen im Kapitel für Fort¬ 
geschrittene Programmierer ausreichend behandelt werden, verzichte ich 
hier auf eine Beschreibung der einzelnen Funktionen. 


DEFINITION MODULE Graphs; 

IMPORT Lists; 

EXCEPTION 

CircIeFound : "Circle in graph detected"; 


DEFINITION MODULE DirectedGraphs(NodePtr : POINTER TO Node; 

EdgePtr : POINTER TO Edge) 


DEFINITION MODULE NodeLists = Lists.BiLists(NodePtr); 
TYPE 

Edge = RECORD 

from, 

to : RECORD 

prev, 

next : EdgePtr; 
with : NodePtr 
END; 

END; 

Node = RECORD OF NodeLists.BiNode; 

from, 

to : RECORD 

first, 

last : EdgePtr; 

END; 

mark : BOOLEAN; 

END; 
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Graph = RECORD 

nodes : NodeLists.BiList; 

END; 

ApplyN = PROCEDURECn : NodePtr); 

ApplyE = PROCEDURECe : EdgePtr); 
DestructN= PROCEDURECn : NodePtr); 
DestructE= PROCEDURECe : EdgePtr); 

PROCEDURE InitCVAR graph : Graph); 

PROCEDURE RemoveAllCVAR graph : Graph); 

PROCEDURE DeleteAllCVAR graph : Graph); 

PROCEDURE DestructAll CVAR graph : Graph; 

desN : DestructN; 
desE : DestructE); 


PROCEDURE AddNodeCVAR graph : Graph;node : NodePtr); 

PROCEDURE RemoveNodeCVAR graph : Graph; 

node : NodePtr; 
des : DestructE); 

PROCEDURE DeleteNodeCVAR graph : Graph; 

node : NodePtr); 


PROCEDURE AddEdgeCVAR graph : Graph; 

src, 

dst : NodePtr; 
edge : EdgePtr); 

PROCEDURE RemoveEdgeCVAR graph : Graph; 

edge : EdgePtr); 

PROCEDURE DeleteEdgeCVAR graph : Graph; 

edge : EdgePtr); 
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PROCEDURE FindEdgeCVAR graph : Graph; 

src, 

dst : NodePtr):EdgePtr; 


PROCEDURE SortTopological (VAR graph : Graph); 


PROCEDURE ApplyNodes (VAR graph : Graph; 

apply : ApplyN); 

PROCEDURE ApplyToEdges (VAR graph : Graph; 

node : NodePtr; 
apply : ApplyE); 

PROCEDURE ApplyFromEdges (VAR graph : Graph; 

node : NodePtr; 
apply : ApplyE); 

PROCEDURE ApplyAllEdges(VAR graph : Graph; 

apply : ApplyE); 


PROCEDURE ApplyDepthFirst (VAR graph : Graph; 

root : NodePtr; 
applyN : ApplyN; 
applyE : ApplyE); 

PROCEDURE ApplyBreathFirst (VAR graph : Graph; 

root : NodePtr; 
applyN : ApplyN; 
applyE : ApplyE); 

PROCEDURE MarkNodes (VAR graph : Graph); 

PROCEDURE ApplyMarked(VAR graph : Graph; 

apply : ApplyN); 


END DirectedGraphs; 
END Graphs. 
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7.19 IFFPictures 

Dieses Modul stellt alle Routinen zur Verfügung, um einen Screen als 
IFF-Datei abzuspeichern, oder ein IFF-Bild zu laden. 


DEFINITION MODULE IFFPictures; 


FROM Intuition IMPORT ScreenPtr; 


TYPE 

PackedBitMap = HIDDEN; 
VAR 

SaveCompress, 

Saveicon : BOOLEAN; 


PROCEDURE SetTooITypeCREF Name : STRING); 

PROCEDURE SavelLBM(Screen : ScreenPtr; VAR Name : STRING); 
PROCEDURE LoadILBMCREF Namen : STRING):ScreenPtr; 

PROCEDURE LoadILBM_Packed(REF Namen : STRING):PackedBitMap; 
PROCEDURE UnpackILBM(pack : PackedBitMap;scr : ScreenPtr); 
PROCEDURE FreePackedCpack : PackedBitMap); 


END IFFPictures. 


Variablen: 

SaveCompress Hiermit können Sie bestimmen, ob der Screen gepackt 
(=TRUE) oder ungepackt (=FALSE) abgespeictiert werden soll. 
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Saveicon Bestimmt, ob zu den Dateien ein Icon mit abgespeichert wer¬ 
den soll. 

PROCEDURE SetToolTypeCREF Name : STRING); 

Funktion: Setzt den Dafault Tool-Eintrag, der beim Abspeichern ge¬ 
setzt werden soll. 

Parameter: 

Name ^ Pfad des Programms, das als Standardpro¬ 

gramm gesetzt werden soll. 

PROCEDURE SavelLBMCScreen : ScreenPtr; VAR Name : STRING); 

Funktion: Speichert einen Screen in ein IFF-File. 

Parameter: 

Screen Zeiger auf den Screen, der abgespeichert werden 

soll. 

Name Pfad, unter dem der Screen abgespeichert wer¬ 

den soll. 

PROCEDURE LoadILBMCREF Namen : STRING):ScreenPtr; 

Funktion: Offnet einen Screen mit den Dimensionen des zu ladenden 
Bildes, und lädt die angegebene IFF-Datei. 

Parameter: 

Namen Pfad der IFF-Datei, die geladen werden soll. 

Zeiger auf den neuen Screen. 

PROCEDURE LoadILBM_Packed(REF Namen : STRING):PackedBitMap; 

Funktion: Lädt ein IFF-Bild in den Speicher, stellt es jedoch noch nicht 
dar. 

Parameter: 

Namen Pfad der IFF-Datei, die geladen werden soll. 

=> Zugriff auf das Bild im Speicher. 
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PROCEDURE UnpackILBM(pack : PackedBitMap;scr : ScreenPtr); 

Funktion: Entpackt ein in den Speicher geladenes Bild auf einen exis¬ 
tierenden Screen. Sind die Dimensionen des geladen Bildes größer als 
jene des Screens, wird der Rest abgeschnitten. 

Parameter: 

pack Zugriff auf das Bild im Speicher, das auf den 

Screen gebracht werden soll. 

scr Zeiger auf den Screen, auf den das Bild entpackt 

werden soll. 

PROCEDURE FreePackedCpack : PackedBitMap); 

Funktion: Gibt den Speicher eines mit LoadILBM_Packed geladenen 
Bildes frei. 

Parameter: 

pack ^ Zugriff auf das freizugebende Bild im Speicher. 
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7.20 InOut 

InOut bietet nun alle Funktionen zur einfachen Ein-/Ausgabe über ein 
Konsolenfenster. Wurde das Programm von der Workbench oder mit 
„run“ gestartet, öffnet InOut sein eigenes Console-Fenster. Man kann 
damit aber nicht nur Ausgaben auf den Bildschirm, sondern auch in Da¬ 
teien machen. Allerdings nur in sogenannten Streams, d. h. man kann 
auf die Daten nur hintereinander und nicht direkt auf einzelne zugrei¬ 
fen. Für komplizierte Dateioperationen sollte man auf das FileSystem 
zurückgreifen. Wundern Sie sich nicht, wenn Ausgaben nicht sofort er¬ 
scheinen, da dieses Modul normalerweise mit einer gepufferten Ausgabe 
arbeitet. Dabei wird der Puffer nur bei einem Zeilenvorschub, oder wenn 
der Puffer voll ist, ausgegeben. 


DEFINITION MODULE InOut; 

(* $ A- *) 

FROM Streams IMPORT Stream,Termination; 
FROM ASCII IMPORT er,If,eof,sp,ff; 


VAR 

Return : BOOLEAN:=TRUE; 

GROUP 

ParamGrp = Return; 


PROCEDURE Openlnput (REF name : STRING); 
PRO CEDURE CIo s eInput; 

PROCEDURE OpenOutput (REF name : STRING); 
PROCEDURE CloseOutput; 
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GROUP 

RedirectionGrp = OpeiiInput,CloseInput,OpenOutput, 

CloseOutput; 

TYPE 

Style = (normal,ItalicjUnderlinedjbold,invers); 

PROCEDURE SetStyle(style : Style;handle : Stream:=N1L); 

PROCEDURE ClearStyle(handle : Stream:=N1L); 

PROCEDURE SetColor(foreground, 

background : SHORTINT; 
handle : Stream:=N1L); 

PROCEDURE ClearWindow(handle : Stream:=N1L); 

GROUP 

StyleGrp = SetStyle,ClearStyle,SetColor, 

ClearWindow; 

PROCEDURE Write(c : CHAR;handle : Stream:=N1L); 

PROCEDURE WriteString(REF s : STRING;handle : Stream:=N1L); 

PROCEDURE WriteMString(REF s : ARRAY OF CHAR; 

handle : Stream:=N1L); 

PROCEDURE WriteEsc(REF s : STRING;handle : Stream:=N1L); 
PROCEDURE WriteLn(handle : Stream:=N1L); 


PROCEDURE WriteBuffer(handle : Stream:=N1L); 
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PROCEDURE Writeint 


(val 
f ield 
handle 


LONGINT; 
INTEGER:=0; 
Streaiii:=NIL) ; 


PROCEDURE WriteHexCval 

f ield 

dollar 

handle 


LONGINT; 

INTEGER:=0; 
B00LEAN:=FALSE; 
Streaiii:=NIL) ; 


PROCEDURE WriteBinCval 

f ield 

sign 

handle 


LONGINT; 

INTEGER:=0; 
B00LEAN:=FALSE; 
Stream:=NIL); 


PROCEDURE WriteCardCval 


f ield 
handle 


LONGCARD; 
INTEGER:=0; 
Stream:=NIL); 


PROCEDURE WriteCardHexCval 

f ield 

dollar 

handle 


LONGCARD; 
INTEGER:=0; 
B00LEAN:=FALSE; 
Stream:=NIL); 


PROCEDURE WriteCardBinCval 

f ield 

sign 

handle 


LONGCARD; 
INTEGER:=0; 
B00LEAN:=FALSE; 
Stream:=NIL); 


PROCEDURE WriteReaKval : LONGREAL; 

field, 

digits : CARDINAL; 
handle : Stream:=NIL); 


PROCEDURE WriteExpReaKval : LONGREAL; 

digits: CARDINAL; 
handle : Stream:=NIL); 


GROUP 

WriteGrp = WriteString,WriteMString,WriteEsc, 

WriteLn,WriteBuffer,Writeint jWriteHex, 
WriteReal,WriteExpReal,Write; 
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PROCEDURE Read (VAR c :CHAR;handle : Stream:=NIL); 


PROCEDURE ReadBool(handle : Stream:=N1L; 

returnEqualTrue : B00LEAN:=FALSE):B00LEAN; 


PROCEDURE ReadString(VAR s 

terms 

handle 

PROCEDURE ReadMString(VAR s 

terms 


STRING; 

= Termination:(sp,If,er,ff,eof, 

eof,eof,eof); 

Stream:=N1L); 

: ARRAY OF CHAR; 

:= Termination:(sp,lf,er,ff,eof, 

eof,eof,eof); 


handle : Stream:=N1L); 

PROCEDURE ReadShortlnt(VAR val : SHORTINT;handle : Stream:=N1L); 
PROCEDURE Readlnt(VAR val : INTEGER;handle : Stream:=N1L); 
PROCEDURE ReadLonglnt (VAR val : LONGINT;handle : Stream:=N1L); 


PROCEDURE ReadShortCard(VAR val : SHORTCARD; 

handle : Stream:=N1L); 


PROCEDURE ReadCard(VAR val : CARDINAL; 

handle : Stream:=N1L); 

PROCEDURE ReadLongCard(VAR val : LONGCARD; 

handle : Stream:=N1L); 

PROCEDURE ReadReaKVAR val : REAL; 

handle : Stream:=N1L); 

PROCEDURE ReadFFP(VAR val : FFP; 

handle : Stream:=N1L); 

PROCEDURE ReadLongReal (VAR val : LONGREAL; 

handle : Stream:=N1L); 
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GROUP 

ReadGrp = Read,ReadBool,ReadString,ReadMString, 
ReadShortInt,Readint,ReadLongInt, 
ReadShortCard,ReadCard,ReadLongCard, 

ReadReal,ReadFFP,ReadLongReal; 

StreamGrp = Streams.ExceptionGrp,Streams.GlobalGrp; 

All = ParamGrp,WriteGrp,StyleGrp,ReadGrp,StreamGrp, 

RedirectionGrp; 


END InOut. 


Variablen: 

Return Gibt an, ob am Programmende anf ein Retnrn gewartet wird. 
Standardeinstellnng ist TRUE. 

Typen: 

Stream Alle Prozeduren in diesem Modul haben einen Handle als Pa¬ 
rameter, der zu den Handles aus dem Modul Streams kompatibel 
ist. Sie können hier also einen eigenen Stream übergeben, den 
man mit Streams geöffnet hat. Ubergibt man keinen Handle, wird 
der aktuelle Standardstrom aus Streams genommen, existiert noch 
keiner, wird ein Standard-ConsoleWindow als Stream geöffnet. 

Style Stilarten, in denen auf einem Consolefenster geschrieben werden 
kann: 

• normal : Normale Ausgabe. 

• Italic : Kursive Schrift. 

• underlined : Unterstrichene Ausgabe. 

• bold : Fettdruck. 

• invers : Invertierte Ausgabe. 
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7.20.1 Ein- / Ausgabeumleitungs-Funktionen 

PROCEDURE Openlnput (REF name : STRING); 

Funktion: Dient dazu, den Standardeingabekanal (normalerweise das 
Con-Window) auf ein anderes Gerät oder eine Datei umzulenken. Alles 
Leseoperationen beziehen sich dann auf diesen Kanal. 

Parameter: 

name ^ Name des neuen Kanals. 

PROCEDURE Closelnput; 

Funktion: Schließt einen mit Openlnput geöffneten Kanal wieder. Der 
zuvor aktive Standardeingabestrom wird danach wieder zum aktuellen. 

PROCEDURE OpenOutput (REF name : STRING); 

Funktion: Dient dazu, den Standardausgabekanal (normalerweise das 
Con-Window) auf ein anderes Gerät oder eine Datei umzulenken. Alles 
Schreiboperationen beziehen sich dann auf diesen Kanal. 

Parameter: 

name Name des neuen Kanals. 

PROCEDURE CloseOutput; 

Funktion: Schließt einen mit OpenOutput geöffneten Kanal wieder. Der 
zuvor aktive Standardausgabestrom wird danach wieder zum aktuellen. 


7.20.2 Ausgabestil-Funktionen 

PROCEDURE SetStyle(style : Style;handle : Stream:=NIL); 
Funktion: Setzt einen der Schreibstile aus dem Aufzählungstyp Style. 
Parameter: 

style <^= Schreibstil, der gesetzt werden soll. 

handle ^ Alternativer Ausgabestrom. Wird dieser Para¬ 
meter nicht übergeben, wird der Standardstrom 
verwendet. 
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PROCEDURE ClearStyle(handle : Stream:=NIL); 

Funktion: Setzt den Standardschreibstil. 

Parameter: 

handle Alternativer Ansgabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

PROCEDURE SetColor(foreground, 

background : SHORTINT; 
handle : Stream:=N1L); 

Funktion: Setzt Vorder- nnd Hintergrnndfarbe für ein Consol-Fenster. 

Parameter: 

foreground Vordergrnndfarbe, die verwendet werden soll. 

background Hintergrundfarbe, die verwendet werden soll. 

handle Alternativer Ausgabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

PROCEDURE ClearWindow(handle : Stream:=N1L); 

Funktion: Löscht das Ausgabefenster, ist der Pfad auf einen Drucker 
umgelenkt, führt dieser einen Seitenvorschub aus. 

Parameter: 

handle Alternativer Ausgabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

7.20.3 Schreibfunktionen 

PROCEDURE Write(c : CHAR;handle : Stream:=N1L); 

Funktion: Gibt ein Zeichen aus. Ist c=&10 und der verwendete Strom 
gepufferlj^ dann wird der Puffer ausgegeben, wenn einer vorhanden ist. 

®Was standardmäßig so ist. 
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Parameter: 

c Zeichen das ausgegeben werden soll. 

handle Alternativer Ausgabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

PROCEDURE WriteStringCREF s : STRING;handle : Stream:=NIL); 

Funktion: Gibt eine Zeichenkette aus. Enthält der String einen Zeile¬ 
vorschub (&;10), wird der Puffer ausgegeben, falls vorhanden. 

Parameter: 

s String, der ausgegeben werden soll. 

handle Alternativer Ausgabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

PROCEDURE WriteMStringCREF s : ARRAY OF CHAR; 

handle : Stream:=NIL); 

Funktion: Gibt einen Modula-String aus. 

Parameter: 

s <;= Modula-String, der ausgegeben werden soll. 

handle ^ Alternativer Ausgabestrom. Wird dieser Para¬ 
meter nicht übergeben, wird der Standardstrom 
verwendet. 

PROCEDURE WriteEscCREF s : STRING;handle : Stream:=NIL); 

Funktion: Wie WriteString, jedoch wird vor dem String noch ein „Esc- 

Zeichen“ ausgegeben. Daher ist diese Eunktion besonders gut für Esc- 

Sequenzen zur Druckersteuerung zu gebrauchen. 

Parameter: 

s String, der ausgegeben werden soll. 

handle ^ Alternativer Ausgabestrom. Wird dieser Para¬ 
meter nicht übergeben, wird der Standardstrom 
verwendet. 
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PROCEDURE WriteLn(handle : Stream:=NIL); 

Funktion: Führt einen Zeilenvorschnb dnrch. Dabei wird der Pnffer 

ausgegeben, sofern die Ausgabe gepuffert ist. 

PROCEDURE WriteBuffer(handle : Stream:=N1L); 

Funktion: Erzwingt die Ausgabe des Puffers. Wenn keiner existiert, 

entsteht ein Laufzeitfehler. 

Parameter: 

s String, der ausgegeben werden soll. 

handle Alternativer Ausgabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

PROCEDURE Writelnt(val : LONGINT; 

field : INTEGER:=0; 

handle : Stream:=NIL); 

Funktion: Gibt eine Integerzahl aus. 

Parameter: 

val Intergerzahl, die ausgegeben werden soll. 

field ^ Größe des Feldes, in dem die Zahl positioniert 
werden soll. Ist field = 0 wird die Zahl in 
einem genau passenden Feld positioniert. Ist 
field > 0 wird die Zahl rechtsbündig, für field 
< 0 linksbündig angeordnet. 

handle Alternativer Ausgabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

PROCEDURE WriteHex(val : LONGINT; 

field : INTEGER:=0; 
dollar : BOOLEAN:=FALSE; 
handle : Stream:=NIL); 

Funktion: Gibt eine Integerzahl als Hexwert aus, sonst wie Writelnt. 

Bei negativen Werten wird die Zahl nicht im Zweier-Komplement, son¬ 
dern mit Vorzeichen ausgegeben. 
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Parameter: 

val Intergerzahl, die ausgegeben werden soll. 


field <= Größe des Feldes, in dem die Zahl positioniert 
werden soll. Ist field = 0 wird die Zahl in 
einem genau passenden Feld positioniert. Ist 
field > 0 wird die Zahl rechtsbündig, für field 
< 0 linksbündig angeordnet. 

dollar Flag, ob bei der Ausgabe der Zahl ein „$“ voran¬ 

gestellt werden soll. 

handle ^ Alternativer Ausgabestrom. Wird dieser Para¬ 
meter nicht übergeben, wird der Standardstrom 
verwendet. 


PROCEDURE WriteBinCval : LONGINT; 

field : INTEGER:=0; 
sign : B00LEAN:=FALSE; 
handle : Stream:=NIL); 


Funktion: Gibt eine Integerzahl als Binärzahl aus, sonst wie Writelnt. 


Parameter: 

val Intergerzahl, die ausgegeben werden soll. 


field <^= Größe des Feldes, in dem die Zahl positioniert 
werden soll. Ist field = 0 wird die Zahl in 
einem genau passenden Feld positioniert. Ist 
field > 0 wird die Zahl rechtsbündig, für field 
< 0 linksbündig angeordnet. 

sign Flag, ob bei der Ausgabe der Zahl ein „%“ vo¬ 

rangestellt werden soll. 

handle <= Alternativer Ausgabestrom. Wird dieser Para¬ 
meter nicht übergeben, wird der Standardstrom 
verwendet. 
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PROCEDURE WriteCardCval : LONGCARD; 

field : INTEGER:=0; 

handle : Stream:=NIL); 

Funktion: Gibt eine Cardinalzahl aus. 

Parameter: 

val Cardinalzahl, die ausgegeben werden soll. 

field ^ Größe des Feldes, in dem die Zahl positioniert 
werden soll. Ist field = 0 wird die Zahl in 
einem genau passenden Feld positioniert. Ist 
field > 0 wird die Zahl rechtsbündig, für field 

< 0 linksbündig angeordnet. 

handle Alternativer Ausgabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

PROCEDURE WriteCardHexCval : LONGCARD; 

field : INTEGER:=0; 
dollar : BOOLEAN:=FALSE; 
handle : Stream:=NIL); 

Funktion: Gibt eine Cardinalzahl als Hexwert aus, sonst wie 

WriteCard. 

Parameter: 

val Cardinalzahl, die ausgegeben werden soll. 

field ^ Größe des Feldes, in dem die Zahl positioniert 
werden soll. Ist field = 0 wird die Zahl in 
einem genau passenden Feld positioniert. Ist 
field > 0 wird die Zahl rechtsbündig, für field 

< 0 linksbündig angeordnet. 

dollar ^ Flag, ob bei der Ausgabe der Zahl ein „$“ voran¬ 
gestellt werden soll. 

handle Alternativer Ausgabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 
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PROCEDURE WriteCardBinCval : LONGCARD; 

field : INTEGER:=0; 
sign : B00LEAN:=FALSE; 
handle : Streaiii:=NIL) ; 


Funktion: Gibt eine Cardinalzahl als Binärzahl ans, sonst wie 
WriteCard. 


Parameter: 

val Cardinalzahl, die ausgegeben werden soll. 


field <^= Größe des Feldes, in dem die Zahl positioniert 
werden soll. Ist field = 0 wird die Zahl in 
einem genau passenden Feld positioniert. Ist 
field > 0 wird die Zahl rechtsbündig, für field 
< 0 linksbündig angeordnet. 

sign Flag, ob bei der Ausgabe der Zahl ein „%“ vo¬ 

rangestellt werden soll. 

handle Alternativer Ausgabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 


PROCEDURE WriteReaKval : LONGREAL; 

field, 

digits : CARDINAL; 
handle : Stream:=NIL); 

Funktion: Gibt eine Fließkommazahl aus. 

Parameter: 

val Longrealzahl, die ausgegeben werden soll. 

field Größe des Feldes, in dem die Zahl positioniert 

werden soll, inklusive Dezimalpunkt und Vor¬ 
zeichen. Die Zahl wird darin kommabündig 
positioniert 

digits Anzahl der auszugebende Nachkommastellen. 

handle ^ Alternativer Ausgabestrom. Wird dieser Para¬ 
meter nicht übergeben, wird der Standardstrom 
verwendet. 
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PROCEDURE WriteExpReaKval : LONGREAL; 

digits: CARDINAL; 
handle : Stream:=NIL); 

Funktion: Ausgabe einer Fließkommazahl in Exponetialdarstellung. 
Die Zahl wird linksbündig ausgegeben. 

Parameter: 

val Longrealzahl, die ausgegeben werden soll. 

digits Anzahl der auszugebende Nachkommastellen. 

handle Alternativer Ausgabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 
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7.20.4 Lesefunktionen 

PROCEDURE Read (VAR c :CHAR;handle : Stream:=NIL); 

Funktion: Liest ein Zeichen ein. Ist der augenblickliche Eingabestrom 
ein interaktiver, kehrt diese Funktion erst zurück, nachdem eine Ein¬ 
gabe erfolgt ist, bei einem Consolefenster also erst, nachdem ein Return 
eingegeben wurde. 

Parameter: 

c ^ Gelesenes Zeichen. 

handle Alternativer Eingabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

PROCEDURE ReadBool(handle : Stream:=NIL; 

returnEqualTrue : B00LEAN:=FALSE):B00LEAN; 

Funktion: Liest einen Boolwert ein. TRUE wird bei folgenden Eingaben 
zurückgeliefert: 

• .. 1 “ 

• ..y7..Y“ 

• „ja“/„Ja“ 

• „yes“, unabhängig von der Groß/Kleinschreibung. 

• „true“, unabhängig von der Groß/Kleinschreibung. 

• „wahr“, unabhängig von der Groß/Kleinschreibung. 
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FALSE wird für folgende Eingaben znrückgeliefert: 

. „n“/,.N“ 

• „ 0 “ 

• „nein“, unabhängig von der Groß/Kleinschreibung. 

• „no“, unabhängig von der Groß/Kleinschreibung. 

• „false“, unabhängig von der Groß/Kleinschreibung. 

• „falsch“, unabhängig von der Groß/Kleinschreibung. 

Parameter: 

handle Alternativer Eingabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

returnEqualTrue 

<t= Wird hier „TRUE“ übergeben, wird ein einfaches 
Return auch als TRUE gewertet. 

=> Eingegebener Boolwert. 

PROCEDURE ReadStringCVAR s : STRING; 

terms := Termination:(sp,lf»er,ff,eof, 

eof,eof,eof); 

handle : Stream:=NIL); 

Funktion: Liest einen String ein. Dabei wird solange gelesen, bis ein 
Terminationszeichen erreicht wird. Das Terminationszeichen selbst be¬ 
findet sich nicht in dem String. Es werden nur Terminationszeichen er¬ 
kannt, die nicht von eingeschlossen sind. Will man ein Anführungszeichen 
eingeben, kann dies nur innerhalb von Anführungsstrichen geschehen, 
und dort, indem man zwei direkt hintereinander ohne Leerzeichen 
eingibt. 
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Parameter: 

s ^ Eingelesener String. 

terms Array mit 8 Einträgen, das die Termiationzei- 

chen enthält, die znm Abbrnch des Einlesens 
führen. 

handle ^ Alternativer Eingabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

PROCEDURE ReadMStringCVAR s : ARRAY OF CHAR; 

terms := Termination:(sp,If»er,ff,eof, 

eof,eof,eof); 
handle : Stream:=N1L); 

Funktion: Liest einen Modnla-String ein. Sonst wie ReadString. 


PROCEDURE ReadShortlntCVAR val : SHORTINT;handle : Stream:=N1L); 

Funktion: Liest eine SHORTINT-Zahl ein. Die Zahl wird bis znm ersten 
Anftreten einer Nichtziffer ausgewertet. Gibt man vor der Zahl ein „$“ 
an, wird die darauffolgende Zahl als Hex-Zahl ausgewertet, durch ein 
„%“ wird sie als Binärzahl verstanden. Drückt man als Eingabe nur auf 
Return, wird die in val übergebene Variable nicht verändert. 

Parameter: 

val ^ Eingelesener Wert. 

handle Alternativer Eingabestrom. Wird dieser Para¬ 

meter nicht übergeben, wird der Standardstrom 
verwendet. 

Die Prozeduren Readlnt, ReadLonglnt, ReadShortCard, ReadCard und 
ReadLongCard werden genauso aufgerufen, und dienen dazu, Zahlen der 
entsprechenden Typen einzulesen. Auf eine nähere Erklärung kann wohl 
verzichtet werden. 

Eür ReadReal, ReadFP, und ReadLongReal gilt im Prinzip das selbe, 
jedoch können hier auch Eingaben in Exponentialdarstellung gemacht 
werden wie z. B. 1.34553E4 oder 3.43355e-12. 
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7.21 Lists 

Bei diesem Modul handelt es sich um eine Zusammenstellung von gene¬ 
rischen Modulen zur Verwaltung von verketteten Listen. Da Listen im 
Kapitel für Fortgeschrittene Programmierer ausführlich behandelt wer¬ 
den, wird hier auf eine nähere Erklärung verzichtet. 


DEFINITION MODULE Lists; 


FROM FileSystem IMPORT File; 

FROM Resources IMPORT ContextPtr; 

EXCEPTION 

FileTypeMismatch : "File type and current type don’t match" 
ListEmpty : "List is allready empty"; 

DEFINITION MODULE BiLists(BiNodePtr : POINTER TO BiNode); 

TYPE 

BiNode = RECORD 
prev, 

next : BiNodePtr; 

END; 

BiList = RECORD 

first, 

last : BiNodePtr 
END; 

AppIyProc = PROCEDURE(n : BiNodePtr); 

Destructor = PROCEDURE(n : BiNodePtr); 

Relation = PROCEDURE(a,b : BiNodePtr):B00LEAN; 

Check = PROCEDURECn : BiNodePtr):B00LEAN; 

SaveProc = PROCEDURE(f : File;data : BiNodePtr); 
LoadProc = PROCEDURE(f : File):BiNodePtr; 

PROCEDURE InitCVAR I : BiList); 

PROCEDURE InsertTopCVAR I : BiList;n : BiNodePtr); 
PROCEDURE InsertBottomCVAR I : BiList;n : BiNodePtr); 


PROCEDURE InsertBefore (VAR I : BiList;succ,n : BiNodePtr) 
PROCEDURE RemoveFirst (VAR I : BiList):BiNodePtr; 
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PROCEDURE RemoveLast (VAR 1 : BiList):BiNodePtr; 
PROCEDURE Remove(VAR 1 : BiList;n : BiNodePtr); 
PROCEDURE Remove_IF(VAR 1 : BiList;if : Check); 
PROCEDURE Remove_All(VAR 1 : BiList); 

PROCEDURE DeleteFirst (VAR 1 : BiList); 

PROCEDURE DeleteLast (VAR 1 : BiList); 

PROCEDURE Delete(VAR 1 : BiList;n : BiNodePtr); 
PROCEDURE Delete_IF(VAR 1 : BiList;if : Check); 
PROCEDURE Delete_All(VAR 1 : BiList); 


PROCEDURE Destruct_IF(VAR 


1 

if 

des 


BiList; 
Check; 

Destructor); 


PROCEDURE Destruct_All(VAR 1 

des 


BiList; 
Destructor); 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


Apply(VAR 1 : BiList;proc : ApplyProc); 
Sort(VAR 1 : BiList;greater : Relation); 
n_th(VAR 1 : BiList;n : INTEGER):BiNodePtr; 
Count (VAR 1 : BiList ): INTEGER; 
isEmpty (VAR 1 : BiList):BOOLEAN; 

Find (VAR 1 : BiList;equal : Check):BiNodePtr; 


FindNext(VAR 1 

equal 

Start 


BiList; 

Check; 

BiNodePtr):BiNodePtr; 


Append(VAR dest,arg : BiList); 

Save (VAR 1 : BiList;f : File;part : SaveProc) 


PROCEDURE Load(VAR 1 : BiList;f : File;part : LoadProc) 
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END BiLists; 


DEFINITION MODULE SingleLists(NodePtr : POINTER TO Node); 


TYPE 

Node 

= RECORD 



next : 

NodePtr 

List 

END; 

= RECORD 



first, 
last 

: NodePtr 


END; 



AppIyProc 

Destructor 

Relation 

Check 

SaveProc 

LoadProc 


= PROCEDURECn : NodePtr); 

= PROCEDURECn : NodePtr); 

= PR0CEDURE(a,b : NodePtr):B00LEAN; 

= PROCEDURECn : NodePtr):BOOLEAN; 

= PROCEDURECf : File;data : NodePtr); 
= PROCEDURECf : File):NodePtr; 


PROCEDURE InitCVAR I : List); 

PROCEDURE InsertTopCVAR I : List;n : NodePtr); 
PROCEDURE InsertBottomCVAR I : List;n : NodePtr); 
PROCEDURE Insert AfterCVAR I : List;pred,n : NodePtr); 
PROCEDURE RemoveFirst CVAR I : List):NodePtr; 

PROCEDURE RemoveCVAR I : List;n : NodePtr); 

PROCEDURE Remove_IFCVAR I : List;if : Check); 
PROCEDURE Remove_AIlCVAR I : List); 


PROCEDURE DeleteFirstCVAR I : List); 
PROCEDURE DeleteCVAR I : List;n : NodePtr); 
PROCEDURE Delete.IFCVAR I : List;if : Check); 
PROCEDURE DeIete_AIlCVAR I : List); 


PROCEDURE Destruct_IFCVAR I : List; 


(©1992/93 by StoneWare 




7.21. LISTS 


171 


if : Check; 
des : Destructor); 

PROCEDURE Destruct_All(VAR 1 : List;des : Destructor); 

PROCEDURE Find (VAR 1 : List;equal : Check):NodePtr; 

PROCEDURE FindNextCVAR 1 : List; 

equal : Check; 

Start : NodePtr):NodePtr; 


PROCEDURE 

Apply (VAR 1 

: List;proc : ApplyProc); 

PROCEDURE 

Sort(VAR 1 : 

List;greater : Relation); 

PROCEDURE 

n_th(VAR 1 : 

List;n : 

INTEGER):NodePtr; 

PROCEDURE 

Append(VAR dest,arg 

: List); 

PROCEDURE 

Save (VAR 1 : 

List;f 

: File;part : SaveProc); 

PROCEDURE 

Load (VAR 1 : 

List;f 

: File;part : LoadProc); 


END SingleLists; 
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DEFINITION MODULE SortedBiLists(BiNodePtr : POINTER TO BiNode); 
EXCEPTION 

RelationMismatch : "Relations in sorted lists don’t match"; 
DEFINITION MODULE BiLists = BiLists(BiNodePtr); 


FROM BiLists IMPORT Remove,RemoveFirst,RemoveLast, 

Remove_IF,Remove_AII, 

Delete jDeleteFirst,DeIeteLast, 
DeIete_IF,DeIete_AII, 

Destruct_IF,Destruct_AII, 
Relation; 

TYPE 

BiNode = RECORD OF BiLists.BiNode END; 

BiList = RECORD OF BiLists.BiList 
ffreater : Relation 


SaveProc = PROCEDURE(f : File;data : BiNodePtr); 
LoadProc = PROCEDURE(f : File):BiNodePtr; 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


Init(VAR I : BiList;greater : Relation); 

Insert (VAR I : BiList;n : BiNodePtr); 

Mix(VAR dest,arg : BiList); 

Save(VAR I : BiList;f : File;part : SaveProc); 


PROCEDURE Load(VAR I : BiList;f 
END SortedBiLists; 


File;part 


LoadProc); 
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DEFINITION MODULE TextLists(TextNodePtr : POINTER TO TextNode) 
DEFINITION MODULE TL = SortedBiLists(TextNodePtr); 

TYPE 

TextList = TL.BiList; 

TextNode = RECORD OF TL.BiNode 

name : CLASSPTR TO STRING; 
special : BOOLEAN; 

END; 


PROCEDURE CmpStrings(a,b : TextNodePtr):BOOLEAN; 
PROCEDURE CmpStringsCaps(a,b : TextNodePtr):BOOLEAN; 
END TextLists; 

DEFINITION MODULE CursorLists(type : ANYPTR); 

EXCEPTION 

NoCursor : "No Cursor set"; 

NotFound : "Entry not found"; 

TYPE 

PtrNodePtr = POINTER TO PtrNode; 

DEFINITION MODULE CList = BiLists(PtrNodePtr); 


TYPE 

PtrNode = RECORD OF CList.BiNode 

data : type 
END; 

List = RECORD OF CList.BiList 

mark, 

Cursor : PtrNodePtr; 
END; 


AppIyProc 

Destructor 

Relation 

Check 

SaveProc 

LoadProc 


PROCEDURE (n : type); 

PROCEDURE (n : type); 
PROCEDURE(a,b : type):BOOLEAN; 
PROCEDURE (n : type):BOOLEAN; 
PROCEDURE(f : File;data : type); 
PROCEDURE (f : File):type; 


PROCEDURE Init(VAR I : List); 


PROCEDURE Get(VAR I : List):type; 
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PROCEDURE InsertTopCVAR 1 : List;t : type); 
PROCEDURE InsertBottom(VAR 1 : List;t : type); 
PROCEDURE InsertBefore (VAR 1 : List;t : type); 
PROCEDURE InsertAfter (VAR 1 : List;t : type); 


PROCEDURE RemoveFirst (VAR 1 : List):type; 
PROCEDURE RemoveLast (VAR 1 : List):type; 
PROCEDURE RemoveAct (VAR 1 : List):type; 
PROCEDURE Remove(VAR 1 : List;t : type); 
PROCEDURE Remove_IF(VAR 1 : List;if : Check); 
PROCEDURE Remove_All(VAR 1 : List); 


PROCEDURE DeleteFirst (VAR 1 : List); 
PROCEDURE DeleteLast (VAR 1 : List); 

PROCEDURE Delete(VAR 1 : List;t : type); 
PROCEDURE DeleteAct(VAR 1 : List); 

PROCEDURE Delete_IF(VAR 1 : List;if : Check); 
PROCEDURE Delete_All(VAR 1 : List); 


PROCEDURE Destruct_IF(VAR 1 : List; 

if : Check; 
des : Destructor); 

PROCEDURE Destruct_All (VAR 1 : List;des : Destructor); 


PROCEDURE Apply(VAR 1 : List;proc : ApplyProc); 
PROCEDURE Sort(VAR 1 : List;greater : Relation); 
PROCEDURE Append(VAR dest,arg : List); 
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PROCEDURE DupCVAR dest,arg : List); 


PROCEDURE FindCVAR 1 : List;equal : Check); 
PROCEDURE FindNext(VAR 1 : List;equal : Check); 
PROCEDURE MarkCVAR 1 : List); 

PROCEDURE GoMarkCVAR 1 : List); 

PROCEDURE NextCVAR 1 : List); 

PROCEDURE PrevCVAR 1 : List); 

PROCEDURE First (VAR 1 : List); 

PROCEDURE Last (VAR 1 : List); 

PROCEDURE n_th(VAR 1 : List; n : INTEGER); 
PROCEDURE Go (VAR 1 : List;t : type); 

PROCEDURE HasCursor(VAR 1 : List):BOOLEAN; 
PROCEDURE Save (VAR 1 : List;f : File;part 

PROCEDURE Load(VAR 1 : List;f : File;part 

PROCEDURE GarbageCollect; 

END CursorLists; 


SaveProc); 
LoadProc); 


END Lists. 
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Exceptions: 

FileTypeMismatch Wird durch Load ausgelöst, wenn versucht wird 
eine Liste aus einem File zu laden, in dem keine abgespeichert war. 

ListEmpty Falls versucht wurde ein Element aus einer leeren Liste zu 
entfernen. 

7.21.1 BiLists 

Enthält Routinen zur Verwaltung von doppelt verketteten Listen. Alle 
Elemente der Liste müssen Nachfolger des Typs „BiNode“ sein. 

Typen: 

BiList Listenkopf, der folgende Elemente enthält: 

first : Zeiger auf ersten Knoten der Liste, NIL, wenn 
die List leer ist. 

last : Zeiger auf letzten Knoten der Liste, NIL, wenn 
die Liste leer ist. 

BiNode Listenknoten, der folgende Elemente enthält: 

next : Zeiger auf nächsten Knoten der Liste, NIL, 
wenn es selbst der letzte Knoten ist. 

prev : Zeiger auf vorherigen Knoten der Liste, NIL, 
wenn es selbst der erste Knoten ist. 


PROCEDURE InitCVAR 1 : BiList); 

Funktion: Initialisiert eine Liste. Das muß geschehen, bevor das erste 
Element in die Liste eingefügt wird. 

Parameter: 

1 ^ Liste, die initialisiert werden soll. 
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PROCEDURE InsertTopCVAR 1 : BiList;n : BiNodePtr); 

Funktion: Fügt einen Knoten am Anfang der Liste ein. 

Parameter: 

1 Liste, in die der Knoten eingefügt werden soll, 

n Knoten, der eingefügt werden soll. 

PROCEDURE InsertBottomCVAR 1 : BiList;n : BiNodePtr); 

Funktion: Fügt einen Knoten am Ende der Liste ein. 

Parameter: 

1 Liste, in die der Knoten eingefügt werden soll, 

n Knoten, der eingefügt werden soll. 

PROCEDURE InsertAfter (VAR 1 : BiList;pred,n : BiNodePtr); 

Funktion: Fügt einen Knoten direkt nach einem bereits in der Liste 
vorhandenen ein. 

Parameter: 

1 Liste, in die der Knoten eingefügt werden soll. 

pred Knoten, hinter dem der neue Knoten eingefügt 

werden soll. 

n 4= Knoten, der eingefügt werden soll. 

PROCEDURE InsertBefore (VAR 1 : BiList;succ,n : BiNodePtr); 

Funktion: Fügt einen Knoten direkt vor einem bereits in der Liste 
vorhandenen ein. 

Parameter: 

1 Liste, in die der Knoten eingefügt werden soll. 

succ Knoten, vor dem der neue Knoten eingefügt wer¬ 

den soll. 

n Knoten, der eingefügt werden soll. 
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PROCEDURE RemoveFirst (VAR 1 : BiList):BiNodePtr; 

Funktion: Entfernt das erste Element ans der Liste, und gibt dieses 
zurück. 

Parameter: 

1 Liste, aus der das Element entfernt werden soll. 

=> Element, das entfernt wurde. 

PROCEDURE RemoveLast (VAR 1 : BiList):BiNodePtr; 

Funktion: Entfernt das letzte Element einer Liste und gibt dieses 
zurück. 

Parameter: 

1 Liste, aus der das Element entfernt werden soll. 

=> Element, das entfernt wurde. 

PROCEDURE Remove(VAR 1 : BiList;n : BiNodePtr); 

Funktion: Entfernt ein übergebenes Element aus der Liste. 

Parameter: 

1 Liste, aus der der Knoten entfernt werden soll, 

n 4= Knoten, der entfernt werden soll. 

TYPE 

Check = PROCEDURE (n : BiNodePtr):B00LEAN; 

PROCEDURE Remove_IF(VAR 1 : BiList;if : Check); 

Funktion: Entfernt alle Elemente aus der Liste, für die eine Bedin¬ 
gung erfüllt ist. Da nun dieses Modul nichts über die Eigenschaften 
seiner Knoten weiß, außer, daß sie Nachfolger von BiNode sind, muß der 
Benutzer hier eine Prozedur mit übergeben, die für jedes Listenelement 
aufgerufen werden kann und dann zurückgibt, ob dieses Element entfernt 
werden soll oder nicht. 
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Parameter: 

1 Liste, die bearbeitet werden soll. 

if Funktion, der nacheinander die einzelnen Lis¬ 

tenknoten übergeben werden und die TRUE 
zurückgeben muß, wenn dieses Element ent¬ 
fernt werden soll. Da diese Funktion als 
Ubergabetypen nicht mehr den Typ BiNode, son¬ 
dern den generisch ausgeprägten hat, kann sie 
auf alle Elemente des Knotens zugreifen. 

PROCEDURE Remove_All(VAR 1 : BiList); 

Funktion: Entfernt alle Elemente aus der Liste. Danach ist die Liste 
wieder im Zustand wie nach Init. 

Parameter: 

1 Liste, aus der alle Elemente entfernt werden 

sollen. 

PROCEDURE DeleteFirst (VAR 1 : BiList); 

PROCEDURE DeleteLast (VAR 1 : BiList); 

PROCEDURE Delete(VAR 1 : BiList;n : BiNodePtr); 

PROCEDURE Delete_IF(VAR 1 : BiList;if : Check); 

PROCEDURE Delete_All(VAR 1 : BiList); 

Diese Funktionen werden wie die entsprechenden Remove . . . -Funktio¬ 
nen aufgerufen. Der Unterschied ist, daß die Knoten anschließend mit 
Dispose freigegeben werden. Diese Funktionen eignen sich also nur dann 
zum Freigeben eines Knotens, wenn dieser nur aus Speicher besteht und 
keine anderen Resourcen enthält (wie z. B. ein FileHandle), die erst 
noch freigegeben werden müssen. In einem solchen Fall kann man jedoch 
auf die nahezu gleichartigen Destruct-Funktionen zurückgreifen: 
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TYPE 

Destructor = PROCEDURECn : BiNodePtr); 

PROCEDURE Destruct_IF(VAR 1 : BiList; 

if : Check; 

des : Destructor); 

PROCEDURE Destruct_All(VAR 1 : BiList; 

des : Destructor); 

Diese Funktionen arbeiten wie Remove, jedoch wird jeweils eine Prozedur 
mitübergeben, die die Freigabe des Knotens vornehmen muß. 

TYPE 

ApplyProc = PROCEDURECn : BiNodePtr); 

PROCEDURE ApplyCVAR 1 : BiList;proc : ApplyProc); 

Funktion: Will man alle Elemente einer Liste auf einmal bearbeiten, 
kann man diese Prozedur verwenden. Die angegebene Prozedur proc 
wird einmal für jedes Element aufgerufen, mit dem Element als Parame¬ 
ter. 

Parameter: 

1 Liste, die bearbeitet werden soll. 

proc Prozedur, die für jedes Element aufgerufen wer¬ 

den soll. 

TYPE 

Relation = PROCEDURE (a,b : NodePtr):B00LEAN; 

PROCEDURE SortCVAR 1 : BiList;greater : Relation); 

Funktion: Die Liste wird anhand einer Ordnungsrelation sortiert. 

Parameter: 

1 Liste, die sortiert werden soll. 

greater Funktion, die die Ordnung zwischen zwei 

übergebenen Knoten angibt. Sie gibt TRUE 
zurück, wenn a vor b sortiert werden soll, sonst 
FALSE - also auch bei Gleichheit: 

(a<b) ^ greater(a, b) = TRUE 
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PROCEDURE n_th(VAR 1 : BiList;n : INTEGER):BiNodePtr; 

Funktion: Liefert das n-te Element einer Liste. 

Parameter: 

1 Liste, auf die Zugriffen werden soll. 

n Nummer des Elements, das gesucht werden soll. 

^ n-ter Knoten oder NIL, wenn die Liste kürzer 
war. 


PROCEDURE Count (VAR I : BiList ): INTEGER; 

Funktion: Liefert die Anzahl Elemente in einer Liste. 

Parameter: 

I <^= Liste, die untersucht werden soll. 

^ Anzahl Elemente. 


PROCEDURE isEmptyCVAR I : BiList):B00LEAN; 
Funktion: Liefert TRUE, wenn die Liste leer ist. 


TYPE 

Check = PROCEDURE (n : BiNodePtr):BOOLEAN; 

PROCEDURE Find(VAR I : BiList;equaI : Check):BiNodePtr; 

Funktion: Liefert das erste Element, für das eine Bedingung erfüllt ist. 

Da das Modul nichts über die einzelnen Elemente eines Knotens weiß, 

muß auch hier eine Prozedur mit übergeben werden. 

Parameter: 

I <^= Liste, in der gesucht werden soll. 

equal Prozedur, die TRUE zurückliefert, wenn es sich bei 

dem ihr übergebenen Knoten um den gesuchten 
handelt. 

^ Zeiger auf den ersten Knoten, auf den die Bedin¬ 
gung zutrifft oder NIL, wenn es keinen solchen 
Knoten gab. 
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PROCEDURE FindNextCVAR 1 

equal 

Start 


BiList; 

Check; 

BiNodePtr):BiNodePtr; 


Funktion: Wie Find, jedoch kann hier ab einem bestimmten Knoten 
gesncht werden nnd nicht nnr vom Listenanfang ans. 

Parameter: 

1 ^ Liste, in der gesucht werden soll. 

equal Prozedur, die TRUE zurückliefert, wenn es sich bei 

dem ihr übergebenen Knoten um den gesuchten 
handelt. 


Start 


Knoten, bei dem mit der Suche begonnen werden 
soll. 

Zeiger auf den ersten Knoten, auf den die Bedin¬ 
gung zutrifft, oder NIL, wenn kein Knoten gefun¬ 
den wurde. 


PROCEDURE AppendCVAR dest,arg : BiList); 

Funktion: Fügt eine Liste an eine andere an. Die angehängte Liste 
enthält danach keine Elemente mehr. 


Parameter: 
dest 

arg 


Liste, an die angehängt werden soll. 

Liste, die angehängt werden soll und danach leer 
ist. 
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TYPE 

SaveProc = PROCEDURE(f : File;data : BiNodePtr); 
PROCEDURE Save(VAR 1 : BiList;f : File;part : SaveProc); 

Funktion: Sichert eine Liste in eine File. 

Parameter: 

1 <^= Liste, die gesichert werden soll. 


f 

Zugriff auf ein mittels FileSystem geöffnetes 

File. 

part 

Prozedur, die einen einzelnen Knoten in das 
übergebene File schreibt. Wird für jeden Knoten 
einzeln aufgerufen. 

TYPE 



LoadProc = PROCEDURE (f : File):BiNodePtr; 

PROCEDURE Load(VAR 1 : BiList;f : File;part : LoadProc); 

Funktion: Lädt eine Liste aus einem File. 

Parameter: 

1 <^= Liste, die gesichert werden soll. 


f 

Zugriff auf ein mittels FileSystem geöffnetes 

File. 

part 

^ Prozedur, die einen einzelnen Knoten erzeugt, 
und seine Daten aus dem übergebenen File liest. 

Wird für alle Knoten einzeln aufgerufen. 


7.21.2 SingleLists 

Hierbei handelt es sich um ein Modul zur Verwaltung von einfach ver¬ 
ketteten Listen (s. Kapitel]^. Da die Prozeduren in ihrer Funktion und 
Aufruf mit denen von BiLists übereinstimmen, wird hier auf eine Bes¬ 
chreibung verzichtet und auf das vorhergehende Modul verwiesen. Alle 
Elemente, die eingefügt werden sollen, müssen Nachfolger des Typs Node 


sein. 
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7.21.3 SortedBiLists 

Hierbei handelt es sich wiederum um eine doppelt verkettete Liste, je¬ 
doch mit der zusätzlichen Eigenschaft, daß sie immer sortiert ist. Dies 
wird dadurch erzielt, daß jeder Knoten, der neu eingefügt wird, gleich 
richtig einsortiert wird. Auf diese Liste können alle Funktionen aus 
BiLists angewendet werderj^ Des weiteren bietet das Modul folgende 
Funktionen an: 

PROCEDURE Init(VAR 1 : BiList;greater : Relation); 

Funktion: Initialisiert die Liste. Muß aufgerufen werden, bevor das 
erste Element eingehängt werden kann. 

Parameter: 

1 ^ Liste, die initialisiert werden soll. 

greater Relationsprozedur, die angibt, welches von zwei 

übergebenen Elementen das größere ist. 


PROCEDURE Insert(VAR 1 : BiList;n : BiNodePtr); 

Funktion: Fügt ein Element in die Liste ein. Da es einsortiert wird, ist 
eine Positionsangabe nicht nötig. 

Parameter: 

1 Liste, in die eine Element eingefügt werden soll, 

n Knoten, der eingefügt werden soll. 


^^Interesant ist hierbei, daß dieses generische Modul selbst durch 
Ausprägung eines anderen generischen Moduls realisiert wurde. 
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PROCEDURE Mix(VAR dest,arg : BiList); 

Funktion: Mischt zwei Listen zu einer neuen zusammen. Die Ordnung 
bleibt dabei erhalten. 

Parameter: 

dest Liste, in die die andere eingefügt werden soll. 

arg Liste, die eingefügt werden soll und danach leer 

ist. 

Load und Save siehe BiLists. 


7.21.4 TextLists 


TextLists verwalten sortierte Listen von Strings. Dieses Modul erbt 
alle Funktionen von SortedBiLists, Beschreibung siehe dort. Für die 
bei der Initialisierung einer solchen Liste notwendige Vergleichsproze¬ 
dur werden gleich zwei Prozeduren CmpStrings (vergleicht zwei Strings, 


Groß/Kleinschreibung wird dabei beachtet 


und 


CmpStringsCaps (Vergleich ohne Berücksichtigung der Groß/Kleinschrei¬ 
bung) mit geliefert. Man kann also einfach schreiben: 


InitCMyList,CmpStrings); 


Sicher ist Ihnen bei der Definition des Typs TextNode neben name der 
Eintrag special aufgefallen. Er bewirkt, daß innerhalb der Elemente, 
bei denen special=TRUE eine eigene Sortierung stattfindet. Ein Beispiel 
folgt später. 


gilt die Reihenfolge des ASCII-Zeichensatzes 
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7.21.5 CursorLists 

Dies sind Listen, in denen die Elemente nicht direkt miteinander ver¬ 
kettet sind, sondern durch Zeiger einer anderen Liste erreicht werden. 
Eine Cursorliste ist eine doppelt verkettete Liste von Knoten, die jeweils 
einen Zeiger auf ein Element der Liste enthalten. Der Vorteil ist, daß 
in einer derartigen Liste beliebige Elemente verwendet werden können 
(also nicht nur Nachfolger eines Knotentyps) und ein Element auch in 
mehreren Listen erscheinen kann. Der Nachteil ist, daß man kaum vom 
Listenelement auf den zugehörigen Knoten schließen kann, was Listeno¬ 
perationen erschwert. Die Lösung des Problems besteht darin, daß die 
Liste einen Cursor enthält, der auf den Knoten des aktiven Elements 
zeigt. Listenoperationen werden immer relativ zu diesem Cursor vorge¬ 
nommen, der mit Hilfe mehrerer Prozeduren verschoben werden kann. 


Exceptions 

NoCursor Der Cursor zeigt auf kein Element der Liste. 

NotFound Das gewünschte Element ist nicht in der Liste. Danach zeigt 
der Cursor nach NIL, also auf kein Element der Liste. 

Da die Prozeduren den zuvor beschriebenen sehr ähnlich sind, wird auf 
eine Beschreibung der einzelnen Parameter verziehet. 

PROCEDURE InitCVAR 1 : List); 

Funktion: Initialisiert die Liste. Muß ausgeführt werden, bevor die 
Liste verwendet werden kann. 

PROCEDURE GetCVAR 1 : List):type; 

Funktion: Liefert das aktuelle Listenelement (nicht den Knoten), d. h. 
das Element, auf das der Cursor gerade zeigt. 

PROCEDURE InsertTopCVAR 1 : List;t : type); 

Funktion: Eügt ein Element als erstes in die Liste ein. 
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PROCEDURE InsertBottomCVAR 1 : List;t : type); 
Funktion: Fügt ein Element als letztes in die Liste ein. 


PROCEDURE InsertBefore (VAR 1 : List;t : type); 
Funktion: Fügt ein Element vor dem Cnrsor ein. 

PROCEDURE InsertAfter (VAR 1 : List;t : type); 
Funktion: Fügt ein Element nach dem Cnrsor ein. 


PROCEDURE RemoveFirst (VAR 1 : List):type; 

Funktion: Entfernt das erste Element aus der Liste, gibt es aber nicht 
frei. 


PROCEDURE RemoveLast (VAR 1 : List):type; 

Funktion: Entfernt das letzte Element aus der Liste, gibt es aber nicht 
frei. 


PROCEDURE RemoveAct (VAR 1 : List):type; 

Funktion: Entfernt das aktuelle Element aus der Liste, d. h. das Ele¬ 
ment, auf das der Cursor zeigt. 


PROCEDURE Remove(VAR 1 : List;t : type); 

Funktion: Entfernt ein angegebenes Element aus der Liste. Diese Rou¬ 
tinen benötigt mehr Zeit als die anderen, da es den Knoten des Elements 
erst suchen muß. 


PROCEDURE Remove_IF(VAR 1 : List;if : Check); 

Funktion: Entfernt alle Elemente aus der Liste, für die eine Bedingung 
erfüllt ist. 
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PROCEDURE Remove_All(VAR 1 : List); 
Funktion: Entfernt alle Elemente aus der Liste. 


PROCEDURE DeleteFirst (VAR 1 : List); 
PROCEDURE DeleteLast (VAR 1 : List); 

PROCEDURE Delete(VAR 1 : List;t : type); 
PROCEDURE DeleteAct(VAR 1 : List); 

PROCEDURE Delete_IF(VAR 1 : List;if : Check); 
PROCEDURE Delete_All(VAR 1 : List); 


Funktion: Wie die entsprechenden Remove-Prozeduren, jedoch werden 
hier die einzelnen Elemente durch Dispose freigegeben. Achtung: Kann 
nur verwendet werden, wenn die einzelnen Elemente nur aus Speicher 
bestehen, also keine Zeiger auf andere Objekte enthalten. Außerdem 
darf ein Element erst dann freigegeben werden, wenn es in keiner anderen 
Liste mehr hängt. 


PROCEDURE Destruct_IF(VAR 1 : List; 

if : Check; 

des : Destructor); 

PROCEDURE Destruct_All(VAR 1 : List;des : Destructor); 

Funktion: Wie die entsprechenden Delete-Prozeduren, nur werden die 
Elemente durch eine Destructor-Prozedur vernichtet. Dabei ist auch 
darauf zu achten, daß die Elemente nicht mehr in einer anderen Liste 
enthalten sind. 


PROCEDURE Apply(VAR 1 : List;proc : ApplyProc); 

Funktion: Für jedes Element der Liste wird eine übergebene Prozedur 
aufgerufen. 


PROCEDURE Sort(VAR 1 : List;greater : Relation); 
Funktion: Sortiert die Liste anhand einer Ordnungsrelation. 


PROCEDURE Append(VAR dest,arg : List); 

Funktion: Hängt eine Liste an eine andere an. arg ist danach leer. 
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PROCEDURE DupCVAR dest,arg : List); 

Funktion: Erzeugt eine Kopie einer Liste. Dabei werden jedoch nicht 
die Elemente kopiert, sondern man erhält eine zweite Liste, deren Knoten 
auf dasselbe Elemente zeigen. Die Kopie finden Sie danach in dest. 

PROCEDURE Find (VAR 1 : List;equal : Check); 

Funktion: Sucht das erste Element in einer Liste, für die eine angege¬ 
bene Bedingung erfüllt ist. 

PROCEDURE FindNext(VAR 1 : List;equal : Check); 

Funktion: Sucht das nächste Element (ab der Cursorposition), für das 
eine Bedingung erfüllt ist. 


PROCEDURE MarkCVAR 1 : List); 

Funktion: Markiert den aktuellen Knoten. 

PROCEDURE GoMarkCVAR 1 : List); 

Funktion: Setzt den Cursor auf den zuletzt markierten Knoten. 


PROCEDURE NextCVAR 1 : List); 

Funktion: Bewegt den Cursor ein Element weiter. 

PROCEDURE PrevCVAR 1 : List); 

Funktion: Bewegt den Cursor ein Element zurück. 


PROCEDURE First (VAR 1 : List); 

Funktion: Setzt den Cursor auf das erste Element der Liste. 


PROCEDURE Last (VAR 1 : List); 

Funktion: Setzt den Cursor auf das letzte Element der Liste. 
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PROCEDURE n_th(VAR 1 : List; n : INTEGER); 

Funktion: Setzt den Cursor auf das n-te Element der Liste. 

PROCEDURE Go (VAR 1 : List;t : type); 

Funktion: Bewegt den Cursor auf ein angegebenes Element, d. h. auf 
den Knoten, der auf das übergebene Element zeigt. 

PROCEDURE HasCursorCVAR 1 : List):BOOLEAN; 

Funktion: Liefert TRUE, wenn der Cursor auf ein Element der Liste 
zeigt. Bei einer Suchaktion kann es nämlich passieren, daß bei Nichtfin- 
den der Cursor nach NIL zeigt. 

PROCEDURE Save(VAR I : List;f : File;part : SaveProc); 
Funktion: Sichert eine Liste in ein File. 

PROCEDURE Load(VAR I : List;f : File;part : LoadProc); 
Funktion: Liest eine Liste aus einem File. 

PROCEDURE GarbageCoIIect; 

Funktion: Die Knoten der Listen werden nach Benutzung nicht sofort 
freigegeben, sondern für andere Knoten weiterverwendet. Mit dieser 
Routine können die Knoten, die auf Weiterverwendung warten, freige¬ 
geben werden. 
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Nun noch ein Beispiel zur Verwendung einer TextListe: 


MODULE TextListTest; 

FROM InOut IMPORT WriteGrp,ReadGrp; 

FROM Lists IMPORT TextLists; 

FROM Resources IMPORT New,Dispose; 

TYPE 

ChildPtr = POINTER TO Child; 

I Es folgt die Ausprägung 

DEFINITION MODULE ChildrenLists = TextLists(ChildPtr); 
TYPE 

Child = RECORD OF ChildrenLists.TextNode 
age : INTEGER; 

END; 

VAR 

ChildrenList : ChildrenLists.TextList; 

TempStr : CLASSPTR TO STRING; 

ActChild : ChildPtr; 

done : BOOLEAN:=FALSE; 

PROCEDURE WriteChildrenCchild : ChildPtr); 

BEGIN 

WriteStringCchild.name'') ;WriteLn; 

Writeint(child.age);WriteLn; 

IF Child.special THEN 
WriteStringC"Mädchen"); 

ELSE 

WriteStringC Junge") ; 

END; 

WriteLn;WriteLn; 

END WriteChildren; 

PROCEDURE Destruct(child : ChildPtr); 

BEGIN 

Dispose(child.name); 

Dispose(child); 

END Destruct; 

BEGIN 

ChildrenList.Init(ChildrenLists.CmpStringsCaps); 
REPEAT 

TempStrDRANGE:=20; 

New(TempStr); 

WriteString("Namen: "); 
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ReadStringCTempStr'') ; 

IF TempStr''. len#0 THEN 
New(ActChild); 

ActChild.name:=TempStr; 

WriteStringC"Alter: "); 

Readlnt(ActChild.age); 

WriteStringC"Mädchen ? "); 

ActChild.special:=ReadBool(); 

ChildrenList.Insert(ActChild); 

ELSE 

done:=TRUE; 

Dispose(TempStr); 

END 

UNTIL done; 

WriteLn; 

ChildrenList.Apply(WriteChildren); 

I Die nachfolgende Destructanweisung könnte auch entfallen, 

I da das Laufzeitsystem am Programmende allen Speicher wieder 
I freigibt. Wie es geht soll aber trotzdem hier gezeigt werden, 
I angenommen das Programm ginge hier noch weiter. 

I Delete_All hätte man nicht verwenden können, da sonst bis zum 
I Programmende der Speicher, der von den Namen belegt ist, 

I verloren wäre. 

ChildrenList.Destruct_All(Destruct); 

END TextListTest. 
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7.22 LongSets 

DEFINITION MODULE LongSets; 

FROM System IMPORT LONGSET; 

TYPE 

LongSet = ARRAY OF LONGSET; 

LSetPtr = CLASSPTR TO LongSet; 

PROCEDURE CreateSetCVAR set : LSetPtr;len : INTEGER); 
$$0wnHeap:=TRUE 

PROCEDURE Unite(REF sl,s2 : LongSet):LongSet; 
$$0wnHeap:=TRUE 

PROCEDURE Intersect (REF sl,s2 : LongSet):LongSet; 

PROCEDURE isln(i : INTEGER;REF s : LongSet):B00LEAN; 
PROCEDURE isEmptyCREF s : LongSet):BOOLEAN; 

PROCEDURE isPartOfCREF sl,s2 : LongSet):BOOLEAN; 
PROCEDURE Include (VAR s : LongSet;i : INTEGER); 
PROCEDURE Exclude (VAR s : LongSet;i : INTEGER); 

$$0wnHeap:=TRUE 

PROCEDURE LConst(REF a : ARRAY OF INTEGER):LongSet; 

$$0wnHeap:=TRUE 
PROCEDURE EmptyO : LongSet; 

END LongSets. 


Normale Sets können bekanntlich maximal 32 Elemente enthalten. Dieses 
Modul dient nun dazu, fast beliebig lange Sets von INTEGER- Zahlen zu 
verwalten. Ein solches Set kann man entweder als Variable mit fester 
Länge oder dynamisch erzeugen. Auf die einzelnen Elemente kann man 
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jedoch nicht direkt zugreifen, sondern muß die in diesem Modul enthal¬ 
tenen Prozeduren verwenden. 

PROCEDURE CreateSet (VAR set : LSetPtr;len : INTEGER); 

Funktion: Erzeugt ein Set. 

Parameter: 

set ^ Zeiger auf das neue Set. 

len ^ Länge des Sets. 

$$0wnHeap:=TRUE 

PROCEDURE Unite(VAR sl,s2 : LongSet):LongSet; 

Funktion: Bildet die Vereinigungsmenge zweier Mengen. 

Parameter: 

sl,s2 Mengen, die vereinigt werden sollen. 

=> Vereinigungsmenge. 

$$0wnHeap:=TRUE 

PROCEDURE Intersect (VAR sl,s2 : LongSet):LongSet; 

Funktion: Bildet die Schnittmenge zweier Mengen. 

Parameter: 

sl,s2 Mengen, die geschnitten werden sollen. 

=> Schnittmenge. 
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PROCEDURE isln(i : INTEGER;VAR s : LongSet):BOOLEAN; 

Funktion: Prüft, ob ein Element in der Menge enthalten ist. 

Parameter: 

i ^ Nnmmer des Elements, das geprüft werden soll, 

s Set, das überprüft werden soll. 

PROCEDURE isEmptyCREF s : LongSet):BOOLEAN; 

Funktion: Prüft, ob eine Menge leer ist. 

Parameter: 

s Menge, due gerpüft werden soll. 

^ TRUE wenn sie leer ist. 

PROCEDURE isPartOfCREF sl,s2 : LongSet):BOOLEAN; 

Funktion: Prüft, ob eine Menge Teilmenge einer anderen ist. 

Parameter: 

tt sl,s2 Prüft, ob sl Teilmenge von s2 ist. 

^ TRUE, wenn sl Teilmenge ist. 

PROCEDURE Include (VAR s : LongSet;i : INTEGER); 

Funktion: Fügt ein Element in eine Menge ein. 

Parameter: 

s Set, in das das Element eingefügt werden soll. 

i Nnmmer des Elements, das eingefügt werden 

soll. 
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PROCEDURE ExcludeCVAR s : LongSet;i : INTEGER); 

Funktion: Entfernt ein Element ans einer Menge. 

Parameter: 

s Set, aus dem das Element entfernt werden soll, 

i Nummer des Elements, das entfernt werden soll. 

$$0wnHeap:=TRUE 

PROCEDURE LConst (REF a : ARRAY OF INTEGER):LongSet; 

Funktion: Erzeugt eine Menge, in der alle Mengenelemente enthalten 
sind, deren Nummer in einem der Arrayelemente enthalten ist, welches 
übergeben wird. 

Parameter: 

a Eeld mit den Element nummern, welche gesetzt 

werden sollen. 

Menge mit diesen Elementen. 

$$0wnHeap:=TRUE 
PROCEDURE Empty():LongSet; 

Funktion: Liefert eine leere Menge. 

Parameter: 

=> Leere Menge. 
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7.23 MStr 

Dieses Modul stellt die Funktionen zur Bearbeitung von Modula 2-Strings 
zur Verfügung. Man sollte es nur im Modula 2 Modus verwenden. Eine 
nähere Beschreibung der Prozeduren kann hier entfallen, da sie identisch 
mit denen des Moduls Str sind. 

DEFINITION MODULE MStr; 

(* $A- *) 

FROM System IMPORT Regs; 

TYPE 

Equation = (smaller,equal,greater); 

CapsArr = ARRAY CHAR OF CHAR; 

CONST 

CAP = CapsArr; 

VAR 

done : BOOLEAN; 


PROCEDURE CapsStringCVAR Str IN AO : ARRAY OF CHAR); 


PROCEDURE EquaKREF Strl IN AO, 

Str2 IN Al : ARRAY OF CHAR): BOOLEAN; 


PROCEDURE CapsEquaKREF Strl IN AO, 

Str2 IN Al : ARRAY OF CHAR):BOOLEAN; 


PROCEDURE GreaterCREF Strl IN AO, 

Str2 IN Al : ARRAY OF CHAR):BOOLEAN; 


PROCEDURE CompareCREF Strl IN AO, 

Str2 IN Al : ARRAY OF CHAR):Equation; 
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PROCEDURE SegCREF Str IN AO 

pos IN D2, 

len IN D3 

VAR Segment IN Al 


ARRAY OF CHAR; 

INTEGER; 

ARRAY OF CHAR); 


PROCEDURE First (REF Str IN AO : ARRAY OF CHAR; 

Ch IN D2 : CHAR):INTEGER; 


PROCEDURE Last (REF Str IN AO : ARRAY OF CHAR; 

Ch IN D2 : CHAR):INTEGER; 


PROCEDURE SearchCREF Find,In: ARRAY OF CHAR):INTEGER; 


PROCEDURE Insert (VAR Dest 

REF Source 
pos 

PROCEDURE RepIace(REF Str 

VAR Into 
pos 


PROCEDURE DeIete(VAR Str IN 

pos IN 
len IN 


PROCEDURE Concat(VAR Dest 

REF Source 


PROCEDURE Length(REF Str IN 
END MStr. 


ARRAY OF CHAR; 
ARRAY OF CHAR; 
INTEGER); 


ARRAY OF CHAR; 
ARRAY OF CHAR; 
INTEGER); 


AO : ARRAY OF CHAR; 
D2, 

D3 : INTEGER); 


IN AO : ARRAY OF CHAR; 
IN Al : ARRAY OF CHAR); 


AO : ARRAY OF CHAR):INTEGER; 
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7.24 PatternMatcher 

Mit diesem Modul können Sie prüfen, ob ein String einem Dos-Patterij^ 
entspricht. Es verarbeitet in etwa die Namensmuster von OS 1.3, im ein¬ 
zelnen „#?“, „#“, „?“, „( I)“ und Für höhere Ambitionen benutzen 
Sie bitte die erweiterten Pattern von Dos unter OS 2.0. Zahlreiche An¬ 
wendungsbeispiele für PatternMatcher finden Sie auch im Implementa¬ 
tionsteil des Moduls DosSupport. 

DEFINITION MODULE PatternMatcher; 

EXCEPTION 

BadPattern : "Bad pattem"; 

TYPE 

Pattern = HIDDEN; 

PROCEDURE FreePatternCVAR pat : Pattern); 

PROCEDURE CreatePatternCREF str : STRING; 

VAR pat : Pattern); 

PROCEDURE Matches (REF s : STRING; 

pat : Pattern):B00LEAN; 

END PatternMatcher. 


PROCEDURE FreePatternCVAR pat : Pattern); 

Funktion: Gibt ein Pattern wieder frei. 

Parameter: 

pat Pattern, das freigegeben werden soll. Es darf 

danach nicht mehr verwendet werden. 

Allen, die mit diesem Begriff nichts anfangen können, können nähere 
Informationen dem Benutzerhandbuch entnehmen. 
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PROCEDURE CreatePatternCREF str : STRING; 

VAR pat : Pattern); 

Funktion: Erzeugt aus einem Patternstring ein Pattern. Dies bes¬ 
chleunigt später die Vergleiche enorm, da nicht vor jedem Vergleich der 
Patternstring geparst werden muß. Wird es nicht mehr gebraucht, sollte 
man es mittels FreePattern wieder freigeben. 

Parameter: 

str String, der das Pattern enthält. 

pat => Erzeugtes Pattern. Dieses kann nun zu Verglei¬ 

chen verwendet werden. 

PROCEDURE Matches (REF s : STRING; 

pat : Pattern):BOOLEAN; 

Funktion: Prüft, ob ein Clusterstring einem Pattern entspricht. 

Parameter: 

s String, der geprüft werden soll. 

pat Pattern, mit dem verglichen werden soll. 

^ TRUE, wenn der Sring dem Pattern entspricht. 
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7.25 Profiler 


Mittels diesem Modul kann zu Optimierungszwecken festgestellt werden, 
wieviel Zeit zwischen zwei Punkten im Programm vergeht. Dabei wird, 
in Mikrosekunden gemessen, die maximale, die minimale Zeit und die 
Durchschnittszeit festgehalten. Außerdem wird die Zahl der Durchläufe, 
für rekursive Prozeduren die Schachtelungstiefe, sowie die momentane 
Stackposition ausgegeben. 

DEFINITION MODULE Profiler; 

TYPE 

Profile = HIDDEN; 


PROCEDURE CreateProfileCREF Name : STRING):Profile; 
PROCEDURE DestructProfile(p : Profile); 

PROCEDURE PStartCp : Profile); 

PROCEDURE PEndCp : Profile); 

PROCEDURE WriteProfileCp : Profile); 

PROCEDURE WriteProfiles; 


PROCEDURE ResetProfiler; 

PROCEDURE ClearProfiles; 

GROUP 

All = CreateProfiIe,DestructProfiIe,PStart,PEnd,WriteProfile, 
WriteProfiles,ResetProfiler,ClearProfiles; 

END Profiler. 


Dabei wird die Zeit immer in bestimmten Meßbereichen gemessen. Be¬ 
vor man einen solchen Meßbereich verwenden kann, muß man diesen 
definieren: 
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PROCEDURE CreateProfileCREF Name : STRING):Profile; 

Funktion: Erzeugt eine Meßbereichsmarke. 

Parameter: 

Name 4= Name des Meßbereichs, damit man ihn bei der 

Ausgabe wiedererkennt. 

=> Meßbereichsmarke. 

PROCEDURE DestructProfile(p : Profile); 

Funktion: Gibt eine Meßbereichsmarke wieder frei. 

Parameter: 

p Marke, die freigeben werden soll. Sie darf danach 

nicht mehr verwendet werden. 

PROCEDURE PStartCp : Profile); 

Funktion: Setzt den Anfang eines Meßbereiches. 

Parameter: 

p Marke, der dieser Bereich zugeordnet werden 

soll. 

PROCEDURE PEndCp : Profile); 

Funktion: Setzt das Ende eines Meßbereiches. 

Parameter: 

p Marke des Bereichs, der hier beendet werden soll. 

PROCEDURE WriteProfileCp : Profile); 

Funktion: Gibt die Daten eines Meßbereiches auf die Standard-Ausgabe 
aus. 

Parameter: 

p ^ Marke des Bereiches, dessen Daten ausgegeben 

werden sollen. 
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PROCEDURE WriteProfiles; 

Funktion: Gibt die Daten aller Meßbereiche aus. 

PROCEDURE ResetProfiler; 

Funktion: Setzt die Datenfelder aller Meßbereiche auf Null zurück. 


PROCEDURE ClearProfiles; 

Funktion: Gibt alle Meßmarken wieder frei. Danach darf nicht mehr 
darauf zugegriffen werden, es sei denn, man definiert neue Marken. 
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7.26 Random 

In diesem Modul finden Sie Prozeduren zur Erzeugung verschiedener 
Zufallswerte. Die Initialisierung geschieht auf Basis verschiedener in¬ 
terner Registerwerte, während nachfolgende Zufallszahlen algorithmisch 
erzeugt werden. 


DEFINITION MODULE Random; 

PROCEDURE Randomize; 

PROCEDURE RealRND():LONGREAL; 

PROCEDURE RNDCMax IN 2 : LONGCARD):L0NGCARD; 

PROCEDURE BooIRNDO:B00LEAN; 


GROUP 

All = Randomize,RealRND,RNDjBooIRND; 
END Random. 


PROCEDURE Randomize; 

Funktion: Mischt den Zufallsgenerator neu, wie es auch beim Pro¬ 
grammstart geschieht. 

PROCEDURE RealRND0:LONGREAL; 

Funktion: Gibt eine zufällige REAL-Zahl x zurück, wobei 0 < x < 1 
gilt. 

Parameter: 

=> Zufällige REAL-Zahl. 
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PROCEDURE RNDCMax IN 2 : LONGCARD):LONGCARD; 

Funktion: Gibt eine zufällige LONGCARD-Zahl n zurück, wobei 0 < n < 
Max gilt. 

Parameter: 

Max ^ Maximal mögliche Zufallszahl. 

^ Zufallszahl von Null bis Max-1. 

PROCEDURE BoolRNDO :B00LEAN; 

Funktion: Liefert einen zufälligen Boolwert. 

Parameter: 

^ Zufälliger Boolwert. 
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7.27 Resources 


DEFINITION MODULE Resources; 
TYPE 

ClassPtr = HIDDEN; 
ContextPtr = HIDDEN; 


I Achtung !!!!! 

I Diese Prozeduren dürfen nur vom Compiler benutzt werden, sie 
I müssen an dieser Stelle im Quelltext stehen. 

PROCEDURE NewContext; 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


OldContext; 

AllocObj (dass : ClassPtr; 

context : ContextPtr):ANYPTR; 

FreeObjCobj : ANYPTR); 

CloneObj(obj : ANYPTR;context : ContextPtr):ANYPTR; 
ChangeObjContext(obj : ANYPTR;context : ContextPtr); 


FROM System IMPORT PROC; 

FROM Exec IMPORT MemReqs, MemReqSet; 

CONST 

NoContext = NIL;|CAST(ContextPtr,NIL); 

DEFINITION MODULE ResHandles(ResHandlePtr : POINTER TO ResHandle) 
TYPE 

ResourcePtr = HIDDEN; 

ResHandle = RECORD END; 

Destructor = PROCEDURE(res : ResHandlePtr); 
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PROCEDURE AddResource(res : ResHandlePtr; 

destruct : Destructor; 
context : ContextPtr:=NIL); 


PROCEDURE RemResource(res : ResHandlePtr); 


PROCEDURE FreeResource(VAR res : ResHandlePtr); 


PROCEDURE lsResource(res : ResHandlePtr):B00LEAN; 


(* PRIVAT !!! *) 

PROCEDURE FreeResources(res : ResourcePtr); 


END ResHandles; 


EXCEPTION 

NotEnoughMemory 

MemoryNotAllocated 

NILDisposed 

ResourceFreedTwice 

ContexFreedTwice 

NoOldContext 

ActContextFreed 

ResourceNotAllocated 

NilResource 


Not enough memory"; 

Memory not allocated"; 
Disposed a NIL-Pointer"; 
Resource freed twice"; 
Context freed twice"; 

No old context accessable"; 
Actcontext freed"; 

Resource not allocated"; 
Passed ResourcePtr is NIL"; 


VAR 

ActContext : ContextPtr; 

PROCEDURE Allocate(VAR p 

size 
clear, 

Chip 

mem 

context 


: ANYPTR; 

: LONGINT; 

: BOOLEAN := FALSE; 

: MemReqSet := MemReqSet:{}; 
: ContextPtr := NoContext ); 


PROCEDURE New( VAR p 

clear, 

Chip 

mem 

context 


ANYPTR; 

BOOLEAN := FALSE; 

MemReqSet := MemReqSet:{}; 
ContextPtr:=NoContext ); 


PROCEDURE Dispose( VAR p : ANYPTR ); 
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PROCEDURE DisposeAlK context : ContextPtr := NoContext ); 

PROCEDURE AvaiK max, 

Chip : BOOLEAN := FALSE; 

mem : MemReqSet := MemReqSet:{} ): LONGINT; 

PROCEDURE 

Create_Context(father : ContextPtr:=NoContext):ContextPtr; 

PROCEDURE CreateJRoot0:ContextPtr; 

PROCEDURE Delete_Context (VAR context : ContextPtr); 

END Resources. 


Diese Modul bietet Prozeduren zur Resourcenverwaltung, insbesondere 
von Speicher. Es gliedert sich dabei in drei Teile: 

• ResHandles : Ein generisches Modul zur Verwaltung beliebiger 
ResourceiJ^ 

• Routinen zur Allozierung und Ereigabe von Speicher. 

• Routinen zur Erzeugung und Ereigabe von Kontexten. 


^^Unter einer Resource versteht man jede Art von Betriebsmittel, daß ein 
Programm vom Betriebsystem anfordern kann, z. B. Speicher, Files, Fenster, 
Screens, etc. 
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7.27.1 Resourcenverwaltung 


Zur Verwaltung von Resourcen existiert das generische Modul ResHandles. 
Unter Verwaltung versteht man hierbei, daß man die Resource einem 
KontexU'^ zuordnen kann, und diese dann mit dem Kontext freigeben. 


bzw. daß die Resource am Programmende automatisch wieder freigege¬ 
ben wird; man sagt auch, die Resource wird getrackt, oder man spricht 
von Resourcetracking. Voraussetzung, daß man eine Resource mit die¬ 
sem Modul verwenden kann, ist daß die Resource ein Nachfolger des ge¬ 
nerischen Typen ResHandle ist. Die meisten wichtigen Strukturen des 
Betriebssystems sind als Nachfolger von ResHandle definiert. Da dieser 
Typ selbst keine Elemete enthält, verschiebt er auch nicht die Positionen 
der einzelnen Elemente der Nachfolgetypen. Er dient lediglich dazu, daß 
die Typsicherheit bei den verschiedenartigen Elementen, die eingehäng 
werden, gewähleistet ist. 

Es stehen folgende Prozeduren zur Verfügung: 


TYPE 

Destructor = PR0CEDURE(res : ResHandlePtr); 

PROCEDURE AddResource(res : ResHandlePtr; 

destruct : Destructor; 

context : ContextPtr:=N1L); 

Funktion: Eügt einen Nachfolger von ResHandle als Resource in einen 

Kontext ein. 


^'^Das Kontextsystem wird weiter unten noch genauer erklärt. 









210 


KAPITEL 7. STANDARDMODULE 


Zeiger auf die Resource, die eingehängt werden 
soll. 

^ Da es sich bei der Resource um die verschie¬ 
densten Dinge handeln kann, kann das Modul 
nicht wissen, wie diese freizugeben ist. Daher 
muß hier eine Freigabeprozedur übergeben wer¬ 
den, die den entsprechenden Typen übergeben 
bekommt, und die Resource freigibt. 

Kontext, dem diese Resource zugeordnet werden 
soll. Wird dieser Parameter nicht, oder hier NIL 
übergeben, wird die Resource in den aktuellen 
Kontext (s. u.) eingehängt. 

PROCEDURE RemResource(res : ResHandlePtr); 

Funktion: Entfernt eine Resource wieder aus dem Kontext, in den sie 
eingefügt worden ist. Sie wird dann auch nicht mehr automatisch am 
Schluß freigegeben. 

Parameter: 

res Zeiger auf die Resource, die entfernt werden soll. 

PROCEDURE FreeResource(VAR res : ResHandlePtr); 

Funktion: Gibt eine Resource frei, indem sie die bei AddResource 
übergebene Freigabeprozedur aufruft. 

Parameter: 

res Zeiger auf die Resource, die freigegeben werden 

soll. 


Parameter: 

res 

destruct 


context 
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PROCEDURE IsResource(res : ResHandlePtr):B00LEAN; 

Funktion: Prüft, ob eine Resource bereits getrackt wird. 

Parameter: 

res ^ Zeiger auf die Resource, die geprüft werden soll. 

^ TRUE wenn die Resource bereits in einem Kontext 
hängt. 

Exceptions: 

NotEnoughMemory Es wurde versucht mehr Speicher anzufordern, 
als freier vorhanden war. 

MemoryNotAllocated Es wurde versucht Speicher mit Dispose frei¬ 
zugeben, der nicht mit Resources alloziert wurde. 

NILDisposed Es wurde versucht einen NIL-Pointer, d. h. ein nicht vo¬ 
rhandenes Speicherstück, freizugeben. 

ResourceFreedTwice Es wurde versucht eine Resource freizugeben 
oder zu entfernen, die schon freigegeben wurde. 

ContexFreedTwice Es wurde versucht einen Kontext freizugeben, der 
schon freigegeben wurde. 

NoOldContext Nach einem TRACK. . .END kann der Vorgängerkontext 
nicht gefunden werden. Dies kann nur dadurch verursacht wer¬ 
den, daß jemand von Hand an den Kontexten gespielt hat, was 
man nicht tun sollte, oder daß irgendjemand über den eigenen 
Speicherbereich hinausgeschrieben und dabei die Kontextstruktur 
vernichtet hat. 

ActContextFreed Es wurde versucht den aktuellen Kontext freizuge¬ 
ben. Dies ist untersagt, und darf nur vom Laufzeitsystem vorge¬ 
nommen werden. 

ResourceNotAllocated Es wurde versucht eine Resource freizugeben 
oder zu entfernen, die nicht mit AddResource in einem Kontext 
eingehängt wurde. 
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NilResource RemResource oder FreeResource wurde ein Zeiger übergeben, 
der auf NIL zeigte. 

Ein Beispiel für die Verwendung von ResHandles finden Sie im Modul 
Intuition und T_Intuition, in denen unter anderen der Typ Window 
getrackt wird - wie jeder weiß, ein Fenster muß spätestens am Program¬ 
mende wieder geschlossen werden. Sehen wir uns zunächst einmal die 
Definition des Typs WindowPtr aus Intuition an: 

TYPE 

WindowPtr = POINTER TO Window; 

DEFINITION MODULE WinRes = Resources.ResHandles(WindowPtr); 


TYPE 

Window = RECORD OF WinRes.ResHandle 


nextWindow 

WindowPtr; 

leftEdge 

INTEGER; 

topEdge 

INTEGER; 

width 

INTEGER; 

height 

INTEGER; 

mouseY 

INTEGER; 

mouseX 

INTEGER; 

minWidth 

INTEGER; 


END 


Sie sehen, Window ist ein Nachfolger von ResHandle. Nun ein Ausschnitt 
aus der Definition der getrackten Offnungs- und Schließprozeduren aus 
dem Modul T_Intuition: 


I Dies ist die Freigabeprozedur, die bei 
I AddResource mit übergeben wird. 
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PROCEDURE KillWindow(w : WindowPtr); 
BEGIN 

In.CloseWindow(w); 

END KillWindow; 


PROCEDURE OpenWindowC REF newWindow : NewWindow; 

context : ContextPtr ): WindowPtr; 

VAR 

w : WindowPtr; 

BEGIN 

w:=In.OpenWindowC newWindow ); | Fenster öffnen 

ASSERTC w#NIL, WindowNotOpen );| Test obs geklappt hat 

I Einhängen in den Kontext: 
w.AddResourceC KillWindow , context ); 

RETURN w 
END OpenWindow; 

PROCEDURE CIoseWindowCVAR window : WindowPtr); 

BEGIN 

window.FreeResource; 

I Hierbei wird dann KillWindow aufgerufen 
END CloseWindow; 


Nun sollte die Verwendung des Moduls ResHandles um einiges klarer 
sein. Selbstverständlich können Sie damit auch beliebige eigene Kon- 
truktionen in Kontexte einhängen, sofern es dafür noch kein Modul gibt. 
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7.27.2 Speicherverwaltung 

Im Prinzip könnte man den Speicher mit AllocMem aus Exec allozie- 
ren, und dann mit AddResource in das ResourceSystem eingliedern. Da 
Speicher jedoch generell mit FreeMem freigegeben wird, wäre dies ein 
unnötiger Aufwand. Daher bietet Resources eigene Prozeduren zur 
Speicherverwaltung an, die sich um die Kontexte kümmern, und am 
Programmende allen allozierten Speicher wieder freigeben: 


PROCEDURE AllocateCVAR p 

size 
clear, 

Chip 

mem 

context 


: ANYPTR; 

: LONGINT; 

: BOOLEAN := FALSE; 

: MemReqSet := MemReqSet:{}; 
: ContextPtr := NoContext ); 


Funktion: Alloziert ein Speicherstück bestimmter Länge. Die Parame¬ 
ter Chip und clear existieren lediglich noch aus Kompatibilitätsgründen, 
wenn in mem etwas anderes als „{}“ übergeben wird, werden diese Flags 
nicht mehr beachtet. 

Parameter: 


p 


Zeiger, der nach dem Aufruf auf das allozierte 
Speicherstück zeigt. 

size 


Gewünschte Länge. 

clear 


Falls TRUE, wird das Speicherstück erst gelöscht. 
Sollte man bei der allozierung von Speicher für 
Betriebssystemstrukturen verwenden. 

Chip 


Gibt an, ob das Speicherstück im Ghipmem he¬ 
gen soll. 
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mem 


Hier können die in Exec definierten Memoryfiags 

angegeben werden: 

public Speicher, der mit diesem Flag alloziert 
wird, darf nicht ausgelagert werden. Man 
sollte daher nur Strukturen damit allozie- 
ren, die immer erreichbar sein müssen wie 
z. B. Interupts, MessagePorts etc.. Alle 
anderen Strukturen sollte man nicht da¬ 
mit anforden. 

Chip Das Speicherstück wird im Chipmem allo¬ 
ziert. 

fast Das Speicherstück muß im Fastmem lie¬ 
gen, sollte man eigentlich nur in Ausnah¬ 
mefällen verwenden, da nicht alle Amigas 
Fastmem haben, und nach Möglichkeit im¬ 
mer zuerst versucht wird Fastmem zu al- 
lozieren, falls nicht ausdrücklich Chipmem 
gewünscht wird. 

local Fin solches Speicherstück ist auch noch 
nach dem Reset vorhanden. Frst ab 
Kickstart 2.0 verwendbar. 

dma24 Speicher wird innerhalb des Zorro-II 
Adressbereichs alloziert, wichtig wenn der 
Speicher von einem Zorro-II-DMA-Gerät 
erreicht werden soll, und zusätzlich Spei¬ 
cher außerhalb des 24-Bit Adressraums 
existiert. Ebenfalls erst ab Kickstart 2.0. 
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context 


clear Das Speicherstück wird gelöscht. 

largest Die Längenangabe wird nicht beachtet, 
sondern das größte, freie Stück Speicher 
belegt. Sollte man nnr machen, wenn es 
nnbedingt nötig ist, nm anderen Program¬ 
men nicht nnötigerweise Speicher vorznen- 
thalten. Setzt man dieses Flag bei Avail 
znsammen mit einem anderen Flag, wird 
die Größe des größten Speicherstücks die¬ 
sen Typs ermittelt. 

reverse Darf nnter Kickstart 2.0 noch nicht ver¬ 
wendet werde, da hier noch ein Fehler 
vorliegt, der die Maschine znm abstürzen 
bringt. 

total Kann nicht mit Allocate verwendet wer¬ 
den. Bei der Verwendnng mit Avail erhält 
man die Größe des gesamten freien Spei¬ 
chers des Systems. 

Wird eines dieser Flags übergeben, werden die 
die Parameter clear nnd chip nicht mehr 
beachtet. 

Kontext, zn dem der Speicher alloziert werden 
soll. Wird dieser Parameter nicht alloziert, was 
in den meisten Fällen der Fall sein wird, wird 
znm aktnellen Kontext alloziert. 
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PROCEDURE New( VAR p : ANYPTR; 

Chip ’ : BOOLEAN := FALSE; 

mem : MemReqSet := MemReqSet:{}; 

context : ContextPtr:=NoContext ); 

Funktion: Alloziert ebenfalls wie Allocate Speicher, jedoch muß man 
hier keine Länge übergeben, es wird immer soviel Speicher belegt, wie der 
Typ, auf den der Zeiger zeigt groß ist. Will man also genau soviel Spei¬ 
cher belegen, wie eine Struktur belegt, dann verwendet man am besten 
New mit einem getypten Pointer (also keinem ANYPTR). Die Parameter 
entsprechen im übrigen denen von Allocate. 

PROCEDURE Dispose( VAR p : ANYPTR ); 

Funktion: Gibt ein einzelnen Speicherstück wieder frei. Achtung: 
Geben Sie mit Dispose nur Speicherstücke frei, die mit Allocate oder 
New alloziert wurden, niemals solche, die direkt mit AllocMem aus Exec 
angefordert wurden. 

Parameter: 

p Zeiger auf das Speicherstück, das freigegeben 

werden soll. Der Zeiger zeigt danach auf NIL. 

PROCEDURE DisposeAlK context : ContextPtr := NoContext ); 

Funktion: Gibt allen Speicher eines Kontextes frei, wird kein Kontext 
übergeben, wird der Speicher des aktuellen Kontextes freigegeben. 

Parameter: 

context Kontext, dessen Speicher freigegeben werden 

soll. 
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PROCEDURE AvaiK max, 

Chip : BOOLEAN := FALSE; 

mem : MemReqSet := MemReqSet:{} ): LONGINT; 

Funktion: Liefert die Größe des freien Speichers. 

Parameter: 

max Falls TRUE, wird die Größe des größten freien 

Blocks zurückgegeben. 

Chip Falls TRUE, bezieht sich der Rückgabewert nur 

auf Ghipmemgröße. 

mem Auch hier können die Exec Memoryflags ange¬ 

geben werden, um die Größe einer bestimm¬ 
ten Speicherart zu ermitteln. Beschreibung 
der Flags siehe Allocate. Wird hier ein Flag 
übergeben, werden die beiden vorhergehenden 
Parameter ignoriert. 

^ Größe des freien Speichers. 

7.27.3 Kontext-Handling 

Normalerweise werden alle Allozierungen relativ zum aktuellen Kontext 
gemacht. D. h., alle Resourcen werden erst am Ende eines TRACK. . .END 
oder am Programende wieder freigegeben. Oft benötigt man jedoch 
Resourcen nur über einen bestimmten Bereich, der aber nicht mit einem 
TRACK. . . END abgegrenzt werden kann, oder man möchte innerhalb eines 
TRACK. . . END eine Resource allozieren, und diese soll nicht am Ende von 
TRACK wieder freigegeben werden. In einem solchen Eall kann man bei 
allen Allozierungsprozeduren einen optionalen Kontext übergeben, zu 
dem dann die Resource alloziert wird. Ein weiteres Beispiel wäre eine 
Liste, die in ihrem Listenkopf einen Kontext eingetragen hat, und deren 
Elemente zu diesem alloziert werden. Durch Ereigabe dieses Kontextes 
kann man alle Elemente der Liste auf einmal freigeben, ohne die Liste 
durchlaufen zu müssen. 

Bevor man einen Kontext benutzen kann, muß er erst erzeugt wer¬ 
den. Dabei wird ein Kontext immer relativ zu einem Vaterkontext er- 
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zeugt, mit der Folge, daß bei der Freigabe des Vaterkontextes auch alle 
Söhne freigegeben werden. 

PROCEDURE 

Create_Context(father : ContextPtr:=NoContext):ContextPtr; 

Funktion: Erzeugt einen neuen Kontext. 

Parameter: 

father Vaterkontext, wird dieser nicht angegeben, wird 

der aktuelle Kontext zum Vater ko ntext erklärt. 

=4> Zeiger auf den neuen Kontext. 

PROCEDURE Create_Root0:ContextPtr; 

Funktion: Erzeugt einen neuen Kontext, der selbst keinen Vater hat. 
Dieser kann wie jeder andere Kontext verwendet werden. Wichtig ist 
jedoch, da dieser Kontext nicht als Sohn im aktuellen Kontext hängt, 
wird er nicht automatisch freigegeben. Man muß ihn daher am Program¬ 
mende selbst freigeben. 

Parameter: 

^ Zeiger auf den neuen Kontext. 

PROCEDURE Delete_Context (VAR context : ContextPtr); 

Funktion: Gibt einen Kontext wieder frei. Dabei werden alle Spei¬ 
cherstücke und Resourcen, die zu diesem und seinen Söhnen alloziert 
wurden, wieder freigegeben. 

Parameter: 

context Kontext, der freigegeben werden soll. 

7.27.4 „Getrackte“ System-Module 

Um einen sicheren Umgang mit Systemresourcen zu gewährleisten, exis¬ 
tieren zu den drei wichtigsten Systemmodulen: Exec, Dos und Intuition 



220 


KAPITEL 7. STANDARDMODULE 


Module, bei denen die Freigabe der Resonrcen antomatisch geschieht, 
nnd bei denen Fehler durch Exceptions angezeigt werden. Wichtig je¬ 
doch ist, man darf niemals die Allozierungs- und Freigabeprozeduren 
von den ungetrackten und den getrackten Modulen mischen, ein Sys¬ 
temabsturz wäre die Folge. Auf die Funktionen der Prozeduren dieser 
Module wird hier nicht eingegangen, sie entsprechen denen der normalen 
Libraryfunktionen, die in einem eigene Kapitel beschrieben werden. 

7.27.4.1 T_Dos 

DEFINITION MODULE T_Dos; 

FROM Dos IMPORT actionEnd,actionNotKnown,badStreamName,beginning, 

BPTR,BSTR,CommandLinelnterface,CominandLineInterfacePtr, 
commentTooBig,copyDir,createDir,CreateProc, 
ctrlC,ctrlD,ctrIE,ctrlF,current,currentVolume,Date,DatePtr, 
DateStamp,Delay,DeleteFile,deleteObject, 
deleteProtectedjDeviceList,DeviceListPtr,DeviceListType, 
DeviceNode,DeviceNodePtr,deviceNotMounted,DeviceProc, 
die,dirNotFound,diskChange,diskFull, 

diskinfo,diskNotValidated,diskType,diskWriteProtected, 
DosBase,dosDisk,DosEnvec,DosEnvecPtr, 

Dosinfo,DosinfoPtr,DosLibrary,DosLibraryPtr, 

DosPacket,DosPacketPtr,end,error, 
event,Examine,examineNext,examineObj ect, 

LockMode,Execute,Exit,ExNext, 
fail,FileHandle jFileHandlePtr,FileHandlePtr, 

FileinfoBlock,FileInfoBlockPtr,FileLock,FiIeLockPtr, 
fileNotObj ect,FileSysStartupMsg,FileSysStartupMsgPtr, 
findlnput,findOutput,findUpDate,flush,freelock, 
getBlockjGetPacket,Info,info, 

InfoData,InfoDataPtr,inhibit,Input, 

invalidComponentName,invalidLock,invalidResidentLibrary, 

loErr,Islnteractive,kickstartDisk,lineTooLong,LoadSeg, 

locateObj ect,moreCache,newFile,nil, 

noDefaultDir,noDisk,noDiskPresent,noFreeStore, 

noMoreEntries,notADosDisk,notReallyDos,objectExists, 

obj ectInUse,obj ectNotFound,obj ectTooLarge,obj ectWrongType, 

ok,(^oldFile,*)Output,parent, 

PathinfOjPathInfoPtrjProcess,Process, 

Processid,ProcessPtr,ProtectionFlags,ProtectionFlagSet, 
QueuePacket,read,readOnly,readProtected, 
readReturn,readUrite jRename,renameAcrossDevices, 
renameDisk,renameObject,ResidentSegment,ResidentSeginentPtr, 
RootNode,RootNodePtr,screenMode,Seek, 
seek,seekError,setComment,SetComment, 
setDate,setMap,setProtect,SetProtection, 

StandardPacket,StandardPacketPtr,TaskArray, 
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TaskArrayPtr,taskTableFull,ticksPerSecond,timer, 
tooManyLevels,truncate,TypeGrp,UnLoadSeg, 
unreadableDisk,validated,validating,waitChar, 
WaitF orChar,warn,write,writeLock, 
writeProtect,writeProtected,writeReturn; 


FROM Resources IMPORT ContextPtr; 


EXCEPTION 

WriteError 

ReadError 

EOF 

NoParentDir 

NoFreeStore 

TaskTableFull 

LineTooLong 

FileNotObject 

InvalidResidentLibrary 

NoDefaultDir 

Obj ectlnUse 

Obj ectExists 

DirNotFound 

Obj ectNotFound 

BadStreamName 

Obj ectTooLarge 

ActionNotKnown 

InvalidComponentName 

InvalidLock 

Obj ectWrongType 

DiskNotValidated 

DiskWriteProtected 

RenameAcrossDevices 

DirectoryNotEmpty 

TooManyLevels 

DeviceNotMounted 

SeekError 

CommentTooBig 

DiskFull 

DeleteProtected 

WriteProtected 

ReadProtected 

NotADosDisk 

NoDisk 

NoMoreEntries 


"WriteError"; 

"ReadError"; 

"End of File"; 

"No parent-directory accessable"; 
103 ; 

105 ; 

120 ; 

121 ; 

122 ; 

201 ; 

202 ; 

203 ; 

204 ; 

205 ; 

206 ; 

207 ; 

209 ; 

210 ; 

211 ; 

212 ; 

213 ; 

214 ; 

215 ; 

216 ; 

217 ; 

218 ; 

219 ; 

220 ; 

221 ; 

222 ; 

223 ; 

224 ; 

225 ; 

226 ; 

232 ; 


Protected 


= DiskWriteProtected,DeleteProtected,ReadProtected, 
WriteProtected; 


OpenErr 


= Obj ectNotFound,Obj ectInUse,DirNotFound,NotADosDisk,NoDisk, 
DiskNotValidated,DeviceNotMounted,ObjectWrongType; 
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ReadErr 


= ReadError,Protected; 


WriteErr 

DirErr 

DeleteErr 

InternalErr 


AllDosErr 


= WriteError,DiskNotValidated,DiskFull, 
Protected,NotADosDisk,NoDisk; 

= NoParentDir,Obj ectExists,DirNotFound; 

= Protected,Obj ectInUse,DirectoryNotEmpty; 

= NoFreeStore,TaskTableFulljLineTooLongjFileNotObject, 
InvalidResidentLibrary,NoDefaultDir,BadStreamName, 
ObjectTooLarge,ActionNotKnown,InvalidComponentName, 
InvalidLock,TooManyLevels,SeekError; 

= Protected,OpenErr,ReadErr,WriteErr,DirErr,DeleteErr, 
InternalErr; 


GROUP 

DosExceptionGrp = 

ActionNotKnown, 
CommentTooBig, 
DeviceNotMounted, 
DirNotFound, 
DiskNotValidated, 

EOF, 

InvalidComponentName, 
InvalidResidentLibrary, 
NoDefaultDir, 
NoFreeStore, 

NoParentDir, 
ObjectExists, 
ObjectNotFound, 

Obj ectWrongType, 
ReadProtected, 

SeekError, 

TooManyLevels, 
WriteProtected; 


BadStreamName, 
DeleteProtected, 
DirectoryNotEmpty, 
DiskFull, 

DiskWriteProtected, 
FileNotObject, 
InvalidLock, 
LineTooLong, 

NoDisk, 

NoMoreEntries, 
NotADosDisk, 
ObjectlnUse, 

Obj ectTooLarge, 
ReadError, 

RenameAcrossDevices, 
TaskTableFull, 
WriteError, 


DosExceptGroupGrp = Protected,OpenErr,ReadErr,WriteErr,DirErr,DeleteErr, 

InternalErr; 


GROUP 

DosErrorGrp = writeProtect, validating, validated,DiskStatus, 

noDiskPresent, unreadableDisk, dosDisk, notReallyDos, 
kickstartDisk,DiskType,noFreeStore,taskTableFull, 
lineTooLong,fileNotObj ect,InvalidResidentLibrary, 
noDefaultDir,obj ectInUse,obj ectExists,dirNotFound, 
obj ectNotFound,badStreamName, 

obj ectTooLarge,actionNotKnown,invalidComponentName, 
invalidLock,obj ectWrongType,diskNotValidated, 
diskWriteProtected,renameAcrossDevices,tooManyLevels, 
deviceNotMounted,SeekError,CommentTooBig,diskFulI, 
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deleteProtected,writeProtected,readProtected, 
notADosDisk,noDisk,noMoreEntries; 


I 1. Ein- und Ausgabe 


PROCEDURE CloseCVAR file : FileHandlePtr):L0NGB00L; 


PROCEDURE Open(REF name : 

accessMode : 
context : 

PROCEDURE Read( file : 

buffer : 

length : 

PROCEDURE WriteC file : 

buffer : 

length : 


STRING; 

OpenMode := oldFile; 

ContextPtr := NIL):FileHandlePtr; 

FileHandlePtr; 

ANYPTR; 

LONGINT):L0NGINT; 


FileHandlePtr; 
ANYPTR; 

LONGINT):LONGINT; 


GROUP 

DosIOGrp = Open,Open,Close,Read,FileHandlePtr »FileHandlePtr,Seek,Write, 
readWrite,readOnly,oldFile »newFile »beginning,current,end; 


I 2. Dateiverwaltung I 


VAR 

CD_at_ProgrammEnd : FileLockPtr; 

PROCEDURE CreateDir (REF name : STRING; 

context : ContextPtr:=NIL):FileLockPtr; 

PROCEDURE CurrentDir(lock : FileLockPtr):FileLockPtr; 

PROCEDURE ParentDir(lock : FileLockPtr; 

context : ContextPtr:=NIL):FileLockPtr; 

PROCEDURE DupLockdock : FileLockPtr; 

context : ContextPtr:=NIL):FileLockPtr; 
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PROCEDURE LockCREF name : STRING; 

accessMode : LockMode; 

context : ContextPtr:=NIL):FileLockPtr; 
PROCEDURE UnlockCVAR lock : FileLockPtr); 


GROUP 

DosFileGrp = 

= CreateDir,FileLockPtr,CurrentDir,DeleteFile,Examine,ExNext, 
FileinfoBlockPtrjFileInfoBlock,Info,InfoDataPtr,InfoData, 
ParentDirjRename jSetComment,SetProtection,ProtectionFlagSet, 
ProtectionFlags,DupLock,Input,loErr,Islnteractive,Lock,Output, 
Unlock,sharedLock,exclusiveLock,accessRead,accessWrite; 


DosProcessGrp = CreateProc,DateStamp,Delay,DeviceProc,Exit, 

WaitForChar,ticksPerSecond,Date,Process,ProcessPtr, 
Processid; 

DosSegmentGrp = Execute,LoadSeg,UnLoadSeg,BPTR; 


PacketGrp 

= DosPacket,DosPacketPtr,StandardPacket,StandardPacketPtr, 
nil,getBlock,setMap,die,event,currentVolume,locateObj ect, 
renameDisk,write,read,freelock,deleteObj ect,renameObj ect, 
moreCache,copyDir,waitChar,setProtect,createDir, 
examineObject,examineNext,disklnfo,info,flush,setComment, 
parent,timer,inhibit,diskType,diskChange,setDate, 
screenMode,readReturn,writeReturn,findUpDate,findlnput, 
findOutput,actionEnd,seek,truncate,writeLock, 

GetPacket,QueuePacket; 

All 

= DosIOGrp,DosFileGrp,DosProcessGrp,PacketGrp,DosSegmentGrp, 
DosErrorGrp,DosExceptionGrp,DosExceptGroupGrp, 

BSTR,DeviceListPtr,DatePtr,PathinfoPtr,Pathinfo, 
ok,warn,error,fail,ctrlC,ctrlD,ctrlE,ctrlF, 

CommandLinelnterfacePtr,Process,FileHandle,RootNodePtr, 
DosLibrary,DosLibraryPtr,TaskArray,Dosinf oPtr,TaskArrayPtr, 
DosEnvecPtr,FileSysStartupMsgPtr,ResidentSegmentPtr, 
ResidentSegment,RootNode,DosInfo,CoinmandLineInterface, 
DeviceListType,DeviceList,DeviceNode,DeviceNodePtr,DosEnvec, 
FileLock,FileSysStartupMsg,DosBase,LockMode; 

END T_Dos. 



Hier sind alle Exceptions und Exceptiongruppen definiert, die bei Da¬ 
teioperationen auftreten können. Des weiteren kann man aus diesem 
Modul alle Bezeichner importieren, die auch in Dos definiert sind. Der 
Unterschied zu Dos ist, daß geöffnete Eiles automatisch wieder geschlos¬ 
sen, Locks wieder freigegeben werden. Ealls bei einer Schreib- oder Le¬ 
seoperation ein Eehler auftritt, wird eine Exception ausgelöst, wird ver- 
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sucht über ein Filende hinauszulesen, wird die Exception EOF ausgelöst. 
Außerdem wird dafür gesorgt, daß wenn mittels CurrentDir das ak¬ 
tuelle Verzeichnis geändert wurde, dieses am Programende wieder dem 
entspricht, das beim Programmbegin gesetzt war. 


7.27.4.2 T_Exec 


DEFINITION MODULE T_Exec; 

(* $A- *) 

FROM System IMPORT BITSET,LONGSET,PROC,SysStringPtr,BPTR,Regs; 

FROM Resources IMPORT ContextPtr; 

FROM Hardware IMPORT IntFlags; 

FROM Exec IMPORT NodeType,NodePtr,MinListPtr,MinNodePtr,MinNode, 

Node,MinList,List,ListPtr,Interrupt,InterruptPtr,IntVector, 
SoftlntList jMemReqs jMemReqSet jMemTypeSet,MemChunkPtr, 
MemChunk,MemHe ader,MemHe aderPt r,MemEnt ry,MemList, 

MemListPtr,TaskFlags,TaskFlagSet,TaskState, 

MsgPortAction,SigAbort,SigChild,SigBlit,SigSingle, 

SigDos,vectSize,reserved,base,userDef,nonStd,extFunc, 
expunge,dose,open,LibFlags,LibFIagSet,Device, 

TaskSignals,DevicePtr,UnitFlags,UnitFIagSet,UnitPtr, 

Unit,invalid,reset,read,write,update,clear,stop,Start, 
flush,nonstd,abortIO,beginI0,lOFlagSet,quick,openFail, 
aborted,noCmd,badLength,Semaphore,SemaphorePtr, 
SemaphoreRequest,ResidentFlags,ResidentFlagSet, 

ResidentPtr,Resident,matchWord,AttnFlags,AttnFlagSet, 
ExecBaseType,ExecBasePtr,ExecBase,AddLibrary, 

MakeFunctions,MakeLibrary,RemLibrary,SetFunction, 

SumLibrary,InitCode,InitStruct,InitResident, 

FindResident,Alert,Debug,RawDoFmt,RawIOInit,RawPutChar, 
Disable,Enable,Forbid,Permit,SetSR,SuperState,UserState, 

SetIntVector,Cause,Allocate,Deallocate,AllocMem,AllocAbs, 
FreeMem,AvailMem,TypeOfMem,NewList,Insert,AddHead,AddTail, 
Remove,RemHead,RemTail,Enqueue,FindName,AddTask,RemTask, 
FindTask,SetTaskPri,SetSignal,SetExcept,Wait,Signal, 

AddPort,AddPort,RemPort,PutMsg,WaitPort,FindPort, 

AddDevice,RemDevice,DoIO,SendIO,ChecklO,Wait10,AbortIO, 
AddResource,RemResource,OpenResource,InitSemaphore, 
AttemptSemaphore,FindSemaphore,AddSemaphore,RemSemaphore, 
Procure,Vacate,SumKickData,AddMemList,CopyMem, 

CopyMemQuick,ObtainSemaphore,ReleaseSemaphore, 
ObtainSemaphoreList,ReleaseSemaphoreList, 

SignalSemaphore,SignalSemaphorePtr, 

TaskSignals,lOReturn,TaskSigSet, 

IOCommand,nonstdVAL,lOFlags,lOReturn; 


TYPE 

MsgPortPtr 

MessagePtr 

LibraryPtr 

lORequestPtr 


= POINTER TO MsgPort; 

= POINTER TO Message; 

= POINTER TO Library; 

= POINTER TO lORequest; 
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lOStdReqPtr = POINTER TO lOStdReq; 

TaskPtr = POINTER TO Task; 

DEFINITION MODULE PortRes = Resources.ResHandles(MsgPortPtr); 
DEFINITION MODULE MsgRes = Resources.ResHandles(MessagePtr); 
DEFINITION MODULE LibRes = Resources.ResHandles(LibraryPtr); 
DEFINITION MODULE loRes = Resources.ResHandles(lORequestPtr); 
DEFINITION MODULE TaskRes = Resources.ResHandles(TaskPtr); 


TYPE 

MsgPort = RECORD OF Exec.MsgPort,PortRes.ResHandle END 

Message = RECORD OF Exec.Message,MsgRes.ResHandle END 

Library = RECORD OF Exec.Library,LibRes.ResHandle END 

lORequest = RECORD OF Exec.lORequest,loRes.ResHandle END 

lOStdReq = RECORD OF Exec.lOStdReq,lORequest END 

Task = RECORD OF Exec.Task,TaskRes.ResHandle END 

EXCEPTION 

NoFreeSignal : "No Signal available"; 

NoMsgPort : "Failed to create msg port"; 

OpenError : "Could not open Device"; 

NotEnoughStackSpace : "Not enough stack space"; 

CantKillMainTask : "Can not kill main task"; 

TaskNeedsName : "Task needs a name"; 

(*========================== Library =========================== 


PROCEDURE OpenLibrary (REF name : STRING; 

Version : LONGINT):LibraryPtr; 

PROCEDURE CloseLibrary(library : LibraryPtr); 


*) 


PROCEDURE OldOpenLibraryCREF libName IN Al : STRING):LibraryPtr; 


GROUP 

LibGrp = OpenLibrary,CloseLibrary,AddLibrary,MakeFunctions,MakeLibrary, 

RemLibrary,OldOpenLibrary,SetFunction,SumLibrary,LibraryPtr,BPTR; 


(* - *) 

(* Listen-Funktionen *) 

(* - *) 


GROUP ListGrp = NodeType,Node,NodePtr,List,ListPtr, 

MinNode,MinNodePtr,MinList,MinListPtr, 

NewList,Insert,AddHead,AddTail,Remove,RemHead,RemTail, 
Enqueue,FindName; 


(* - *) 

(* Task-Funktionen *) 

(* - *) 


PROCEDURE CreateTask(REF name : STRING; 
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priority : SHORTINT; 

initPC : ANYPTR; 

stackSize : LONGINT := 20000; 

context : ContextPtr := NIL):TaskPtr; 

PROCEDURE DeleteTask(task : TaskPtr); 


GROUP TaskGrp = TaskPtr,Task,TaskFlags,TaskFlagSet,TaskState, 
AddTask,RemTask,CreateTask,DeleteTask, 

FindTask,SetTaskPri; 


(*- 

(* Message-Funktionen 


PROCEDURE CreatePortCREF portName : STRING 

priority : SHORTINT := 0; 

context : ContextPtr := NIL)iMsgPortPtr; 

PROCEDURE DeletePort(port : MsgPortPtr); 

PROCE¬ 
DURE GetMsgCport : MsgPortPtr;context : ContextPtr := NIL):MessagePtr; 

PROCEDURE RepIyMsgCmsg : MessagePtr); 

GROUP PortGrp = MsgPort,MsgPortPtr,MsgPortAction,MessagePtr, 

AddPort ,ReinPort, CreatePort, DeletePort, 

FindPort; 

MsgGrp = MsgPortPtr,MessagePtr, 

PutMsg,GetMsg,ReplyMsg,UaitPort,FindPort; 


*) 

*) 

*) 


(*-*) 

(* Device-Funktionen =t=) 

(* - *) 


Funktion 

: Öffnet 

ein : 

Parameter 

: packet 

<- 


name 

<- 


len 

<- 


unit 

<- 


context 

<- 


mit einem Nachfolgertypen , so muß man die 
Customfelder selbst initialisieren. 


PROCEDURE OpenDeviceC packet 

REF name 
len 
unit 
f lags 
context 


: lORequestPtr; 

: STRING; 

: CARDINAL; 

: LONGCARD :=0; 
:=L0NGSET:{}; 

: ContextPtr:=NIL); 
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I Funktion : Schließt ein mit diesem Modul geöffnetes Device 
I Parameter : packet <- Zeiger auf den IDRequest des Devices, das 
I geschlossen werden soll. 

I 

PROCEDURE CloseDevice(packet : lORequestPtr); 


GROUP DeviceGrp = Device,DevicePtr,lORequest, 

AddDevice,RemDevice; 

ExecIOGrp = lORequestPtr,lOStdReqPtr,DoI0,SendIO,CheckI0,WaitIO, 
Abort10,invalid,reset,read,write,update,clear,stop, 
Start,flush,quick; 


(* - *) 

(* Resource-Funktionen *) 

(* - *) 


GROUP 

ResourceGrp = AddResource,RemResource,OpenResource; 


(* - *) 

(* Semaphore-Funktionen *) 

(* - *) 


GROUP SemaphoreGrp = SignalSemaphore,List, 

InitSemaphore,ObtainSemaphore,ReleaseSemaphore, 
AttemptSemaphore,ObtainSemaphoreList, 
ReleaseSemaphoreList, 

FindSemaphore,AddSemaphore,RemSemaphore; 


GROUP 

KickGrp = SumKickData,AddMemList,CopyMem,CopyMemQuick; 

All = LibGrp,ListGrp,TaskGrp,PortGrp, 

MsgGrp,DeviceGrp,ExecIOGrp,ResourceGrp,SemaphoreGrp,KickGrp, 
SoftIntList,IntVector,MemChunkPtr,MemChunk,MemTypeSet, 
MemHeaderPtr,MemEntry,SigAbort,SigChild,SigBlit,SigSingle, 
SigDos,vectSize,reserved,base,userDef,nonStd,extFunc,expunge, 
dose,open,LibFlags,LibFlagSet,Library,Device,DevicePtr, 
UnitFlags,UnitFlagSet,UnitPtr,Unit,openFail,aborted,noCmd, 
badLength,ResidentFlagSet,ResidentPtr,Resident,matchWord, 
AttnFlags,AttnFlagSet,ExecBaseType,ExecBase; 


END T_Exec. 


Libraries und Devices, die mit diesem Modul geöffnet worden sind, wer¬ 
den wieder automatisch geschlossen, eigene Tasks und MessagePorts wer- 
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den am Programende wieder aus dem System entfernt, und Messages, die 
man vergessen hat zurückzuschicken, werden bei Freigabe des Kontextes 
an ihren Replyport geschickt. 


7.27.4.3 T_Intuition 

DEFINITION MODULE T.Intuition 

IMPORT Exec; 

IMPORT Input; 

FROM Graphics IMPORT DrawModes, ViewModes; 
FROM Resources IMPORT ContextPtr; 


FROM Intuition IMPORT 

IntuiText, 
autoFrontPen, 
autoLeftEdge, 
autoNextText, 
DrawModeSet, 
GadgetPtr, 
GadgetFlags, 
ActivationFIagSet, 
gadgHComp, 

GadginfoPtr, 
boolMask, 

PropinfoFIagSet, 
maxBody, 

BITSET, 

ImageGrp, 
IDCMPFIagSet, 
menuUp, 
noMenu, 
keyCodeQ, 
keyCodeB, 
cursorUp, 
cursorLeft, 
menuWaiting, 
okCancel, 
altLeft, 
amigaRight, 
IntuiMessagePtr, 
MoveWindow, 
SizeWindow, 
WindowToFront, 
otherRefresh, 
Window, 

RastPortPtr, 
AddGList, 

OffGadget, 

RefreshGList, 


IntuiTextPtr, 

DrawModeSet, 

autoBackPen, 

autoDrawMode, 

autoTopEdge, 

autoITextFont, 

BorderPtr, 

Border, 

ImagePtr, 

Image, 

PropinfoPtr, 

StringinfoPtr, 

GadgetFlagSet, 

ActivationFIags, 

gadgHighbits, 
GadgetType, 

gadgHNone, 

Gadginfo, 

Gadget, 

Boolinfo, 

PropinfoFlags, 

knobVmin, 

knobHmin, 

maxPot, 

Propinfo, 

Stringinfo, 

BorderGrp, 

IntuiTextGrp, 

IDCMPFIags, 

selectUp, 

selectDown, 

menuDown, 

menuNuIl, 

noltem. 

noSub, 

keyCodeX, 

keyCodeV, 

keyCodeN, 

keyCodeM, 

cursorDown, 

cursorRight, 

menuHot, 

menuCancel, 

okOk, 

okAbort, 

wbenchOpen, 

wbenchClose, 

altRight, 

amigaLeft, 

amigaKeys, 

IntuiMessage, 

ActivateWindow, 

ModifylDCMP, 

RefreshWindowFrame, 

SetWindowTitles, 

WindowLimits, 

WindowToBack, 

WindowFlags, 
NewWindow, 

WindowFlagSet, 

WindowPtr, 

IDCMPGrp, 

ActivateGadget, 

AddGadget, 

ModifyProp, 

NewModifyProp, 

OnGadget, 

RefreshGadgets, 

RemoveGadget, 

RemoveGList, 
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ClearMenuStrip, 
OffMenu, 

OnMenu, 
miDrawn, 
MenuItemPtr, 
highNone, 
lowCheckWidth, 
LDNGSET, 
ClearDMRequest, 
FreeSysRequest, 
SetDMRequest, 
RequesterFlags, 
deadendAlert, 
CloseWorkbench, 
MakeScreen, 
ScreenToBack, 
WBenchToBack, 
ScreenFlagSet, 
NewScreen, 
ScreenPtr, 

BitMap, 
DrawBorder, 

PrintIText, 
BorderGrp, 
FreeRemember, 
BeginRefresh, 
RethinkDisplay, 
GetDefPrefs, 
filenameSize, 
CustomName, 
CbmMpslOOO, 
DiabClBO, 
0kimate20, 
HpLaserj etPlus, 
Preferences, 
baudl200, 
baud9600, 
pica, 
draft, 
eightLPI, 
aspectHoriz, 
shadeColor, 
nTractor, 
fanfold, 
writeBits, 
buf512, 
buf4096, 
ViewAddress, 
UnlocklBase, 
DisplayMode, 

Res, 

gadgetCount, 
FatlntuiMessage, 
PenPair, 
Gadgetinfo, 


ItemAddress, 

menuEnabled, 

Menu, 

MenuItemFlags, 
checkWidth, 
lowCommWidth, 
AutoRequest, 
DisplayAlert, 
InitRequester, 
(♦NewAlert,*) 
RequesterPtr, 
recoveryAlert, 
DisplayBeep, 
MoveScreen, 
ScreenToFront, 
WBenchToFront, 
stdScreenHeight, 
ViewModeSet, 
ViewPortPtr, 
BitMapPtr, 
Drawimage, 
SetPointer, 
ImageGrp, 
Remember, 

EndRefresh, 
CurrentTime, 
GetPrefs, 
topazSixty, 
AlphaPlOl, 
Diab630, 

Epson, 

QumeLP20, 
SerParShk, 
baudllO, 
baud240Ö, 
baudl9200, 
elite, 
letter, 

imagePositive, 
aspectVert, 
usLetter, 
wTractor, 
single, 
stopBits, 
bufl024, 
bufSOOO, 

ViewPortAddress, 
ReportMouse, 
dMountCode, 
resCount, 

ILocks, 

IBox, 

numlEvents, 


(♦MenuNum,*) 


MenuPtr, 

MenuItemFlagSet, 
commWidth, 
Menuitem, 
BuildSysRequest, 
EndRequest, 
Request, 

RequesterFlagSet, 
Requester, 

GetScreenData, 
OpenWorkbench, 
ShowTitle, 
ScreenFlags, 
customScreen, 
Screen, 
RastPortPtr, 
ClearPointer, 
IntuiTextLength, 
IntuiTextGrp, 
AllocRemember, 
RememberPtr, 
RemakeDisplay, 
Doubleclick, 
SetPrefs, 
PrinterPort, 
BrotherlBXL, 
DiabAdvD2B, 
EpsonJXSO, 

HpLaserjet, 
SerParShkSet, 
baudSOO, 
baud4800, 
baudMidi, 
fine, 
sixLPI, 

imageMegative, 
shadeGreyscale, 
usLegal, 
custom, 
readBits, 
bufSizeBits, 
buf2048, 
buf16000, 
LocklBase, 
IDCMPGrp, 
eventMax, 

Gadget s, 
numILocks, 

Point, 

IntuitionBase, 
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IntuitionBasePtr, 

IntuitionBaseType 

, pointerSize, 


topazEighty, 


shadeBW, 


WindowTags, 

ScreenTags; 


EXCEPTION 




WindowNotOpen 

: "Couldnt open window"; 


NilPassed 

: "Nil passed to 

procedure"; 


ScreenNotOpen 

: "Screen couldnt 

be opened"; 


GROUP 




IntuiTextGrp 

= IntuiText, 

IntuiTextPtr, 

DrawModeSet, 


DrawModes, 

autoFrontPen, 

autoBackPen, 


autoDrawMode, 

autoLeftEdge, 

autoTopEdge, 


autoITextFont, 

autoNextText; 


BorderGrp 

= BorderPtr, 

Border, 

DrawModeSet, 


DrawModes; 



ImageGrp 

= ImagePtr, 

Image; 


GadgetGrp 

= GadgetPtr, 

PropinfoPtr, 

StringinfoPtr, 


GadgetFlags, 

GadgetFlagSet, 

ActivationFlags, 


ActivationFlagSet, gadgHighbits, 

gadgHNone, 


gadgHComp, 

GadgetType, 



GadginfoPtr, 

Gadginfo, 

Gadget, 


boolMask, 

Boolinfo, 

PropinfoFlags, 


PropinfoFlagSet, 

knobVmin, 

knobHmin, 


maxBody, 

maxPot, 

Propinfo, 


BITSET, 

Stringinfo, 

BorderGrp, 


ImageGrp, 

IntuiTextGrp; 


IDCMPGrp 

= IDCMPFlags, 

IDCMPFlagSet, 

selectUp, 


selectDown, 

menuUp, 

menuDown, 


menuMull, 

noMenu, 

noltem. 


noSub, 

keyCodeQ, 

keyCodeX, 


keyCodeV, 

keyCodeB, 

keyCodeN, 


keyCodeM, 

cursorUp, 

cursorDown, 


cursorRight, 

cursorLeft, 

menuHot, 


menuCancel, 

menuWaiting, 

okOk, 


okAbort, 

okCancel, 

wbenchOpen, 


wbenchClose, 

altLeft, 

altRight, 


amigaLeft, 

amigaRight, 

amigaKeys, 


IntuiMessage, 

IntuiMessagePtr; 


PROCEDURE OpenWindow(REF newWindow 

: NewWindow; 



context 

: ContextPtr:=NIL ): 

WindowPtr; 

PROCEDURE OpenWindowTags(context : 

ContextPtr := NIL; 



tags : LIST OF WindowTags):WindowPtr; 


PROCEDURE CloseWindow(VAR window : WindowPtr); 
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GROUP 


WindowGrp 

= OpenWindow, 

ActivateWindow, 

CloseUindow, 


ModifylDCMP, 

MoveWindow, 

RefreshWindowFrame, 


SetWindowTitles, 

SizeWindow, 

WindowLimits, 


WindowToBack, 

WindowToFront, 

WindowFIags, 


WindowFlagSet, 

otherRefresh, 

(*superUnused,*) 


NewWindow, 

Window, 

WindowPtr, 


IDCMPGrp, 

RastPortPtr, 

WindowTags; 

GadgetProcGrp 

= ActivateGadget, 

AddGadget, 

AddGList, 


ModifyProp, 

NewModifyProp, 

OffGadget, 


OnGadget, 

RefreshGadgets, 

RefreshGList, 

MenueGrp 

RemoveGadget, 

= ClearMenuStrip, 

ItemAddress, 

RemoveGList; 

(*MenuNum,*) 


(*ItemNum,*) 

(♦SubNum, =t=) 

OffMenu, 


OnMenu, 

(♦MenuStrip,*) 

menuEnabIed, 


miDrawn, 

Menu, 

MenuPtr, 


MenuItemPtr, 

MenuItemFlags, 

MenuItemFIagSet, 


highNone, 

checkWidth, 

commWidth, 


lowCheckUidth, 

lowCommWidth, 

Menuitem, 

ReqGrp 

LONGSET; 

= AutoRequest, 

BuildSysRequest, 

ClearDMRequest, 


DisplayAlert, 

EndRequest, 

FreeSysRequest, 


InitRequester, 

Request, 

SetDMRequest, 


(*NewAlert,*) 

RequesterFlagSet, 

RequesterFIags, 

PROCEDURE OpenSi 

RequesterPtr, 
deadendAlert, 

creen(REF newScreen 

Requester, 

: NewScreen; 

recoveryAIert; 

context 

: ContextPtr := NIL): 

ScreenPtr; 

PROCEDURE OpenSi 

creenTags(context 

: ContextPtr := NIL; 


tags 

: LIST OF ScreenTags) 

:ScreenPtr; 

PROCEDURE CloseScreen(VAR screen : 

ScreenPtr); 


GROUP 

ScreenGrp 

= CloseScreen, 

CloseUorkbench, 

DispIayBeep, 


GetScreenData, 

MakeScreen, 

MoveScreen, 


OpenScreen, 

OpenWorkbench, 

ScreenToBack, 


ScreenToFront, 

ShowTitle, 

WBenchToBack, 


WBenchToFront, 

ScreenFIags, 

ScreenFlagSet, 


stdScreenHeight, 

customScreen, 

NewScreen, 


ViewModeSet, 

ViewModes, 

Screen, 


ScreenPtr, 

ViewPortPtr, 

RastPortPtr, 


BitMap, 

ScreenTags, 

BitMapPtr; 

GfxGrp 

= ClearPointer, 

DrawBorder, 

Drawimage, 


IntuiTextLength, 

PrintIText, 

SetPointer, 
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IntuiTextGrp, 

BorderGrp, 

ImageGrp; 

MemGrp 

= AllocRemember, 

FreeRemember, 

Exec.MemReqSet, 


Exec.MemReqs, 

Remember, 

RememberPtr; 

RefreshGrp 

= BeginRefresh, 
RethinkDisplay; 

EndRefresh. 

RemakeDisplay, 

TimeGrp 

= CurrentTime, 

Doubleclick; 


PrefGrp 

= GetDefPrefs, 

GetPrefs, 

SetPrefs, 

filenameSize, 

pointerSize, 

topazEighty, 


topazSixty, 

PrinterPort, 

CustomName, 


AlphaPlOl, 

BrotherlBXL, 

CbmMpslOOO, 


Diab630, 

DiabAdvD25, 

DiabClBO, 


Epson, 

EpsonJXSO, 

0kimate20, 


QumeLP20, 

HpLaserjet, 

HpLaserj etPlus, 


SerParShk, 

SerParShkSet, 

Preferences, 


baudllO, 

baudSOO, 

baudl200, 


baud2400, 

baud4800, 

baud9600, 


baudl9200. 

baudMidi, 

pica. 


eilte, 

fine, 

draft, 


letter, 

sixLPI, 

eightLPI, 


imagePositive, 

imageNegative, 

aspectHoriz, 


aspectVert, 

shadeBW, 

shadeGreyscale, 


shadeColor, 

usLetter, 

usLegal, 


nTractor, 

wTractor, 

custom. 


fanfold, 

single, 

readBits, 


writeBits, 

stopBits, 

bufSizeBits, 


buf512. 

buf1024, 

buf2048, 


buf4096, 

buf8000, 

buf16000; 

ViewGrp 

= ViewAddress, 

ViewPortAddress; 


LockGrp 

= LocklBase, 

UnlocklBase; 


IntuilOGrp 

= ReportMouse, 

Input. Event Grp; 

IDCMPGrp, 

Exec.MsgGrp, 

All 

= IntuiTextGrp, 

BorderGrp, 

ImageGrp, 


GadgetGrp, 

IDCMPGrp, 

WindowGrp, 


GadgetProcGrp, 

MemGrp, 

GfxGrp, 


ReqGrp, 

MenueGrp, 

ReqGrp, 


GadgetProcGrp, 

MenueGrp, 

ScreenGrp, 


RefreshGrp, 

TimeGrp, 

PrefGrp, 


ViewGrp, 

LockGrp, 

IntuilOGrp, 


DisplayMode, 

dMountCode, 

eventMax, 


Res, 

resCount, 

Gadgets, 


gadgetCount, 

ILocks, 

numILocks, 


FatIntuiMessage, 
PenPair, 

IBox, 

Point, 


GadgetInfo, 
IntuitionBasePtr, 

numlEvents, 

IntuitionBase, 
IntuitionBaseType 
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END T_Intuition. 

Fenster und Screen, die mit diesem Modul geöffnet worden sind, können 
in Kontexte eingehängt werden, und werden am Programmende wieder 
automatisch geschlossen. 
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7.28 Str 

Dieses Modul enthält Prozeduren zur Bearbeitung von Strings. 

Achtung!!! 

Keine der Prozeduren in Str führt einen Bereichs-Check aus. Sie sind 
dafür besonders schnell. Also nur benutzen, wenn sicher ist, daß der 
String, der verwendet wird, groß genug ist; sonst die Prozeduren aus 
Strings benutzen. 


DEFINITION MODULE Str; 

FROM System IMPORT Regs,Equation; 
FROM Exceptions IMPORT RangeVioIation; 


I =================== Caps-Funktions ========== 

TYPE 

CapsArr = ARRAY CHAR OF CHAR; 

CONST 

LOW = CapsArr; 

CAP = CapsArr; 

PROCEDURE LowerStringCVAR str IN AO : STRING); 


PROCEDURE CapsStringCVAR str IN AO : STRING); 


I ================ Compare =========================== 

PROCEDURE EquaKREF strl IN AO, 

str2 IN Al : STRING): BOOLEAN; 

PROCEDURE CapsEquaKREF strl IN AO, 

str2 IN Al : STRING):BOOLEAN; 


PROCEDURE GreaterCREF strl IN AO, 

str2 IN Al : STRING):BOOLEAN; 
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PROCEDURE CapsGreaterCREF strl IN AO, 

str2 IN Al : STRING):B00LEAN; 

PROCEDURE Compare (REF strl IN AO, 

str2 IN Al : STRING):Equation; 


Search 


PROCEDURE First (REF str IN AO : STRING; 

ch IN D2 : CHAR):INTEGER; 


PROCEDURE Last (REF str IN AO : STRING; 

ch IN D2 : CHAR):INTEGER; 


PROCEDURE Search (REF find IN AO, 

in IN Al : STRING):INTEGER; 


I ================= Modify ================ 

PROCEDURE Seg(REF str IN AO : STRING; 

pos IN D2, 

len IN D3 : INTEGER; 

VAR Segment IN Al : STRING); 


PROCEDURE Insert (REF 

str 

IN 

AO 

STRING; 

VAR 

into 

IN 

Al 

STRING; 


pos 

IN 

D2 

INTEGER); 
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PROCEDURE ReplaceCREF str IN AO 

VAR into IN Al 
pos IN D2 


STRING; 
STRING; 
INTEGER); 


PROCEDURE DeleteCVAR str IN AO : STRING; 

pos IN D2, 

len IN D3 : INTEGER); 


PROCEDURE ConcatCVAR dest IN AO : STRING; 

REF source IN Al : STRING); 


GROUP 

All = Equation,CapsArr,CAP,LowerString,CapsString,EquaI, 
CapsEqual,Greater,Compare,Seg,First,Last,Search, 
Insert,Replace,Delete,Concat,CapsGreater; 


END Str. 


7.28.1 Groß/Kleinschrift 

Zur Umwandlung von kleinen in große Buchstaben, gibt es hier zwei 
konstante Arrays CAP und LOW. Ist c vom Typ CHAR dann ergibt: 

• CAP[c], c als großen Buchstaben z. B. CAP["a"]="A" 

• L0W[c], c als kleinen Buchstaben z. B. L0W["A"]="a" 

Zur Bearbeitung von ganzen Strings in dieser Art stehen folgende zwei 
Prozeduren zur Verfügung: 
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PROCEDURE LowerStringCVAR str IN AO : STRING); 

Funktion: Verwandelt alle Zeichen eines Strings in Kleinbuchstaben. 

Parameter: 

str String, der umgewandelt werden soll. 

PROCEDURE CapsStringCVAR str IN AO : STRING); 

Funktion: Verwandelt alle Zeichen eines Strings in Großbuchstaben. 

Parameter: 

str String, der umgewandelt werden soll. 

7.28.2 Stringvergleiche 

Wie Sie wissen, kann man Strings nicht einfach so vergleichen wie andere 
Variablen, hierfür stehen allerdings einige Prozeduren zur Verfügung: 

PROCEDURE EquaKREF strl IN AO, 

str2 IN Al : STRING): BOOLEAN; 

Funktion: Prüft zwei Strings auf Gleichheit. 

Parameter: 

strl , Strings, die verglichen werden sollen. 

str2 

=> TRUE wenn sie gleich sind. 
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PROCEDURE CapsEqual (REF strl IN AO, 

str2 IN Al : STRING):B00LEAN; 

Funktion: Wie Equal, jedoch ohne Beachtung der Groß/Kleinschrei¬ 
bung (a=A). 

Parameter: 

strl, Strings, die verglichen werden sollen. 

str2 

=4> TRUE wenn sie gleich sind. 

PROCEDURE GreaterCREF strl IN AO, 

str2 IN Al : STRING):BOOLEAN; 

Funktion: Prüft ob strl alphabetisch größer als str2 ist. 
Parameter: 

strl, Strings, die verglichen werden sollen. 

str2 

=4> TRUE wenn strl größer als str2 ist. 

PROCEDURE CapsGreaterCREF strl IN AO, 

str2 IN Al : STRING):BOOLEAN; 

Funktion: Prüft ob strl größer als str2 ist. Ohne Berücksichtigung 
der Groß/Kleinschreibung. Parameter wie Great er 

PROCEDURE Compare (REF strl IN AO, 

str2 IN Al : STRING):Equation; 

Funktion: Vergleicht zwei Strings. 

Parameter: 

strl, Strings, die verglichen werden sollen. 

str2 

^ smaller : strl kleiner str2 

equal : strl gleich str2 

greater : strl größer str2 
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7.28.3 Suchfunktionen 

PROCEDURE First (REF str IN AO : STRING; 

ch IN D2 : CHAR):INTEGER; 

Funktion: Sucht nach dem ersten Auftreten eines Zeichens in einem 
String. 

Parameter: 

str Strings, in dem gesucht werden soll. 

ch Zeichen, das gesucht werden soll. 

^ Position des Zeichens, oder -1, falls es nicht ge¬ 
funden wurde. 

PROCEDURE Last (REF str IN AO : STRING; 

ch IN D2 : CHAR):INTEGER; 

Funktion: Sucht nach dem letzten Auftreten eines Zeichens 

Parameter: 

str Strings, in dem gesucht werden soll. 

ch <^= Zeichen, das gesucht werden soll. 

=> Position des Zeichens, oder -1, falls es nicht ge¬ 
funden wurde. 

PROCEDURE SearchCREF find IN AO, 

in IN Al : STRING):INTEGER; 

Funktion: Sucht nach dem ersten Auftreten eines Strings in einem 
anderen. 

Parameter: 

find String, der gesucht werden soll. 

in String, in dem gesucht werden soll. 

^ Position des Strings, oder -1, falls er nicht ge¬ 
funden wurde. 
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7.28.4 Bearbeitungsfunktionen 

PROCEDURE SegCREF str IN AO : STRING; 

pos IN D2, 

len IN D3 : INTEGER; 

VAR Segment IN Al : STRING); 

Funktion: Kopiert aus einem String ein Stück heraus. 

Parameter: 

str QuellString. 

pos Position, ab der kopiert werden soll. 

len Länge des Bereichs, der kopiert werden soll. 

Segment Zielstring, in ihn wird der Bereich hineinkopiert. 

PROCEDURE Insert (REF str IN AO : STRING; 

VAR into IN Al : STRING; 
pos IN D2 : INTEGER); 

Funktion: Fügt in einen String ein Stück ein. Achten Sie bitte darauf, 
das im Zielstring genügend Platz ist. 

Parameter: 

dest String, in den eingefügt werden soll, 

source String, der eingefügt werden soll, 

pos ^ Position, ab der eingefügt werden soll. 

PROCEDURE RepIaceCREF str IN AO : STRING; 

VAR into IN Al : STRING; 
pos IN D2 : INTEGER); 

Funktion: Ersetzt einen Teil eines Strings durch einen anderen. Paßt 
str nicht in into, bleibt into unverändert. 

Parameter: 

str String, durch den ein Teil von into ersetzt wer¬ 

den soll. 

into String, in den ein Teil eingesetzt werden soll, 

pos Position, ab der ersetzt werden soll. 
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PROCEDURE DeleteCVAR str IN AO : STRING; 

pos IN D2, 

len IN D3 : INTEGER); 

Funktion: Schneidet einen Teil des Strings herans. 

Parameter: 

str 44 String, ans dem ansgeschnitten werden soll. 

pos Position, ab der geschnitten werden soll. 

len ^ Länge des Stücks, das ausgeschnitten werden 

soll. 

PROCEDURE ConcatCVAR dest IN AO : STRING; 

REF source IN Al : STRING); 

Funktion: Fügt zwei Strings zusammen. 

Parameter: 

dest 44 Linker Teil des neuen Strings, in dieser Variable 

findet sich danach auch der zusammengesetzte 
String. 

source Rechter Teil des neuen Strings. 
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7.29 Streams 

Dieses Module bietet Schreib- und Lesefunktionen für sequentiell^^ Da¬ 
tenströme. Auch wenn diese nicht so flexibel zu handhaben sind wie die 
Dateien aus dem FileSystem, sind Streams jedoch sehr praktisch, wenn 
es darum geht eine ASCII-Datei zu parsen. 


DEFINITION MODULE Streams; 

FROM Resources IMPORT ContextPtr; 

FROM ASCII IMPORT cr,If,eof,sp,ff; 


EXCEPTION 

NoInputStream 
NoOutputStream 
StreamNotInteractive 
AppendNotPossible 
WrongNumOfQuotes 


"Stream is not an inputstream"; 

"Stream is not an outputstream"; 
"Stream is not an interactive one"; 
"Append not posssible"; 

"Incorrect number of quotation marks"; 


GROUP 

ExceptionGrp = NoInputStream,NoOutputStream, 

StreamNotlnteractive,AppendNotPossible, 
WrongNumOfQuotes; 


TYPE 

Stream = HIDDEN; 


VAR 

CurrentInput, 

CurrentOutput : Stream; 

I ===================== Global Streamhandling 


PROCEDURE OpenInputStream(VAR 

REF 


handle 

name 

buffSize 
context 


Stream; 

STRING; 

LONGINT 

ContextPtr 


256; 

NIL); 


PROCEDURE OpenOutputStream (VAR handle 

REF name 


append 

writeLnBuffer 


Stream; 

STRING; 

BOOLEAN 

BOOLEAN 


FALSE; 

TRUE; 


sequentiell heißt, auf die einzelnen Bytes einer Datei kann nur hinterei¬ 
nander zugegriffen werden. Es ist nicht möglich wahlfrei darauf zuzugreifen. 
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buffSize 

LONGINT 

= 256; 

context 

ContextPtr 

= NIL); 

PROCEDURE OpenlnOutStream (VAR handle 

REF name 

writeLnBuffer 

Stream; 

STRING; 

BOOLEAN 

= TRUE; 

buffSize 

LONGINT 

= 256; 

context 

ContextPtr 

=NIL); 


DEFINITION MODULE CustomStreams(Handle : ANYPTR); 


TYPE 

ReadProc = PROCEDURE(VAR c : CHAR; 

handle : Handle); 

WriteProc = PROCEDURE (c : CHAR; 

handle : Handle); 
CloseProc = PROCEDURE (handle : Handle); 


PROCEDURE OpenCustomStream(VAR handle 

customln. 

Stream; 


customOut 

Handle 

= NIL; 

read 

ReadProc 

= NIL; 

write 

WriteProc 

= NIL; 

dose 

CloseProc 

= NIL; 

echo 

BOOLEAN 

= FALSE 

context 

END CustomStreams; 

ContextPtr 

= NIL); 


PROCEDURE CloseStreaiii(VAR handle : Stream) ; 

PROCEDURE SetCurrentInput(handle : Stream); 

PROCEDURE SetCurrentOutput(handle : Stream); 

PROCEDURE IsInterActive(handle : Stream):B00LEAN; 

GROUP 

GlobalGrp = OpenlnputStream,OpenOutputStream,OpenInOutStream, 
CustomStreams,CloseStream,SetCurrentInput, 
SetCurrentOutput,Stream,CurrentInput, 
CurrentOutput,Stream; 


Read 


TYPE 

Termination = ARRAY [8] OF CHAR; 
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CharPtr = POINTER TO CHAR; 


PROCEDURE Read (VAR c 

handle 


CHAR; 

Stream :=NIL); 


PROCEDURE NextChar(handle 


Stream :=NIL):CHAR; 


PROCEDURE 


ReadBytes(pos 
len 

handle 


ANYPTR; 

LONGINT; 

Stream :=NIL); 


PROCEDURE ReadBlock(VAR block : ANYTYPE; 

handle : Stream :=NIL); 


PROCEDURE ReadCharsTerminated(pos 

maxLen 

terms 


handle 


: CharPtr; 

: LONGINT; 

:= Termination:(sp,If,er, 

ff,eof,eof, 
eof,eof); 

: Stream :=NIL):LONGINT; 


PROCEDURE ReadString(VAR 


str 

terms 


quotedFlag 

handle 


: STRING; 

:= Termination:(sp,If,er, 

ff,eof,eof, 
eof,eof); 

: BOOLEAN :=TRUE; 

: Stream :=NIL); 


PROCEDURE TermChar(handle : Stream := NIL):CHAR; 

PROCEDURE WasQuoted(handle : Stream :=NIL):BOOLEAN; 

GROUP 

ReadGrp = Termination,CharPtr,Read,NextChar,ReadBytes, 

ReadBlock,ReadCharsTerminated,TermChar,WasQuoted; 


I ======================= Write ============= 

PROCEDURE Write(c : CHAR; 

handle : Stream := NIL); 

PROCEDURE WriteBytes(pos : ANYPTR; 

len : LONGINT; 
handle : Stream :=NIL); 
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PROCEDURE WriteBlockCREF block : ANYTYPE; 

handle : Stream := NIL); 

PROCEDURE WriteStringCREF str : STRING; 

handle : Stream :=N1L); 

PROCEDURE CustomWriteBuffer(handle : Stream); 

GROUP 

WriteGrp = Write,WriteBytes,WriteBlock,WriteString, 
CustomWriteBuffer; 

All = WriteGrp,ExceptionGrp,GlobalGrp,ReadGrp; 

END Streams. 


Exceptions: 

NoInputStream Es wurde versucht von einem reinen Ausgabestrom 
zu lesen. 

NoOutputStream Es wurde versucht auf einen reinen Eingabestrom 
zu schreiben. 

StreamNotlnteractive Es wurde versucht einen nicht interaktiven (z. B. 
Datei) Strom als Ein/Ausgabestrom zu öffnen. 

AppendNotPossible Nur bei Dateien kann man einen Ausgabestrom 
mit append öffnen. 

WrongNumOfQuotes Beim Einlesen eines Strings wurde das Ende er¬ 
reicht, ohne daß ein schließende Anführungszeichen gelesen wurde. 

Weiterhin können die in T_Dos definierten Exceptions auftreten. 

7.29.1 Stream-Handling 

Bevor man einen Stream verwenden kann, muß dieser erst geöffnet wer¬ 
den. Im Gegensatz zu InOut, mit dem man ebenfalls einen eigenen 

Ein/Ausgabestrom öffnen kann, lassen sich hier beliebig viel Ströme glei¬ 
chzeitig öffnen. 
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PROCEDURE OpenlnputStreamCVAR handle : Stream; 

REF name : STRING; 

buffSize : LONGINT := 256; 

context : ContextPtr := NIL); 

Funktion: Öffnet einen Eingab estrom. Von diesem kann nnr gelesen 
werden. 

Parameter: 

handle ^ Zngriff auf den Strom. 


name 

Name der Datei, die als Strom geöffnet werden 
soll. Dies kann auch ein CON : -Fenster oder SER: 
sein. 

buffSize 

<^= Größe des Eingabepuffers. 

context 

^ Kontext, zu dem der Strom geöffnet werden soll, 
um sicherzustellen, daß der Strom auch wieder 
geschlossen wird. Wird dieser Parameter nicht 
angegeben, wird der Strom zum aktuellen Kon¬ 
text geöffnet 
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PROCEDURE OpenOutputStream(VAR handle : Stream; 

REF name : STRING; 

append : BOOLEAN := FALSE 

writeLnBuffer: BOOLEAN := TRUE; 
buffSize : LONGINT := 256; 

context : ContextPtr:= NIL); 

Funktion: Öffnet einen Ansgabestrom. Anf diesen kann nnr geschrie¬ 
ben werden. 

Parameter: 

handle Zugriff auf den Strom. 

name 4= Name der Datei, die als Strom geöffnet werden 

soll. Dies kann auch ein CON-Fenster oder SER: 
sein. 

append Flag, das angibt, ob an eine alte Datei Zeichen 

angefügt werden sollen. Ist nur bei nicht inter¬ 
aktiven Strömen möglich. Wird hier FALSE an¬ 
gegeben, wird eine neue Datei geöffnet. 


writeLnBuffer 


Gibt an, ob der Puffer bei einem Zeilenvorschub 
ausgegeben werden soll. 

buffSize ^ Größe des Eingabepuffers. 

context Kontext, zu dem der Strom geöffnet werden soll, 

um sicherzustellen, daß der Strom auch wieder 
geschlossen wird. Ohne diesen Parameter wird 
der Strom zum aktuellen Kontext geöffnet. 
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PROCEDURE OpenlnOutStreamCVAR handle : Stream; 

REF name : STRING; 

writeLnBuffer : BOOLEAN := TRUE 

buffSize : LONGINT := 256; 

context : ContextPtr:=NIL); 

Funktion: Öffnet einen Ein/Ausgabestrom. Auf diesem kann sowohl 
geschrieben als auch gelesen werden. Funktioniert nur mit interaktiven 
Strömen, also nicht mit Dateien. 

Parameter: 

handle ^ Zugriff auf den Strom. 

name Name der Datei, die als Strom geöffnet werden 

soll. Dies kann auch ein CON-Fenster oder SER: 
sein. 

writeLnBuffer 

Gibt an, ob der Puffer bei einem Zeilenvorschub 
ausgegeben werden soll. 

buffSize <^= Größe des Eingabepuffers. 

context Kontext, zu dem der Strom geöffnet werden soll, 

um sicherzustellen, daß der Strom auch wieder 
geschlossen wird. Ohne diesen Parameter wird 
der Strom zum aktuellen Kontext geöffnet 

Diese Ströme arbeiten alle mit den Schreib/Lesefunktionen von Dos zu¬ 
sammen. Für manche Spezialanwendungen benötigt man möglicherweise 
eigene Schreib/Lesefunktionen. Hierfür existiert ein generisches Modul 
CustomStreams. Nachdem man dieses für seinen Stromtypen ausgeprägt 
hat, kann man einen solchen Strom mit folgender Prozedur öffnen: 
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PROCEDURE OpenCustomStreamCVAR handle 

customln, 

customOut 

read 

write 

dose 

echo 

context 

Funktion: Öffnet einen KnndenstronJ^ 

Parameter: 

handle => Zugriff auf den Strom. 


Stream; 

Handle := NIL; 
ReadProc := NIL; 
WriteProc := NIL; 
CloseProc := NIL; 
BOOLEAN := FALSE 
ContextPtr:= NIL); 


customln 

customOut 

read 

write 

dose 

echo 

context 


Lesezugriff, der Ihrer Leseroutine read 
übergeben wird. 

Schreibzugriff, der Ihrer Schreibroutine write 
übergeben wird. 

Leseroutine, mit der alle Lesefunktionen imple¬ 
mentiert werden. 

Schreibroutine, mit der alle Schreibfunktionen 
implementiert werden. 

Wird beim Schließen dieses Stromes zweimal 
aufgerufen, das erste Mal mit „customln“, das 
zweite Mal mit „customOut“. 

Gibt an, ob bei einem Aufruf von „read“, das 
gelesene Zeichen gleich darauf mit „write“, aus¬ 
gegeben werden soll. 

Kontext, zu dem der Strom geöffnet werden soll, 
um sicherzustellen, daß er zu gegebener Zeit auch 
wieder geschlossen wird. Wird dieser Parameter 
nicht angegeben, wird der Strom zum aktuellen 
Kontext geöffnet. 


Nachdem ein solcher Strom mit openCustonStream geöffnet wurde, kann 
er wie jeder andere Strom verwendet werden. 


^®Nicht zu verwechseln mit gleichnamigen Datentypen ans dem Modnl 
SuperMarket :-). 
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PROCEDURE CloseStream(VAR handle : Stream); 

Funktion: Schließt einen Strom. 

Parameter: 

handle Zugriff auf den Strom, der geschlossen werden 

soll. Auf ihn darf danach nicht mehr zugegriffen 
werden. 

PROCEDURE SetCurrentInput(handle : Stream); 

Funktion: Um nicht bei jeder Lesefunktion den Strom angeben zu 
müssen, von dem gelesen werden soll, besteht die Möglichkeit einen 
Strom zum Standardeingabestrom zu erklären. Wird dieser geschlos¬ 
sen, wird automatisch der Strom zum Standardstrom erklärt, der vorher 
gesetzt war. 

Parameter: 

handle Zugriff auf den Strom, der „Currentlnput“ wer¬ 

den soll. 

PROCEDURE SetCurrentOutput(handle : Stream); 

Funktion: Um nicht bei jeder Schreibfunktion den Strom angeben zu 
müssen, auf den geschrieben werden soll, besteht die Möglichkeit einen 
Strom zum Standardausgabestrom zu erklären. Wird dieser geschlos¬ 
sen, wird automatisch der Strom zum Standardstrom erklärt, der vorher 
gesetzt war. 

Parameter: 

handle ^ Zugriff auf den Strom, der „CurrentOutput“ wer¬ 
den soll. 

Da auch das Modul InOut, mit diesem Modul arbeitet, werden alle Aus¬ 
gaben von InOut sofern dort kein Strom angegeben ist, auf den Stan¬ 
dardstrom gemacht, der mit diesen Funktionen gesetzt wurde. 
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PROCEDURE IsInterActive(handle : Stream):B00LEAN; 

Funktion: Ermittelt, ob es sich bei dem übergebenen Strom nm einen 
interaktiven handelt. 

Parameter: 

handle Zugriff auf den Strom, der geprüft werden soll. 

^ TRUE, wenn er interaktiv ist. 

7.29.2 Lesefunktionen 

Verzichtet man beim Aufruf der Read-Prozeduren auf die Übergabe des 
Zugriffes auf einen Strom, so wird der aktuelle Currentlnput benutzt. Ist 
dieser NIL, also kein Standardeingabestrom gesetzt, wird ein Console- 
Fenster geöffnet. 

PROCEDURE Read (VAR c : CHAR; 

handle : Stream :=N1L); 

Funktion: Liest ein Zeichen aus einem Strom. 

Parameter: 

c Gelesenes Zeichen. 

handle Strom, von dem gelesen werden soll. 

PROCEDURE NextChar(handle : Stream :=N1L):CHAR; 

Funktion: Liefert das jeweils nächste Zeichen im Strom, ohne die Le¬ 
seposition zu verschieben. 

Parameter: 

handle Strom, von dem gelesen werden soll. 

^ Gelesenes Zeichen. 
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PROCEDURE ReadBytesCpos : ANYPTR; 

len : LONGINT; 

handle : Stream :=N1L); 

Funktion: Liest eine Anzahl Zeichen aus einem Strom an eine bes¬ 
timmte Speicherstelle. 

Parameter: 

pos Position im Speicher, ab der die gelesenen Zei¬ 

chen abgelegt werden sollen. 

len Anzahl der zu lesenden Zeichen, 

handle Strom, von dem gelesen werden soll. 

PROCEDURE ReadBlockCVAR block : ANYTYPE; 

handle : Stream :=N1L); 

Funktion: Liest einen beliebigen Datentyp fester Länge aus einem 
Strom. 

Parameter: 

block Variable mit fester Länge, die gelesen werden 

soll. 

handle Strom, von dem gelesen werden soll. 
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PROCEDURE ReadCharsTerminatedCpos : CharPtr; 

maxLen : LONGINT; 

terms := Termination:(sp,lf,er, 

ff,eof,eof, 
eof,eof); 

handle : Stream :=NIL):LONGINT; 

Funktion: Liest eine Anzahl Zeichen aus einem Strom, und schreibt sie 
an eine bestimmte Speicherstelle, bis die Maximalzahl erreicht ist, oder 
ein bestimmtes Zeichen gelesen wurde. Führende Terminierungszeichen 
werden überlesen, Terminierungszeichen werden nicht in den Speicher 
kopiert. 

Parameter: 
pos 

maxLen 
terms 

handle 


Position im Speicher, ab der die gelesenen Zei¬ 
chen abgelegt werden sollen. 

Maximale Anzahl der zu lesenden Zeichen. 

Array mit den Zeichen, die das Einlesen abbre¬ 
chen sollen. 

Strom, von dem gelesen werden soll. 

Anzahl der tatsächlich gelesenen Zeichen. 


PROCEDURE ReadStringCVAR str : STRING; 

terms := Termination:(sp,lf»er, 

ff,eof,eof, 
eof,eof) ; 

quotedFlag : BOOLEAN :=TRUE; 
handle : Stream :=NIL); 

Funktion: Liest einen String aus einem Strom, bis er gefüllt ist oder 
ein bestimmtes Zeichen gelesen wurde. 


©1992/93 by StoneWare 




7.29. STREAMS 


255 


Parameter: 

str String, der gelesenen werden soll. 


terms 


quotedFlag 


handle 


Array mit den 

Zeichen, die das Einlesen abbrechen sollen. Will 
man ein solches Terminiernngszeichen eingeben, 
mnß dies innerhalb von Anführnngszeichen ges¬ 
chehen. Anführnngszeichen lassen sich nnr in¬ 
nerhalb von Anführnngszeichen eingeben, indem 
man sie darin doppelt "" schreibt. 

Gibt an, ob Leerzeichen bei der Eingabe 
nnabhängig von terms, als Terminierungszeichen 
gewertet werden soll. 

Strom, von dem gelesen werden soll. 


PROCEDURE TermChar(handle : Stream := N1L):CHAR; 

Funktion: Liefert das Zeichen, durch das die letzte Eingabe abgebro¬ 
chen wurde. 


Parameter: 

handle ^ Strom, von dem zuletzt gelesen wurde. 

^ Zeichen, das den Abbruch verursachte. 


PROCEDURE WasQuoted(handle : Stream :=N1L):BOOLEAN; 

Funktion: Gibt an, ob in der letzten Eingabe ein enthalten war. 


Parameter: 

handle 


Strom, von dem zuletzt gelesen wurde. 
TRUE, wenn ein enthalten war. 



256 


KAPITEL 7. STANDARDMODULE 


7.29.3 Schreibfunktionen 

Verzichted man beim Aufruf der Write-Prozeduren auf die Übergabe des 
Zugriffes auf einen Strom, so wird der aktuelle CurrentOutput benutzt. 
Ist dieser NIL, wird ein Console-Fenster geöffnet. 

PROCEDURE WriteCc : CHAR; 

handle : Stream := NIL); 

Funktion: Schreibt ein Zeichen in einen Strom. 

Parameter: 

c Zu schreibendes Zeichen. 

handle Strom, auf den geschrieben werden soll. 


PROCEDURE WriteBytesCpos : ANYPTR; 

len : LONGINT; 
handle : Stream :=NIL); 

Funktion: Schreibt eine Anzahl Zeichen von einer bestimmten Spei¬ 
cherstelle aus in einem Strom. 

Parameter: 

pos Position im Speicher, von der ab geschrieben 

werden soll. 

len Anzahl der zu schreibenden Zeichen, 

handle Strom, auf den geschrieben werden soll. 


PROCEDURE WriteBlockCREF block : ANYTYPE; 

handle : Stream := NIL); 

Funktion: Schreibt einen beliebigen Typ fester Länge in einen Strom. 

Parameter: 

block Variable, deren Inhalt geschrieben werden soll, 

handle ^ Strom, auf den geschrieben werden soll. 
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PROCEDURE WriteStringCREF str : STRING; 

handle : Stream :=NIL); 

Funktion: Schreibt einen String in einem Strom. 

Parameter: 

str String, der geschrieben werden soll, 

handle Strom, anf den geschrieben werden soll. 

PROCEDURE CustomWriteBuffer(handle : Stream); 

Funktion: Normalerweise wird der Puffer eines Streams erst dann aus¬ 
gegeben, wenn er voll ist oder ein Zeilenvorschubp^ ausgegeben wird. 
Diese Prozedur führt zur augenblicklichen Ausgabe des Ausgabepuffers. 

Parameter: 

handle ^ Strom, dessen Puffer ausgegeben werden soll. 


^^Soweit dies beim öffnen des Streams angegeben wurde. 




258 


KAPITEL 7. STANDARDMODULE 


7.30 Strings 

Ebenso wie das Modul Str stellt Strings Prozeduren und Funktionen 
zur Stringbearbeitung zur Verfügung, mit dem Unterschied, daß hier ein 
Bereichscheck durchgeführt wird, und daß viele Prozeduren aus Str hier 
als Funktionen vorhanden sind. 


DEFINITION MODULE Strings; 

FROM System IMPORT Regs,SysStringPtr,Equation; 
FROM Dos IMPORT BSTR; 

FROM Resources IMPORT ContextPtr,NoContext; 

FROM Exceptions IMPORT RangeVioIation; 

TYPE 

MString = ARRAY OF CHAR; 


I =========================== Compare ============= 

PROCEDURE EquaKREF strl IN AO, 

str2 IN Al : STRING): BOOLEAN; 


PROCEDURE CapsEqual (REF strl IN AO, 

str2 IN Al : STRING):BOOLEAN; 


PROCEDURE BCPL_EquaI(strl IN AO, 

str2 IN Al : BSTR):BOOLEAN; 


PROCEDURE GreaterCREF strl IN AO, 

str2 IN Al : STRING):BOOLEAN; 


PROCEDURE CapsGreaterCREF strl IN AO, 

str2 IN Al : STRING):BOOLEAN; 
PROCEDURE Compare (REF strl IN AO, 

str2 IN Al : STRING):Equation; 
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Search 


PROCEDURE First (REF str IN AO : STRING; 

ch IN D2 : CHAR):INTEGER; 


PROCEDURE 

Next (REF 

str 

IN 

AO 



ch 

IN 

D2 



pos 

IN 

D3 

PROCEDURE 

Last (REF 

str 

IN 

AO 



ch 

IN 

D2 

PROCEDURE 

Prev(REF 

str 

IN 

AO 



ch 

IN 

D2 



pos 

IN 

D3 


STRING; 

CHAR; 

INTEGER):INTEGER; 


STRING; 

CHAR):INTEGER; 


STRING; 

CHAR; 

INTEGER):INTEGER; 


PROCEDURE Search (REF find,in 


STRING):INTEGER; 


PROCEDURE SearchNext (REF find,in : STRING; 

pos : CARDINAL):INTEGER; 


I ====================== Modify =============== 

$$0wnHeap:=TRUE 

PROCEDURE Seg(REF str IN AO : STRING; 

pos IN D2, 

len IN D3 : INTEGER):STRING; 


$$0wnHeap:=TRUE 

PROCEDURE Concat(REF strs : LIST OF STRING):STRING; 
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$$0wnHeap:=TRUE 

PROCEDURE Insert (REF str,into : STRING; 

pos : INTEGER):STRING; 

$$0wnHeap:=TRUE 

PROCEDURE DeleteCREF str : STRING; 

pos, 

len : INTEGER):STRING; 


$$0wnHeap:=TRUE 
PROCEDURE RepIace(REF str, 

into : STRING; 

pos IN D2 : INTEGER):STRING; 


$$0wnHeap:=TRUE 

PROCEDURE DupCREF str IN AO : STRING; 

num IN D2 : INTEGER):STRING; 


$$0wnHeap:=TRUE 

PROCEDURE FilKREF str : STRING; 

ch : CHAR; 
pos, 

len : CARDINAL):STRING; 


PROCEDURE 

CutOut(REF str 
pos 

IN AO : 
IN D2, 

STRING; 


len 

IN D3 : 

INTEGER; 


VAR Segment 


STRING); 

PROCEDURE 

InsertIn(REF str 
VAR into 

IN AO 

STRING; 

STRING; 


pos 

IN D2 

INTEGER); 

PROCEDURE RepIaceIn(REF str 

VAR into 

IN AO 

STRING; 

STRING; 


pos 

IN D2 

INTEGER); 


PROCEDURE EraseCVAR str IN AO : STRING; 

pos IN D2, 

len IN D3 : INTEGER); 
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PROCEDURE AppendCVAR dest : STRING; 

REF source IN Al : STRING); 


Conversion 


PROCEDURE SysStrCREF str IN AO : STRING):SysStringPtr; 


$$0wnHeap:=TRUE 

PROCEDURE StrCptr IN AO : SysStringPtr):STRING; 


PROCEDURE CreateBSTRCREF str IN AO 

resident IN D2 
context IN Al 


STRING; 

BOOLEAN := FALSE; 
ContextPtr 

:=NoContext):BSTR; 


$$0wnHeap:=TRUE 

PROCEDURE BSTRtoStringCptr IN AO : BSTR):STRING; 

PROCEDURE StrToMStrCREF str IN AO : STRING; 

VAR mStr : MString); 


$$0wnHeap:=TRUE 

PROCEDURE MStrToStrCREF mStr : MString):STRING; 


GROUP 

All = Equation,MString,EquaI,CapsEquaI,BCPL_EquaI,Greater, 
CapsGreater,Compare,First,Next,Last,Prev,Search, 
SearchNext,Seg,Concat,Insert,Delete,Replace,Dup, 
Fill,CutOut,InsertIn,Replaceln,Erase,Append, 

SysStr,Str,CreateBSTR,BSTRtoString,MStrToStr; 

END Strings. 


Exceptions: 

RangeViolation Wird ausgelöst, wenn eine Stringoperation über die 
Grenze eines Strings hinausschreiben würde. 
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7.30.1 Stringvergleiche 

Wie Sie wissen, kann man Strings nicht einfach so vergleichen wie andere 
Variablen, hierfür stehen allerdings einige Prozednren znr Verfügnng: 

PROCEDURE EquaKREF strl IN AO, 

str2 IN Al : STRING): BOOLEAN; 

Funktion: Prüft zwei Strings anf Gleichheit. 

Parameter: 

strl, Strings, die verglichen werden sollen. 

str2 

^ TRUE, wenn sie gleich sind. 

PROCEDURE CapsEquaKREF strl IN AO, 

str2 IN Al : STRING):BOOLEAN; 

Funktion: Wie Equal, jedoch ohne Beachtnng der Groß/Kleinschrei- 

bnng (a=A). 

Parameter: 

strl, Strings, die verglichen werden sollen. 

str2 

TRUE, wenn sie gleich sind. 

PROCEDURE BCPL_Equal(strl IN AO, 

str2 IN Al : BSTR):BOOLEAN; 

Funktion: Vergleicht zwei BCPL-Strings. 

Parameter: 

strl, BCPL-Strings, die verglichen werden sollen. 

str2 

^ TRUE, wenn sie gleich sind. 

PROCEDURE GreaterCREF strl IN AO, 

str2 IN Al : STRING):BOOLEAN; 
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Funktion: Prüft ob strl alphabetisch größer als str2 ist. 
Parameter: 

strl, Strings, die verglichen werden sollen. 

str2 

^ TRUE, wenn strl größer als str2 ist. 

PROCEDURE CapsGreaterCREF strl IN AO, 

str2 IN Al : STRING):B00LEAN; 

Funktion: Prüft ob strl größer als str2 ist. Ohne Berücksichtigung 
der Groß/Kleinschreibung. Parameter wie Great er 

PROCEDURE Compare (REF strl IN AO, 

str2 IN Al : STRING):Equation; 

Funktion: Vergleicht zwei Strings. 

Parameter: 

strl, Strings, die verglichen werden sollen. 

str2 

^ smaller : strl kleiner str2 

equal : strl gleich str2 

greater : strl größer str2 

7.30.2 Suchfunktionen 

PROCEDURE First (REF str IN AO : STRING; 

ch IN D2 : CHAR):INTEGER; 

Funktion: Sucht nach dem ersten Auftreten eines Zeichens in einem 
String. 

Parameter: 

str String, in dem gesucht werden soll. 

ch <= Zeichen, das gesucht werden soll. 

^ Position des gesuchten Zeichens, oder -1, falls es 
nicht gefunden wurde. 
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PROCEDURE NextCREF str IN AO : STRING; 

ch IN D2 : CHAR; 

pos IN D3 : INTEGER):INTEGER; 

Funktion: Sucht nach dem nächsten Auftreten eines Zeichens. 

Parameter: 

str String, in dem gesucht werden soll. 

ch ^ Zeichen, das gesucht werden soll. 

pos ^ Position, ab der gesucht werden soll 

Position des gesuchten Zeichens, oder -1, falls es 
nicht gefunden wurde. 

PROCEDURE LastCREF str IN AO : STRING; 

ch IN D2 : CHAR):INTEGER; 

Funktion: Sucht nach dem letzten Auftreten eines Zeichens 

Parameter: 

str Strings, in dem gesucht werden soll. 

ch Zeichen, das gesucht werden soll. 

=4> Position des Zeichens oder, -1, falls es nicht ge¬ 
funden wurde. 

PROCEDURE PrevCREF str IN AO : STRING; 

ch IN D2 : CHAR; 

pos IN D3 : INTEGER):INTEGER; 

Funktion: Sucht nach dem voherigen Auftreten eines Zeichens. 

Parameter: 

str String, in dem gesucht werden soll. 

ch Zeichen, das gesucht werden soll. 

pos Position, ab der gesucht werden soll 

^ Position des gesuchten Zeichens, oder -1, falls es 
nicht gefunden wurde. 
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PROCEDURE SearchCREF find,in : STRING):INTEGER; 

Funktion: Sucht nach dem ersten Auftreten eines Strings in einem 
anderen. 

Parameter: 

find String, der gesucht werden soll. 

in String, in dem gesucht werden soll. 

^ Position des Strings, oder -1, falls er nicht ge¬ 
funden wurde. 

PROCEDURE SearchNext (REF find,in : STRING; 

pos : CARDINAL):INTEGER; 

Funktion: Sucht nach dem nächsten Auftreten eines Strings. 

Parameter: 

find String, der gesucht werden soll. 

in String, in dem gesucht werden soll. 

pos <^= Position, ab der gesucht werden soll. 

Position des Strings, oder -1, falls er nicht ge¬ 
funden wurde. 

7.30.3 Bearbeitungsfunktionen 

$$0wnHeap:=TRUE 

PROCEDURE SegCREF str IN AO : STRING; 

pos IN D2, 

len IN D3 : INTEGER):STRING; 

Funktion: Kopiert aus einem String ein Stück heraus. 

Parameter: 

str QuellString, aus dem kopiert werden soll. 

Position ab der kopiert werden soll. 

Länge des Bereichs, der kopiert werden soll. 

^ Kopierter Bereich. 


pos 

len 
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$$OwnHeap:=TRUE 

PROCEDURE ConcatCREF strs : LIST OF STRING):STRING; 

Funktion: Setzt aus einer Liste von Strings einen einzelnen neuen zu¬ 
sammen. 

Parameter: 

strs ^ Beliebig lange Liste von Strings. 

=> Zusammengesetzter String. 


$$0wnHeap:=TRUE 

PROCEDURE Insert (REF str,into : STRING; 

pos : INTEGER):STRING; 

Funktion: Fügt in einen String ein Stück ein und gibt das Ergebnis 
zurück. 

Parameter: 

str <;= String, der eingefügt werden soll, 

into String, in den eingefügt werden soll. 

^ Zusammengesetzter String. 

PROCEDURE DeleteCREF str : STRING; 

pos, 

len : INTEGER):STRING; 

Funktion: Schneidet einen Teil des Strings heraus. 

Parameter: 

str String, der als Vorlage dient. 

pos Position, ab der geschnitten werden soll. 

len ^ Länge des Stücks, das ausgeschnitten werden 

soll. 

=> Ergebnisstring. 
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$$OwnHeap:=TRUE 
PROCEDURE Replace (REF str, 

into : STRING; 

pos IN D2 : INTEGER):STRING; 

Funktion: Ersetzt einen Teil eines Strings dnrch einen anderen. Paßt 
into nicht in str, wird ein RangeCheck ausgelöst. 

Parameter: 

str String der als Vorlage dient. 

into String durch den ein Teil von str ersetzt werden 

soll. 

pos Position ab der geschnitten werden soll. 

len <^= Länge des Stücks, das ausgeschnitten werden 

soll. 

^ Ergebnisstring. 


$$0wnHeap:=TRUE 

PROCEDURE DupCREF str IN AO : STRING; 

num IN D2 : INTEGER):STRING; 

Funktion: Vervielfältigt einen String in einen anderen und gibt diesen 
zurück. Z. B. DupC'Str" ,3) = "StrStrStr". 

Parameter: 

str String, der vervielfältigt werden soll, 

num Zahl der Vervielfältigungen. 

^ Ergebnisstring. 
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$$OwnHeap:=TRUE 

PROCEDURE FilKREF str : STRING; 

ch : CHAR; 
pos, 

len : CARDINAL):STRING; 

Funktion: Füllt einen Teil eines Strings mit Zeichen. 

Parameter: 

str String, in dem gefüllt werden soll, 

pos 4= Position, ab der gefüllt werden soll, 

len Anzahl Felder, die gefüllt werden sollen. 

=> Ergebnisstring. 


PROCEDURE CutOutCREF str IN AO : STRING; 

pos IN D2, 

len IN D3 : INTEGER; 

VAR Segment : STRING); 

Funktion: Kopiert aus einem String ein Stück heraus. 

Parameter: 

str QuellString. 

pos 4= Position, ab der kopiert werden soll. 

len 4= Länge des Bereichs, der kopiert werden soll. 

Segment Zielstring, in ihn wird der Bereich hineinkopiert. 

PROCEDURE InsertIn (REF str IN AO : STRING; 

VAR into : STRING; 

pos IN D2 : INTEGER); 

Funktion: Fügt in einen String ein Stück ein. 

Parameter: 

str 4= String, der eingefügt werden soll, 

into String, in den eingefügt werden soll, 

pos Position, ab der eingefügt werden soll. 
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PROCEDURE ReplaceInCREF str IN AO : STRING; 

VAR into : STRING; 

pos IN D2 : INTEGER); 

Funktion: Ersetzt einen Teil eines Strings dnrch einen anderen. Paßt 
str nicht in into, bleibt into nnverändert. 

Parameter: 

str String, dnrch den ein Teil von into ersetzt wer¬ 

den soll. 

into String, in den ein Teil eingesetzt werden soll, 

pos <^= Position, ab der ersetzt werden soll. 

PROCEDURE EraseCVAR str IN AO : STRING; 

pos IN D2, 

len IN D3 : INTEGER); 

Funktion: Schneidet einen Teil des Strings heraus. 

Parameter: 

str String, aus dem ausgeschnitten werden soll. 

pos Position, ab der geschnitten werden soll. 

len <^= Länge des Stücke, das ausgeschnitten werden 

soll. 

PROCEDURE AppendCVAR dest : STRING; 

REF source IN Al : STRING); 

Funktion: Fügt zwei Strings zusammen. 

Parameter: 

dest 44^ Linker Teil des neuen Strings, in dieser Variable 

findet sich danach auch der zusammengesetzte 
String. 

source Rechter Teil des neuen Strings. 
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7.30.4 Stringkonvertierung 

PROCEDURE SysStrCREF str IN AO : STRING):SysStringPtr; 

Funktion: Gibt einen Zeiger auf einen Systemstring, der in den übergebenen 
Clusterstring verweist, zurück nach Übergabe eines ClusterStrings. 

Parameter: 

str ^ ClusterString. 

=> Zeiger auf Systemstring. 

$$0wnHeap:=TRUE 

PROCEDURE StrCptr IN AO : SysStringPtr):STRING; 

Funktion: Gibt einen Clusterstring nach Übergabe eines Zeigers auf 
einen Systemstring^ zurück. 

Parameter: 

ptr Zeiger auf Systemstring. 

Clusterstring. 


^^Nähere Erkärungen zu den Systemstrings finden Sie im Kapitel 


7.31 
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PROCEDURE CreateBSTRCREF str IN AO : STRING; 

resident IN D2 : BOOLEAN := FALSE; 
context IN Al : ContextPtr 

:=NoContext):BSTR; 

Funktion: Gibt einen Zeiger auf einen BCPL-String zurück nach Übergabe 
eines ClusterStrings. 

Parameter: 

str <^= Clusterstring. 

resident ^ Soll der String auch noch nach Beendingung des 
Programms existieren, muß hier TRUE übergeben 
werden. 

context 4= Kontext, zu dem der Speicher für den BCPL- 
String alloziert werden soll. Hat natürlich nur 
eine Auswirkung, wenn resident= FALSE ist. 

^ Zeiger auf BCPL-String. 

$$0wnHeap:=TRUE 

PROCEDURE BSTRtoStringCptr IN AO : BSTR):STRING; 

Funktion: Gibt einen ClusterString nach Übergabe eines Zeigers auf 
einen BCPL-String zurück. 

Parameter: 

ptr ^ Zeiger auf BCPL-String. 

^ Clusterstring. 
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PROCEDURE StrToMStrCREF str IN AO : STRING; 

VAR mStr : MString); 

Funktion: Wandelt einen Clnsterstring in einen ModnlaString nm. 

Parameter: 

str 4= Clnsterstring. 

mStr Modnlastring. 

$$0wnHeap:=TRUE 

PROCEDURE MStrToStrCREF mStr : MString):STRING; 

Funktion: Gibt einen Clnsterstring nach Übergabe eines Modnlastrings 
znrück. 

Parameter: 

mStr ^ Modnlastring. 

^ Clnsterstring. 
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7.31 System 


Dieses Modul wird automatisch bei jedem Modul importiert. Es enthält 
unter anderem Prozeduren, die der Compiler für Laufzeitchecks, Typkon¬ 
vertierungen und ähnliches. Daneben sind hier aber auch einige Typen, 
Variablen und Prozeduren definiert, die Sie in Ihren Programmen ver¬ 
wenden können. Achtung: Verändern Sie diese Datei auf keinen Fall, 
der Compiler würde danach keine lauffähigen Programme mehr generie¬ 
ren! 


DEFINITION MODULE System; 


(* $A- *) 


TYPE 

SHORTSET 

BITSET 

LONGSET 

BPTR 

STRINGPTR 

PROC 


SET OF [0 . . 7] ; 

SET OF [0. .15] ; 

SET OF [0. .31] ; 

BCPLPTR TO SHORTINT; 
POINTER TO ARRAY OF CHAR; 
PROCEDURE; 


SysStringPtr= 
SysWbMsg = 
SysTask = 
Register = 


RegSet 
Equation 
Sysinfo 


POINTER TO ARRAY OF CHAR; 

HIDDEN; 

HIDDEN; 

(D0,D1,D2,D3,D4,D5,D6,D7, 

A0,A1,A2,A3,A4,A5,A6,A7, 

FPO,FPl,FP2,FP3,FP4,FP5,FP6,FP7); 
SET OF Register; 

(smaller,equal,greater); 

RECORD 

linkTime : RECORD 
days, 
minute, 

tick : LONGINT; 
END; 

initA4 : ANYPTR 
END; 


CONST 

GIobalBase = A4; 
LibraryBase = A6; 
StackPtr = A7; 


= RegSet,Register,GIobalBase,LibraryBase,StackPtr; 


GROUP 

Regs 
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VAR 

CloseProc 

OldGuru 

Startstack 

GuruId 

CLIParamPtr 

CLIParamLen 

WBStartupMsg 

OwnTask 

GuruPosition 

OldExcept 

OldSigs 

CtrlC 

HeapStart, 

LastHeap 

HeapSize 

HeapStackPtr 


LowerStack 

OldExceptData 

OldTrapData 

LocalLength 

CtrlCFlag 

OwnLibBase 


PROC; 

PROC; 

ANYPTR; 

LONGINT; 

STRINGPTR; 

LONGINT; 

SysWbMsg; 

SysTask; 

ANYPTR; 

PROC; 

LONGSET; 

BOOLEAN; 


ANYPTR; 

LONGINT; 

RECORD 

pos : ANYPTR; 
len : INTEGER 


END; 

ANYPTR; 

ANYPTR; 

ANYPTR; 

LONGINT; 

BOOLEAN; 

RECORD 


succ, 

pred 

type 

pri 

Name 


ANYPTR; 
SHORTCARD; 
SHORTINT; 
SysStringPtr; 


SegList 

CIoseGuruPos 

CIoseGuruId 


f lags 
pad 

negSize, 

posSize 

Version, 

revision 

idString 

sum 

openCnt 

END; 

ANYPTR; 

ANYPTR; 

LONGINT; 


SHORTSET; 
SHORTCARD; 

CARDINAL; 

CARDINAL; 

SysStringPtr; 

LONGINT; 

INTEGER 


GROUP 

All = SHORTSET,BITSET,LONGSET,BPTR,STRINGPTR,PROC, 


©1992/93 by StoneWare 









7.31. SYSTEM 


275 


SysStringPtr,SysWbMsg,SysTask,Register,RegSet, 
GlobalBase,LibraryBase,StackPtr,CloseProc,OldGuru, 
Startstack,Guruld,CLIParamPtr,CLIParamLen,WBStartupMsg, 
OwnTask,GuruPosition,OldExcept,OldSigs,CtrlC,HeapStart, 
LastHeap,HeapSize,HeapStackPtr, 

LowerStack; 


(* Nicht aufrufen. 


da Rückgabewert nicht stimmt !!! *) 


PROCEDURE MULU32(x 
PROCEDURE MULS32(x 
PROCEDURE DIVU32(x 
PROCEDURE DIVS32(x 
PROCEDURE M0DU32(x 
PROCEDURE M0DS32(x 


IN D0,y IN Dl 
IN D0,y IN Dl 
IN D0,y IN Dl 
IN D0,y IN Dl 
IN D0,y IN Dl 
IN D0,y IN Dl 


LONGINT):L0NGINT; 
LONGINT):LONGINT; 
LONGINT):LONGINT; 
LONGINT):LONGINT; 
LONGINT):LONGINT; 
LONGINT):LONGINT; 


(* auf keinen Fall aufrufen, sicherer Tod !!! *) 


(* Nicht aufrufen, da automatisch aufgerufen wird *) 

PROCEDURE RealToLongCval IN DO : REAL):L0NGREAL; 

PROCEDURE LongToReal(high IN DO,low IN Dl : LONGINT):REAL 

(* nicht aufrufen, sicherer Tod !!! *) 

PROCEDURE SignaICtrIC; 

(* Bricht das Programm an der aktuellen Position ab, 

* Rückgabewert ist Err, bei negativem Err wird dieses als 

* Zeiger auf eine Fehlermeldung gedeutet. 

* 

* Besser die Standardproceduren aufrufen !!! 

*) 

PROCEDURE HALT(Err IN DO : LONGINT); 

PROCEDURE HALT_CALL(Err IN DO : LONGINT); 

PROCEDURE HALT_CALL_LOCAL(Err IN DO : LONGINT); 

PROCEDURE HALT_CALL_ENTRY(Err IN DO : LONGINT); 

(* Proceduren zur Heapverwaltung, besser nicht aufrufen *) 
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PROCEDURE InitHeap; 

PROCEDURE DisposeHeap; 

(* Procedura um Heapspeicher zu Allozieren *) 

(^ $P_ ^) 

PROCEDURE AllocHeapCSize IN DO : LONGINT):ANYPTR; 

(* Proceduren für die Cardinalität einer Menge, sollten nicht 
* aufgerufen werden, da sie automatisch aufgerufen werden. 

*) 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


ShortCardinaKSet IN DO : SHORTSET) :LONGINT; 
WordCardinaKSet IN DO : BITSET) :LONGINT; 
LongCardinaKSet IN DO : LONGSET) :LONGINT; 
StackCheckCNeed IN DO : INTEGER); 

CheckBreak; 

EndBEGIN; 


CONST Systeminfo = Sysinfo; 

PROCEDURE AddExceptHandler(pos IN AO 
PROCEDURE RemExcept; 

PROCEDURE RaiseAgain; 

PROCEDURE ExceptHandler; 

PROCEDURE DeferredMethod; 


PROCEDURE PutTagData(tagList IN AO 

value IN DO 
tag IN Dl 

PROCEDURE GetTagData(tagList IN AO 

value IN DO 
tag IN Dl 


: ANYPTR); 


ANYPTR; 

LONGINT; 

LONGINT); 

ANYPTR; 

LONGINT; 

LONGINT):LONGINT; 


PROCEDURE IClose; 
END System. 
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7.31.1 Typen 

SHORTSET Benötigt ein Byte Länge, ideal znr Bitmanipnlation ein¬ 
zelner Bytes. 

BITSET Benötigt zwei Byte Länge, ideal znr Bitmanipnlation einzel¬ 
ner Worte. 

LONGSET Benötigt vier Byte Länge, ideal znr Bitmanipnlation ein¬ 
zelner Langworte. 

BPTR BCPLPTR, wird in Dos verwendet. Ein BCPL-Pointer enthält 
nicht die wirkliche Adresse, um diese zu erhalten, muß er mit „4“ 
multipliziert werden. 

STRINGPTR Zeiger auf ein ARRAY OF CHAR. Sollte man nur genau so 
verwenden, für „C“-Strings eignet sich der SysStringPtr besser. 

PROG Häufig verwendeter Prozedurtyp, wenn Prozeduren ohne Para¬ 
meter übergeben werden sollen. 

SysStringPtr Zeiger auf einen „C“-String, wie er in vielen System¬ 
strukturen verwendet wird. 

Register Aufzählungstyp, der die Prozessorregisternummern enthält. 
Er sollte aufgrund der besseren Dokumentation statt einfacher 
Zahlen verwendet werden. 

Equation Ein Aufzählungstyp für Ordnungsrelationen. Er wird von 
einigen Vergleichsprozeduren der Standardmodule verwendet, und 
ist hier definiert, damit alle Module den gleichen Typ verwenden 
können. 

7.31.2 Variablen 

Guruld Hier steht die Nummer (0... 4000) bzw. die Adresse der Ex- 
ceptionmeldung (> 4000) der letzten Exception. Besser ist es 
jedoch, wenn Sie das Modul „Exceptions“ verwenden. 
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CliParamPtr, CliParamLen, WBStartupMsg Für alle die nicht Ar¬ 
guments verwenden wollen. 

CtrlC Weist man dieser Variable FALSE zu, dann kann das Programm 
nicht mehr durch Ctrl-C abgebrochen werden. 


7.31.3 Prozeduren 

CheckBreak Da innerhalb von Dos-Aufrufen Ctrl-C keine Wirkung 
hat, sollte man in Programmteilen, in denen viele Dos-Aufrufe 
statthnden, zwischendurch diese Prozedur aufrufen. 

RaiseAgain Ruft die letzte Exception noch einmal auf. 

Bitte lassen Sie von allen anderen Elementen, die nicht hier 
aufgezählt wurden, die Finger, wir können sonst für keine Fol¬ 
gen garantieren!! 
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7.32 Trees 

Hierbei handelt es sich ähnlich wie bei Lists um ein generisches Modul 
zur Verwaltung von Bäumen. Nähere Informationen zu dieser Datens¬ 
truktur finden Sie in Kapitel 


DEFINITION MODULE Trees; 

FROM Lists IMPORT FileTypeMismatch; 

FROM FileSystem IMPORT File; 

IMPORT Lists; 

EXCEPTION 

NoFather : "Leaf has no father"; 

DEFINITION MODULE StdTrees(Tree : POINTER TO Leaf); 
DEFINITION MODULE LeafList = Lists.BiLists(Tree); 


TYPE 

Leaf = RECORD OF LeafList.BiNode 

father : Tree; 
sons : LeafList.BiList 
END; 


Check = PROCEDURECt : Tree):B00LEAN; 

Destructor = PROCEDURECt : Tree); 

AppIyProc = PROCEDURECt : Tree); 

SaveProc = PROCEDURECf : File;leaf : Tree); 
LoadProc = PROCEDURECf : File):Tree; 


PROCEDURE InitCt : Tree); 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


AddFirstSonCfather,son : Tree); 
AddLastSonCfather,son : Tree); 
AddNextBrother(treejbrother : Tree); 
AddPrevBrother(treejbrother : Tree); 


PROCEDURE Remove(tree : Tree); 
PROCEDURE RemoveSons(father : Tree); 
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PROCEDURE RemoveSons_IF(tree : Tree;if : Check); 
PROCEDURE Remove_IF(tree : Tree;if : Check); 


PROCEDURE Delete(VAR tree : Tree); 

PROCEDURE DeleteSons(father : Tree); 

PROCEDURE DeleteSons_IF(tree : Tree;if : Check); 
PROCEDURE Delete_IF(VAR tree : Tree;if : Check); 

PROCEDURE Destruct(VAR tree : Tree;des : Destructor); 

PROCEDURE DestructSons(father : Tree;des : Destructor); 

PROCEDURE DestructSons_IF(tree : Tree; 

if : Check; 
des : Destructor); 

PROCEDURE Destruct_IF(VAR tree : Tree; 

if : Check; 
des : Destructor); 


PROCEDURE ApplyDepthFirst(tree : Tree; 

Work : ApplyProc); 


PROCEDURE ApplyBreadthFirst(tree : Tree; 

Work : ApplyProc); 

PROCEDURE ApplyDepthFirstBig(tree : Tree; 

pre, 

between, 

post : ApplyProc); 


PROCEDURE FindDepthFirst(tree : Tree; 

equal : Check):Tree; 

PROCEDURE FindBreadthFirst(tree : Tree; 

equal : Check):Tree; 


PROCEDURE FindSon(father : Tree; 
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equal : Check):Tree; 


PROCEDURE 

FindNextSon(father : Tree; 



equal : Check; 
son : Tree):Tree; 

PROCEDURE 

Save(tree : 

Tree; 


f : 

File; 


part : 

SaveProc); 

PROCEDURE 

Load(VAR tree : Tree; 


f 

: File; 


part : LoadProc); 


END StdTrees; 


DEFINITION MODULE CursorTree(type : ANYPTR); 
EXCEPTION 

NoCursor : "No Cursor set"; 

TYPE 

LeafPtr = POINTER TO Leaf; 

DEFINITION MODULE CTree = StdTrees(LeafPtr); 
TYPE 

Leaf = RECORD OF CTree.Leaf 

data : type; 

END; 

Tree = RECORD 

root, 
mark, 

Cursor : LeafPtr; 

END; 

Check = PROCEDURE(t : type):B00LEAN; 

Destructor = PROCEDURE(t : type); 

AppIyProc = PROCEDURE(t : type); 

SaveProc = PROCEDURE(f : File;leaf : type); 
LoadProc = PROCEDURE(f : File):type; 


PROCEDURE Init(VAR tree : Tree); 
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PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


Get(VAR tree : Tree):type; 

GetSubtree (VAR dest,arg : Tree); 

AddFirstSonCVAR tree : Tree;son : type); 
AddLastSon(VAR tree : Tree;son : type); 
AddNextBrother (VAR tree : Tree;brother : type); 
AddPrevBrother (VAR tree : Tree;brother : type); 

AddFirstSonSubtree (VAR tree,son : Tree); 
AddLastSonSubtree(VAR tree,soii : Tree); 
AddNextBrotherSubtree(VAR tree,brother : Tree); 
AddPrevBrotherSubtree(VAR tree,brother : Tree); 

Remove(VAR tree : Tree); 

RemoveSons (VAR tree : Tree); 

RemoveSons_IF(VAR tree : Tree;if : Check); 
Remove_IF (VAR tree : Tree;if : Check); 

Delete(VAR tree : Tree); 

DeleteSons (VAR tree : Tree); 

DeleteSons_IF(VAR tree : Tree;if : Check); 
Delete_IF(VAR tree : Tree;if : Check); 


PROCEDURE Destruct(VAR tree : Tree;des : Destructor); 

PROCEDURE DestructSons (VAR tree : Tree;des : Destructor); 

PROCEDURE DestructSons_IF(VAR tree : Tree; 

if : Check; 
des : Destructor); 
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PROCEDURE Destruct_IF(VAR tree : Tree; 

if : Check; 
des : Destructor); 

PROCEDURE ApplyDepthFirst (VAR tree : Tree; 

Work : ApplyProc); 

PROCEDURE ApplyBreadthFirst (VAR tree : Tree; 

Work : ApplyProc); 

PROCEDURE ApplyDepthFirstBig(VAR tree : Tree; 

pre, 

between, 

post : ApplyProc); 

PROCEDURE Dup(VAR dest,arg : Tree); 

PROCEDURE DupSubtree(VAR dest,arg : Tree); 

PROCEDURE Mark (VAR tree : Tree); 

PROCEDURE GoMark(VAR tree : Tree); 


PROCEDURE FindDepthFirst (VAR tree : Tree; 

equal : Check); 

PROCEDURE FindBreadthFirst (VAR tree : Tree; 

equal : Check); 

PROCEDURE FindSon(VAR tree : Tree; 

equal : Check); 

PROCEDURE FindNextSon(VAR tree : Tree; 

equal : Check); 

PROCEDURE Father(VAR tree : Tree); 

PROCEDURE FirstSon(VAR tree : Tree); 

PROCEDURE LastSon(VAR tree : Tree); 

PROCEDURE NextBrother (VAR tree : Tree); 
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PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


PrevBrother (VAR tree : Tree); 
Root(VAR tree : Tree); 

HasCursor (VAR tree : Tree):B00LEAN; 


Save (VAR tree 
f 

part 


Tree; 

File; 

SaveProc); 


Load (VAR tree 
f 

part 


Tree; 

File; 

LoadProc); 


END CursorTree; 
END Trees. 


Exceptions: 

NoFather Dies Exception wird ausgelöst, wenn man einem Wurzelk¬ 
noten versucht einen Bruderknotenp^ hinzuzufügen. 


^^Bruderknoten sind alle Knoten, die den selben Vater haben 
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7.32.1 StdTrees 

Mit diesem Modul lassen sich Bäume mit beliebig vielen Söhnen erzeu¬ 
gen. Voraussetzung, um ein Element in einen solchen Baum einhängen 
zu können, ist, daß die Elemente Nachfolger von Leaf sind. 

PROCEDURE InitCt : Tree); 

Funktion: Bevor man einen Baum benützen kann, muß man den Ba¬ 
sisknoten initialisieren. 

Parameter: 

t Zeiger auf Wurzelknoten, der initalisiert werden 

soll. 

PROCEDURE AddFirstSonCfather,son : Tree); 

Funktion: Fügt in die Liste der Söhne eines Knotens einen weiteren 
am Anfang ein. 

Parameter: 

father Zeiger auf den Vaterknoten, dem ein neuer 

Sohnknoten angehängt werden soll. 

Zeiger auf den Knoten, der als Sohn eingehängt 
werden soll. 


son 
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PROCEDURE AddLastSon(father,son : Tree); 

Funktion: Fügt in die Liste der Söhne eines Knotens einen weiteren 

am Ende ein. 

Parameter: 

father Zeiger auf den Vaterknoten, dem ein neuer 

Sohnknoten angehängt werden soll. 

son Zeiger auf den Knoten, der als Sohn eingehängt 

werden soll. 

PROCEDURE AddNextBrother(treejbrother : Tree); 

Funktion: Fügt in einer Sohnliste hinter einem Knoten einen neuen 

Bruder ein. 

Parameter: 

tree Zeiger auf den Knoten, dem ein neuer Bruderk¬ 

noten angehängt werden soll. 

brother Zeiger auf den Knoten, der als Bruder eingehängt 

werden soll. 

PROCEDURE AddPrevBrother(tree,brother : Tree); 

Funktion: Fügt in einer Sohnliste vor einem Knoten einen neuen Bru¬ 
der ein. 

Parameter: 

tree Zeiger auf den Knoten, dem ein neuer Bruderk¬ 

noten vorangestellt werden soll. 

brother Zeiger auf den Knoten, der als Bruder eingehängt 

werden soll. 
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PROCEDURE Remove(tree : Tree); 

Funktion: Entfernt einen Knoten aus einem Baum. Dabei wird er nur 

aus der Baumstruktur entfernt, jedoch nicht freigegeben. 

Parameter: 

tree Zeiger auf den Knoten, der entfernt werden soll. 

PROCEDURE RemoveSons(father : Tree); 

Funktion: Entfernt alle Söhne eines Knotens aus den Baum. 

Parameter: 

father Zeiger auf den Knoten, dessen Söhne entfernt 

werden sollen. 

TYPE 

Check = PROCEDURE(t : Tree):BOOLEAN; 

PROCEDURE RemoveSons_IF(tree : Tree;if : Check); 

Funktion: Enfernt alle Söhne eines Knotens, für die eine Bedingung 

erfüllt ist. 

Parameter: 

father Zeiger auf den Knoten, dessen Söhne entfernt 

werden sollen. 

if <t= Testprozedur, die jeden Konten übergeben be¬ 

kommt, und TRUE zurückliefern muß, wenn der 
Knoten entfernt werden soll. 

PROCEDURE Remove_IF(tree : Tree;if : Check); 

Funktion: Enfernt alle Knoten eines Baumes, für die eine Bedingung 

erfüllt ist. Parameter: 

tree Zeiger auf den Knoten, mit dem begonnen wer¬ 

den soll. 

if Testprozedur, die jeden Konten übergeben be¬ 

kommt, und TRUE zurückliefern muß, wenn der 
Knoten entfernt werden soll. 
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PROCEDURE Delete(VAR tree : Tree); 

PROCEDURE DeleteSons(father : Tree); 

PROCEDURE DeleteSons_IF(tree : Tree;if : Check); 

PROCEDURE Delete_IF(VAR tree : Tree;if : Check); 

Funktion: Wie die entsprechenden Remove. . .-Funktionen, jedoch wer¬ 
den alle Knoten, die entfernt werden, mit Dispose freigegeben. 

PROCEDURE Destruct(VAR tree : Tree;des : Destructor); 

PROCEDURE DestructSons(father : Tree;des : Destructor); 

PROCEDURE DestructSons_IF(tree : Tree; 

if : Check; 
des : Destructor); 

Funktion: Wie die entsprechenden Remove . . .-Funktionen, jedoch wer¬ 
den alle Knoten, die entfernt werden, mit einer zusätzlich übergebenen 
Destruktorprozedur freigegeben. Mehr Informationen zu diesem Verfah¬ 
ren finden Sie in der Beschreibung von Lists. 

TYPE 

ApplyProc = PROCEDURE(t : Tree); 

PROCEDURE ApplyDepthFirst(tree : Tree; 

Work : ApplyProc); 

Funktion: Wendet eine Funktion auf alle Knoten des Baumes an (Tie¬ 
fensuche). Dabei werden erst alle Nachfolger des ersten Nachfolgers des 
Startknotens besucht, bevor es sich dem zweiten zuwendet. 

Parameter: 

tree Startknoten. 

Work Prozedur, mit der alle Knoten bearbeitet werden 

sollen. 
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PROCEDURE ApplyBreadthFirst(tree : Tree; 

Work : ApplyProc); 

Funktion: Wendet eine Funktion auf alle Knoten des Baumes an (Brei- 
tensuctie). Besucht erst alle direkten Nachfolger eines Knotens, bevor es 
sich deren Nachfolgern zuwendet. 

Parameter: 

tree Startknoten. 

Work Prozedur, mit der alle Knoten bearbeitet werden 

sollen. 

PROCEDURE ApplyDepthFirstBigCtree : Tree; 

pre, 

between, 

post : ApplyProc); 

Funktion: Wie ApplyDepthFirst, jedoch mit dem Unterschied, daß 
man drei Prozeduren mit geben kann. Die eine wird jeweils mit dem 
Knoten aufgerufen, bevor mit dessen Söhnen weitergemacht wird, die 
zweite für jeden Sohn, die Dritte mit dem Knoten nachdem alle seine 
Söhne bearbeitet wurden. Dies geschieht selbstverständlich rekursiv mit 
allen Knoten. Ubergibt man bei einer der Prozeduren NIL, wird diese 
nicht aufgerufen. 

Parameter: 

tree 4= Startknoten. 

pre Prozedur, die vor der Bearbeitung der Söhne 

eines Knotens mit diesem aufgerufen wird. 

between ^ Prozedur, die mit jedem Sohn aufgerufen wird. 

post ^ Prozedur, die nach der Bearbeitung aller Söhne 

eines Knotens mit diesem aufgerufen wird. 



290 


KAPITEL 7. STANDARDMODULE 


PROCEDURE FindDepthFirst(tree : Tree; 

equal : Check):Tree; 

Funktion: Sucht einen Knoten (Tiefensuche). Da das Modul nichts 
über die Datenfelder der Knoten weiß, muß eine Vergleichsprozedur mit¬ 
gegeben werden. 

Parameter: 

tree Startknoten. 

equal Prozedur, die TRUE zurückliefert, wenn der ge¬ 

suchte Knoten gefunden wurde. 

=> Zeiger auf den gefundenen Knoten, oder NIL, 
wenn er nicht gefunden wurde. 

PROCEDURE FindBreadthFirst(tree : Tree; 

equal : Check):Tree; 

Funktion: Wie FindDepthFirst, jedoch in Breitensuche. 

PROCEDURE FindSon(father : Tree; 

equal : Check):Tree; 

Funktion: Sucht einen Knoten in der Liste der Söhne eines Knotens. 

Parameter: 

f ather ^ Knoten, dessen Sohnliste durchsucht werden soll. 

equal Vergleichsprozedur. 

=> Gefundener Knoten, oder NIL, falls kein Knoten 
gefunden wurde, auf den die Bedingung zutraf. 
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PROCEDURE FindNextSon(father : Tree; 

equal : Check; 
son : Tree):Tree; 

Funktion: Sucht in einer Sohnliste ab einem bestimmten Knoten. 

Parameter: 

f ather <^= Knoten, dessen Sohnliste durchsucht werden soll. 

equal Vergleichsprozedur. 

son Knoten, ab dem gesucht werden soll. 

^ Gefundener Knoten, oder NIL, falls kein Knoten 
gefunden wurde, auf den die Bedingung zutraf. 

TYPE 

SaveProc = PROCEDURE(f : File;leaf : Tree); 

PROCEDURE Save(tree : Tree; 

f : File; 

part : SaveProc); 

Funktion: Speichert einen Baum oder einen Teil davon in einer Datei 

ab. 

Parameter: 

tree Knoten, ab dem gespeichert werden soll. 

f Zugriff auf ein mittels FileSystem geöffnetes 

File. 

part Prozedur, die einen einzelnen Knoten in das 

übergebene File schreibt. Wird für jeden Knoten 
einzeln aufgerufen. 
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TYPE 

LoadProc = PROCEDURE(f : File):Tree; 

PROCEDURE Load (VAR tree : Tree; 

f : File; 

pari : LoadProc); 

Funktion: Lädt einen Banm aus einer Datei. 

Parameter: 

f Zugriff auf ein mittels FileSystem geöffnetes 

File. 

part Prozedur, die einen einzelnen Knoten erzeugt, 

und seine Daten aus dem übergebenen File liest. 

Wird für alle Knoten einzeln aufgerufen. 

=> Zeiger auf den Baum. 

7.32.2 CursorTrees 

Dieses Modul ähnelt StdTrees in seiner Funktion, der einzige Unter¬ 
schied ist, daß die Elemente nicht direkt im Baum hängen, sondern nur 
Knoten mit einem Zeiger auf die eigentlichen Elemente. Dadurch kann 
man beliebige Typen in diesem Baum einhängen. Sie müssen keinerlei 
Nachfolger sein. Außerdem können auf diese Weise Elemente in meheren 
Bäumen gleichzeitig hängen. Der Nachteil, man kann nicht vom Element 
aus auf die Baumstruktur zurückgreifen. Aus diesem Grund verwendet 
man einen Cursor, den man innerhalb des Baumes verschieben kann. 
Siehe auch AVLTrees. 

Da die Eunktionen zum gößten Teil mit denen von StdTrees iden¬ 
tisch sind, werden hier nur die wichtigsten beschrieben: 

PROCEDURE Get(VAR tree : Tree):type; 

Funktion: Liefert den Zeiger auf das Element, das an dem Knoten 
hängt, auf den der Cursor gerade zeigt. 

PROCEDURE Mark (VAR tree : Tree); 

Funktion: Markiert einen Knoten im Baum. 
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PROCEDURE GoMarkCVAR tree : Tree); 

Funktion: Setzt den Cursor auf die Marke. 

PROCEDURE FatherCVAR tree : Tree); 

Funktion: Setzt den Cursor auf den Vater des aktuellen Knotens. 
PROCEDURE FirstSon(VAR tree : Tree); 

Funktion: Setzt den Cursor auf den ersten Sohn des aktuellen Knotens. 

PROCEDURE LastSon (VAR tree : Tree); 

Funktion: Setzt den Cursor auf den letzten Sohn des aktuellen Knotens. 


PROCEDURE NextBrother (VAR tree : Tree); 

Funktion: Setzt den Cursor auf den nächsten Bruder des aktuellen 
Knotens. 


PROCEDURE PrevBrother (VAR tree : Tree); 

Funktion: Setzt den Cursor auf den vorherigen Bruder des aktuellen 
Knotens. 

PROCEDURE Root(VAR tree : Tree); 

Funktion: Setzt den Cursor auf den Wurzelknoten des Baumes. 


PROCEDURE HasCursor (VAR tree : Tree):BOOLEAN; 

Funktion: Prüft, ob der Cursor noch auf einen gültigen Wert zeigt, 
wenn nicht, muß er neu positioniert werden. 
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7.33 VectorLongReal / VectorReal 

Dieses Modul stellt zwei neue Typen zur Verfügung: 

• Vektor: Ein Vektor besteht aus drei Komponenten. Man kann ihn 
als Punkt im dreidimensionalen Raum oder als Pfeil vom Ursprung 
des Koordinatensystems zu einem Punkt auffassen. 

• Matrix: Eine Matrix besteht aus drei Vektoren. Diese drei Vek¬ 
toren können als Bilder der Einheitsvektoren entlang der Koordi¬ 
natenachsen aufgefasst werden. Damit legt die Matix eine Abbil¬ 
dung des Koordinatensystems in ein anderes Koordinatensystem 
fest. Das Bild eines Punktes (oder Vektors) läßt sich durch Mul¬ 
tiplikation mit der Matix errechnen. 

Außerdem enthält es Prozeduren und Punktionen für die grundlegende 
Arbeit mit Vektoren und Matrizen. Es existiert jeweils ein Modul für 
Vektoren mit einfacher (VectorReal) sowie eines für Vektoren doppelter 
(VectorLongReal) Genauigkeit zur Verfügung. Da die Prozeduren bis 
auf den Typen jedoch identisch sind, wird hier nur eines von beiden 
abgedruckt: 


DEFINITION MODULE VectorLongReal; 

FROM Exceptions IMPORT DivisionByZero; 
EXCEPTION 

DeterminanteZero : "Determinante is zero"; 


AxisZero 


• 

"Axis 

is zero"; 

TYPE 

Vector = 

ARRAY 

[0. 

.2] 

OF 

LONGREAL; 

Matrix = 

ARRAY 

[0. 

.2] 

OF 

Vector; 
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PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


VNormCVAR v IN 10 : Vector); 

VNeg(v : Vector):Vector; 

VAbsCVAR V IN 10 : Vector):LONGREAL; 

VExt(v : Vector;a : LONGREAL):Vector; 

VAddCREF v : LIST OF Vector):Vector; 

VSub(vl,v2 : Vector):Vector; 

VSMuKVAR vl IN 10,v2 IN 11 : Vector) :LONGREAL; 
VCMul(vl,v2 : Vector):Vector; 

VRotate(VAR v : Vector; VAR axis : Vector); 
VMMuKm : Matrix;v : Vector) :Vector; 

MNorm(VAR m IN 10 : Matrix); 

MNeg(m : Matrix):Matrix; 

DetCVAR m IN 11 : Matrix):LONGREAL; 

MExt(m : Matrix;a : LONGREAL):Matrix; 

MAddCREF m : LIST OF Matrix):Matrix; 

MSub(ml,m2 : Matrix):Matrix; 
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PROCEDURE MMul(ml,m2 : Matrix):Matrix; 

PROCEDURE MTrans(m : Matrix):Matrix; 

PROCEDURE MInvert(m : Matrix):Matrix; 

PROCEDURE CalcRotM(VAR m : Matrix;VAR axis : Vector); 

GROUP 

All = Vector,Matrix,VNorm,VNeg,VAbs,VExt,VAdd,VSub,VSMul, 
VCMul,VRotate,VMMul,MNorm,MNeg,Det,MExt, 

MAdd,MSub,MMul,MTrans,Mlnvert,CalcRotM; 

END VectorLongReal. 


PROCEDURE VNormCVAR v IN 10 : Vector); 

Funktion: Normiert einen Vektor anf Absolntbetrag 1. Ist der Abso- 
Intbetrag von v = 0, so entsteht ein Lanfzeitfehler. 

Parameter: 

V Vektor, der normiert werden soll. 

PROCEDURE VNeg(v : Vector):Vector; 

Funktion: Negiert einen Vektor. Dabei wird jede Komponente mit 
einem Minns versehen. 

Parameter: 

V Vektor, der negiert werden soll. 

=4> Negierter Vektort. 

PROCEDURE VAbsCVAR v IN 10 : Vector):LONGREAL; 

Funktion: Berechnet den Absolntbetrag von v. Der Absolntbetrag ist 
immer >= 0. 
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Parameter: 

V Vektor, dessen Absolutbetrag berechnet werden 
soll. 

^ Betrag, eine reelle Zahl. 

PROCEDURE VExt(v : Vector;a : LONGREAL):Vector; 

Funktion: Multipliziert einen Vektor mit einer REAL-Zahl. 
Parameter: 

V <^= Vektor, der skaliert werden soll. 

a Betrag, um den der Vektor skaliert werden soll. 

^ Skalierter Vektor. 

PROCEDURE VAddCREF v : LIST OF Vector):Vector; 

Funktion: Addiert beliebig viele Vektoren. 

Parameter: 

V ^ Liste von Vektoren, die addiert werden sollen. 

Die Vektoren werden komponentenweise addiert. 

^ Summe der Vektoren. 

PROCEDURE VSub(vl,v2 : Vector):Vector; 

Funktion: Subtrahiert zwei Vektoren. 

Parameter: 

vl, v2 ^ v2 wird von vl abgezogen. Die Vektoren werden 

komponentenweise subtrahiert. 

^ Ergebnisvektor. 

PROCEDURE VSMuKVAR vl IN 10,v2 IN 11 : Vector) :LONGREAL; 

Funktion: Bildet das Skalarprodukt zweier Vektoren. Das Skalarpro¬ 
dukt ist die Summe der Produkte der einzelnen Komponenten. (Es ist 
0, wenn die Eingabevektoren senkrecht zueinander stehen.) 



298 


KAPITEL 7. STANDARDMODULE 


Parameter: 

vl,v2 ^ Bildet das Skalarprodukt von vl und v2. 

=> reelle Zahl (entspricht dem Produkt der Abso- 
lutberäge der Eingabevektoren mal dem cosinus 
des eingeschlossenen Winkels). 

PROCEDURE VCMul(vl,v2 : Vector):Vector; 

Funktion: Bildet das Kreuzprodukt zweier Vektoren. Der Kreuzpro¬ 
duktvektor ist der Vektor, der senkrecht auf beiden Eingabevektoren 
steht und einen Absolutbetrag hat, der dem Produkt der Absolutbeträge 
der beiden Eingabevektoren mal dem sinus des von ihnen eingeschlosse¬ 
nen Winkels entspricht. ( Er ist 0|0|0, wenn vl ein Vielfaches von v2 
ist.) 

Parameter: 

vl,v2 Vektoren, die multipliziert werden sollen. 

=> Kreuzproduktvektor. 

PROCEDURE VRotateCVAR v : Vector; VAR axis : Vector); 

Funktion: Rotiert einen Vektor um eine vorgegebene Achse. Der Win¬ 
kel wird im Bogenmaß durch den Absolutbetrag der Achse angegeben. 

Parameter: 

V Vektor, der rotiert werden soll, 

axis Achse, um die gedreht werden soll. 

PROCEDURE VMMuKm : Matrix ;v : Vector) : Vector; 

Funktion: Multipliziert einen Vektor mit einer Matrix. 

Parameter: 

m Matrix, mit der der Vektor multipliziert werden 

soll. 

v Vektor, der multipliziert werden soll. 

=> Ergebnisvektor. 
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PROCEDURE MNormCVAR m IN 10 : Matrix); 

Funktion: Normiert eine Matrix auf Determinante = 1. Ist die Deter¬ 
minante von m = 0, so entsteht ein Laufzeitfehler. 

Parameter: 

m Matrix, die normiert werden soll. 

PROCEDURE MNegCm : Matrix):Matrix; 

Funktion: Negiert eine Matrix. Jede Komponente wird dabei mit ei¬ 
nem Minus versehen. 

Parameter: 

m Matrix, die negiert werden soll. 

^ Negierte Matrix. 

PROCEDURE DetCVAR m IN 11 : Matrix):L0NGREAL; 

Funktion: Berechnet die Determinante einer Matrix. Die Determinante 
ist eine reelle Zahl, die die Volumensvergrößerung der Abbildung angibt. 

Parameter: 

m Matrix, deren Determinante berechnet werden 

soll. 

^ Reelle Zahl. 

PROCEDURE MExtCm : Matrix;a : LONGREAL):Matrix; 

Funktion: Erweitert eine Matrix um einen Faktor. Jede Komponente 
wird mit dem Faktor multipliziert. 

Parameter: 

m Matrix, die erweitert werden soll, 

a Faktor, um den erweitert werden soll. 

^ erweiterte Matrix. 
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PROCEDURE MAddCREF m : LIST OF Matrix):Matrix; 

Funktion: Addiert eine beliebige Anzahl von Matrizen. 

Parameter: 

m Liste von Matrizen, die addiert werden sollen, 

a Faktor, nm den erweitert werden soll. 

=> erweiterte Matrix. 

PROCEDURE MSub(ml,m2 : Matrix):Matrix; 

Funktion: Subtrahiert zwei Matrizen. Die Matrizen werden kompo- 
nentenweise subtrahiert. 

Parameter: 

ml,m2 Matrizen, die subtrahiert werden sollen. 

=> Ergebnismatrix. 

PROCEDURE MMul(ml,m2 : Matrix):Matrix; 

Funktion: Multipliziert zwei Matrizen. Die Matrizen werden so multi¬ 
pliziert, daß für die Abbildungen gilt: ml nach m2. 

Parameter: 

ml,m2 Matrizen, die multipliziert werden sollen. 

=> Ergebnismatrix. 

PROCEDURE MTrans(m : Matrix):Matrix; 

Funktion: Transponiert eine Matrix. Transponieren bedeutet: Vertau¬ 
schen von Zeilen und Spalten. 

Parameter: 

m <t= Matrix, die transponiert werden soll. 

^ Ergebnismatrix. 
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PROCEDURE MInvert(m : Matrix):Matrix; 

Funktion: Bildet die inverse Matrix. Hat m Determinante = 0, kann 
keine inverse Matrix gebildet werden und es entstellt ein Laufzeitfetiler. 

Parameter: 

m Matrix, die invertiert werden soll. 

^ Ergebnismatrix. 

PROCEDURE CalcRotM(VAR m : Matrix; VAR axis : Vector); 

Funktion: Berechnet die Abbildungsmatrix bezüglich einer Drehung 
um eine beliebige Achse. Ist die Achse der Nullvektor, so entsteht ein 
Laufzeitfehler. 

Parameter: 

m Matrix, die berechnet werden soll, 

axis Achse, um die gedreht werden soll. 
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Dieses Kapitel beschreibt die Module, die benötigt werden, nm die Funk¬ 
tionen des Amiga-Betriebsystems nutzen zu können. Dabei müssen Sie 
sich nicht selbst um das Offnen der Libraries kümmern, da die Module, 
sobald davon eine Prozedur, Variable oder Konstante importiert wird, 
die entsprechende Library automatisch öffnen, und am Programmende 
wieder schliessen. Wird lediglich ein Typ importiert, bleibt die entspre¬ 
chende Library geschlossen. 

Bei der Erstellung haben wir uns bemüht, die C-Includes von Com- 
modore so genau wie möglich nach Cluster umzusetzen. Dabei werden 
Sie — der den Amiga bisher in „C“ programmiert hat — feststellen, 
daß an einigen Stellen, an denen in „C“ ein APTR oder ein void * steht, 
hier ein getypteij^ Pointer zu finden ist, auch wurden an einigen Stel¬ 
len LONGINTs in Prozedurdefinitionen, falls an dieser Stelle nur diskrete 
Werte übergeben werden können (z. B. Dos. SeekO ), in Aufzählungstypen 
umgewandelt. Dadurch ist nun eine noch größere Typsicherheit gewährleistet. 

Der Typ LONGBOOL wurde zur „C“-Kompatibilität eingeführt, da 
„C“ sinnigerweise auch 32-Bit Boolwerte kennt. Bei der Verwendung 
unterscheidet er sich nicht von einem normalen BOOLEAN. Ebenso ein 
LONGCHAR, womit wir entgültig für die Schrift jeder Lebensform dieses 
Universums gewappnet sein dürften. 

Bei Prozeduren, bei denen ein 

REF str : STRING 

angegeben ist, kann man auch einen SysStringPtr, als einen Zeiger auf 
einen „C“-String übergeben. 


^Es wird bei einer Zuweisung ein Typcheck durchgeführt. 
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8.1 Asl 


DEFINITION MODULE Asl; 


FROM System IMPORT SysStringPtr,Regs,PROC; 

FROM Exec IMPORT LibraryPtr; 

FROM Graphics IMPORT TextAttr,DrawModeSet,FontStyleSet,FontFlagSet; 
FROM Utility IMPORT tagUser,TagListPtr,StdTags; 


TYPE 

AslRequesterPtr = POINTER TO AslRequester; 
AslRequester = RECORD END; 


WindowPtr = DEFERRED POINTER Intuition.WindowPtr; 
WBArgPtr = DEFERRED POINTER Workbench.WBArgPtr; 


I don’t extend the following structure, as it will change in the future 


FileRequesterPtr = 
FileRequester = 


POINTER TO FileRequester; 
RECORD OF AslRequester 


reservedl 

ANYPTR; 


f ile 

SysStringPtr; 

dir 

SysStringPtr; 

reserved2 

ANYPTR; 


reservedS 

SHORTCARD; 

reserved4 

SHORTCARD; 

reservedS 

ANYPTR; 


leftEdge 

INTEGER 


topEdge 

INTEGER 


width 

INTEGER 


height 

INTEGER 


reservedS 

INTEGER 


numArgs 

LONGINT 


arglist 

WBArgPtr; 

userData 

ANYPTR; 


reserved? 

ANYPTR; 


reservedS 

ANYPTR; 


pat 

SysStringPtr; 


filename 
directoryname 


END; I note - more 


I Preferred window pos 
I Preferred window size 


for multiselects 
a la WB Args 
Applihandle (you may 
write!!) 


I Pattern match Pointer 
reserved fields follow 


FileFuncFlags = ( 

patGad, 

multiSelect = 3, 

newIDCMP, 
save, 

doMsgFunc, 


doWildFunc, 
fffSl = 31 


ask for pattem gadget 
request multiple selections 
(not for save) 

Force a new IDCMP (if window != NULL) 
for a SAVE Operation 
Called with Object=IDCMP message 
for other window of shared port. 

You must return pointer to Object, 
asl will reply the Object for you 
Called with an Object=AnchorPath, 

ZERO return accepts. 
to make the SET a longword 
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); 

FileFuncFlagSet = SET OF FileFuncFlags; 


I The following additional flags may be passed with the 
1 ASL_ExtFlagsl tag. 


FileExtFlags = ( noFiles, matchDirs, fileefDuminy=31 ); 
FileExtFlagSet = SET OF FileExtFlags; 


FontRequesterPtr = 
FontRequester = 


POINTER TO FontRequester; 

RECORD OF AslRequester 

reservedl : ARRAY [2] OF ANYPTR; 

attr : TextAttr; | Returned TextAttr 

frontPen : SHORTCARD; 1 Returned Pens, 

I if selected 


backPen 

drawMode 

userData 

END; 


SHORTCARD; 
DrawModeSet; 
ANYPTR; 


FontFuncFlags 

FontFuncFlagSet 


= (frontColor, backColor, styles, drawMode, fixedWidth, 
newidcmp, doMsgFunc, doWildFunc, fontffDummy = 31); 

= SET OF FontFuncFlags; 


RequestType 


(fileRequest, fontRequest); 


ModeArray 


= ARRAY OF SysStringPtr; 


AslTags = TAGS OF StdTags 

dummy 

hail 

window 

leftEdge 

topEdge 

width 

height 

hookFunc 

f ile 

dir 

fontName 

fontHeight 

fontStyles 

fontFlags 

frontPen 

backPen 

minHeight 

maxHeight 

okText 

cancelText 

fileFuncFlags 

f ontFuncFlags 

modeList 

extFlagsl 


tagUser +$80000; 
SysStringPtr; 
WindowPtr; 
LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

PROC; 


SysStringPtr; 
SysStringPtr; 
SysStringPtr; 
LONGCARD; 


FontStyleSet; 
FontFlagSet; 
LONGCARD; | 

SHORTCARD 

LONGCARD; | 

SHORTCARD 

LONGCARD; | 

CARDINAL 

LONGCARD; | 

SysStringPtr; 
SysStringPtr; 
FileFuncFlagSet; 

CARDINAL 


tagUser+ $80000 + 20 : FontFuncFlagSet; 
: POINTER TO ModeArray; 

: FileExtFlagSet; 
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pattem = tagUser+ $80000 + 10 : SysStringPtr; 

END; 

AslTagAPtr = POINTER TO AslTagA; 

AslTagA = ARRAY OF AslTags; 

VAR 

AslBase : LibraryPtr; 

LIBRARY AslBase BY -30 

PROCEDURE AllocFileRequest0: FileRequesterPtr; 

LIBRARY AslBase BY -36 

PROCEDURE FreeFileRequest( fileReq IN AO : FileRequesterPtr ); 

LIBRARY AslBase BY -42 

PROCEDURE RequestFileC fileReq IN AO: FileRequesterPtr ): BOOLEAN; 

LIBRARY AslBase BY -48 

PROCEDURE AllocAslRequest(type IN DO: RequestType; 

tagList IN AO: LIST OF AslTags): AslRequesterPtr 


LIBRARY AslBase BY -48 

PROCEDURE AllocAslRequestA( type IN DO: RequestType; 

tagList IN AO: AslTagAPtr ): AslRequesterPtr; 


LIBRARY AslBase BY -54 

PROCEDURE FreeAslRequest( request IN AO: AslRequesterPtr ); 
LIBRARY AslBase BY -60 

PROCEDURE AslRequestC request IN AO: AslRequesterPtr; 

tagList IN Al: LIST OF AslTags ): BOOLEAN; 


LIBRARY AslBase BY -60 

PROCEDURE AslRequestAC request IN AO: AslRequesterPtr; 

tagList IN Al: AslTagAPtr ): BOOLEAN; 


GROUP 

ProcGrp = AllocAslRequest,AllocAslRequestA,AllocFileRequest, 

AslRequest,AslRequestA.FreeAslRequest, 
FreeFileRequest jRequestFile; 

TypeGrp = AslTagA,AslTagAPtr.AslTags.ModeArray, 

FileExtFlags,FileExtFlagSet,FileFuncFlags, 
FileFuncFlagSet.FileRequester.FileRequesterPtr, 
FontFuncFlags.FontFuncFlagSet.FontRequester, 
FontRequesterPtr,RequestType; 

All = TypeGrp,ProcGrp; 


END Asl. 
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8.2 Audio 


DEFINITION MODULE Audio; 


I Groups in this module ( in this order ): 

1 AudioGrp All 

(* $A- *) 

FROM T_Exec IMPORT NoFreeSignal,OpenError,lOCommand,lOFlagSet, 

lOFlags,lORequest,lOReturn,Message,nonstdVAL; 
FROM Resources IMPORT ContextPtr; 

CONST 


I System Constants 
hardChannels = 4; 

minPrec = -128; 

maxPrec = 127; 


I values for 

free 

setPrec 

finish 

perVol 

lock 

waitCycle 

allocate 

noUnit 


lORequest.command 

= lOCommand( nonstdVAL + 0 
= lOCommand( nonstdVAL + 1 
= lOCommand( nonstdVAL + 2 
= lOCommand( nonstdVAL + 3 
= lOCommand( nonstdVAL + 4 
= lOCommand( nonstdVAL + 5 
= 32; 

= allocate; 


); 

); 

); 

); 

); 

); 


I values for lORequest.flags 


pervol 

syncCycle 

noWait 

writeMessages 


IOFlagSet:{ 104 } 
I0FlagSet:{ 105 } 
I0FlagSet:{ 106 } 
I0FlagSet:{ 107 } 


I errors returned in lORequest.error 


noAllcation 
allocFailed 
channelStolen 


= lOReturn( $F6 ) 
= lOReturn( $F5 ) 
= lOReturn( $F4 ) 


TYPE 


lOAudioPtr = 
lOAudio = 


POINTER TO lOAudio; 
RECORD OF lORequest 


allocKey 

data 

length 

period 

volume 

cycles 

writeMsg 

END; 


INTEGER; 

ANYPTR; 

LONGCARD 

CARDINAL 

CARDINAL 

CARDINAL 

Message; 
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I OpenAudio 

I 

I try to open the audio.device. 

1 EXCEPTION NoFreeSignal OpenError 

I 

PROCEDURE OpenAudio(context : ContextPtr:=NIL) : lOAudioPtr; 

I CloseAudio 

I dose the audio device associated with the request. 

I will be called if forgotten. 

PROCEDURE CloseAudio (VAR request : lOAudioPtr); 

GROUP 

AudioGrp = hardChannels,minPrec,maxPrec,free,setPrec,finish, 

perVol,lock,waitCycle,noUnit,allocate,pervol,syncCycle, 
noWait,writeMessages,noAllcation,allocFailed, 
channelStolen,lOAudio,lOAudioPtr,OpenAudio,CloseAudio; 

All = AudioGrp; 

END Audio. 
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8.3 BattClockResource 

DEFINITION MODULE BattClockResource; 

(* $A- *) 

IS. Herr, 01.10.1992 

FROM Exec IMPORT LibraryPtr; 

FROM System IMPORT Regs; 

VAR 

BattClockBase : LibraryPtr; 

LIBRARY BattClockBase BY -6 
PROCEDURE ResetBattClockO ; 

LIBRARY BattClockBase BY -12 

PROCEDURE ReadBattClockO:L0NGCARD; 

LIBRARY BattClockBase BY -18 

PROCEDURE WriteBattClock(amigaTime IN DO : LONGCARD); 


END BattClockResource. 
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8.4 BattMemResource 

DEFINITION MODULE BattMemResource; 

(* $A- *) 

IS. Herr, 01.10.1992 

FROM Exec IMPORT LibraryPtr; 

FROM System IMPORT Regs; 

IBit-Offsets & Längen 
CONST 

IAmiga-spezifisch : Bits 0-31 
amigaAmnesiaAddr = 0; 
amigaAmnesiaLen = 1; 
scsiTimeoutAddr = 1; 
scsiTimeoutLen = 1; 
scsiLUnsAddr = 2; 

scsiLUnsLen = 1; 


1AMIX-spezisfisch 

: Bits 

32-63 

1Shared 

: Bits 

64 und höher 

sharedAmne siaAddr 

= 64; 


sharedAmne siaLen 

= 1; 


scsiHostldAddr 

= 65; 


scsiHostldLen 

= 3; 


scsiSyncXferAddr 
scsiSyncXferLen 

= 68; 

= 1; 



VAR 

BattMemBase : LibraryPtr; 

LIBRARY BattMemBase BY -6 

PROCEDURE ObtainBattSemaphore(); 

LIBRARY BattMemBase BY -12 

PROCEDURE ReleaseBattSemaphore0:LONGCARD; 

IAchtung: ReadBattMem erfolgreich, wenn Rückgabewert FALSE ist! 
LIBRARY BattMemBase BY -18 

PROCEDURE ReadBattMem( buffer IN AO : ANYPTR; 

Offset IN DO : LONGCARD; 

len IN Dl : LONGCARD):L0NGB00L; 

LIBRARY BattMemBase BY -24 

PROCEDURE WriteBattMemC buffer IN AO : ANYPTR; 

Offset IN DO : LONGCARD; 

len IN Dl : LONGCARD):LONGBOOL; 


END BattMemResource. 
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8.5 Bullet 


(* $A- *) 

DEFINITION MODULE Bullet; 


FROM Utility 
FROM System 
FROM Exec 


IMPORT StdTags; 

IMPORT Regs,SysStringPtr; 
IMPORT LibraryPtr; 

IMPORT Resources; 


TYPE 

Fixed 


= RECORD 

IF KEY : BOOLEAN 
OF TRUE THEN long 
OF FALSE THEN int 

f ract 


END 

END; 


LONGINT; 

INTEGER; 

CARDINAL; 


GlyphMapPtr 

GlyphMap 


= POINTER TO GlyphMap; 
= RECORD 


bytesPerRow 

INTEGER; 

rows 

INTEGER; 

leftBlank, 


topBlank, 


widthUsed, 


heightUsed 

INTEGER; 

xorg,yorg 

Fixed; 

xO,yO, 


xl,yl 

INTEGER; 

width 

Fixed; 

map 

ANYPTR; 


END; 


Coord 


= RECORD x,y : INTEGER END; 


GlyphWidthNodePtr = POINTER TO GlyphWidth; 


GlyphWidth 

= RECORD OF 

Exec 

.MinNode; 



pad : 

SHORTCARD; 



Code : 

CHAR; 



width : 

Fixed; 



END; 




GlyphTags 

= TAGS OF StdTags; 




deviceDPI 

= 

$80000001 

Coord; 


dotSize 

= 

$80000002 

Coord; 


pointHeight 


$80000008 

Fixed; 


pointHeightL = 

$80000008 

LONGINT; 


setFactor 

= 

$80000009 

Fixed; 


setFactorL 

= 

$80000009 

LONGINT; 


shearSin 

= 

$8000000A 

Fixed; 


shearSinL 

= 

$8000000A 

LONGINT; 


shearCos 

= 

$8000000B 

Fixed; 


shearCosL 

= 

$8000000B 

LONGINT; 


rotateSin 

= 

$80000000 

Fixed; 
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rotateSinL 

= 

$80000000 

LONGINT; 

rotateCos 

= 

$8000000D 

Fixed; 

rotateCosL 

= 

$80000000 

LONGINT; 

emboldenX 

= 

$8000000E 

Fixed; 

emboldenXL 

= 

$8000000E 

LONGINT; 

emboldenY 

= 

$8000000F 

Fixed; 

emboldenYL 

= 

$8000000F 

LONGINT; 

pointSize 

= 

$80000010 

LONGINT; | in 16tel Punkt 



1 = 1/72" 

glyphCode 

= 

$80000011 

LONGCHAR; 

glyphCode2 

= 

$80000012 

LONGCHAR; 

glyphWidth 

= 

$80000013 

Fixed; 

glyphWidthL 

= 

$80000013 

LONGINT; 

tagPath 

= 

$80008014 

SysStringPtr; 

tagList 

= 

$80008015 

ANYPTR; 

glyphMap 

= 

$80008020 

GlyphMapPtr; 

widthList 

= 

$80008021 

Exec.MinListPtr; 

kernPair 

= 

$80008022 

ANYPTR; 

designKernPair 

: ANYPTR; 

fileident 


$80001001 

LONGINT; 

engine 

= 

$80009002 

SysStringPtr; 

family 

= 

$80009003 

SysStringPtr; 

boldName 

= 

$8000A005 

SysStringPtr; 

italicName 

= 

$8000A006 

SysStringPtr; 

biName 

= 

$8000A007 

SysStringPtr; 

symbolSet 

= 

$80001010 

LONGINT; 

ySizeFactor 

= 

$80001011 

LONGINT; | ??? 

spaceWidth 

= 

$80002012 

LONGINT; 

isFixed 

= 

$80002013 

LONGBOOL; 

SerifFlag 

= 

$80001014 

LONGBOOL; 

stemWeight 

= 

$80001015 

LONGINT; | 128 

slantStyle 

= 

$80001016 

LONGINT; 

horizStyle 

= 

$80001017 

LONGINT; | 128 

spaceFactor 

= 

$80002018 

Fixed; 

dummy 

= 

$80002019 

LONGINT; 

availSizes 

= 

$80009020 

POINTER TO ARRAY OF CARDINAL 

specCount 

= 

$80001100 

LONGINT; 


END; 









12 


KAPITEL 8. SCHNITTSTELLENMODULE 


ReqGlyphTags = TAGS OF StdTags; 


deviceDPI 

= 

$80000001 

POINTER 

TO 

Coord; 

dotSize 

= 

$80000002 

POINTER 

TO 

Coord; 

pointHeight 

= 

$80000008 

POINTER 

TO 

Fixed; 

setFactor 

= 

$80000009 

POINTER 

TO 

Fixed; 

shearSin 

= 

$8000000A 

POINTER 

TO 

Fixed; 

shearCos 

= 

$80000008 

POINTER 

TO 

Fixed; 

rotateSin 

= 

$8000000C 

POINTER 

TO 

Fixed; 

rotateCos 

= 

$8000000D 

POINTER 

TO 

Fixed; 

emboldenX 

= 

$8000000E 

POINTER 

TO 

Fixed; 

emboldenY 

= 

$8000000F 

POINTER 

TO 

Fixed; 

pointSize 

= 

$80000010 

POINTER 

TO 

LONGINT; 




1 in 16tel Punkt = 1/72" 

glyphCode 

= 

$80000011 

POINTER 

TO 

LONGCHAR; 

glyphCode2 

= 

$80000012 

POINTER 

TO 

LONGCHAR; 

glyphWidth 

= 

$80000013 

POINTER 

TO 

Fixed; 

tagPath 

= 

$80008014 

POINTER 

TO 

SysStringPtr; 

tagList 

= 

$80008015 

POINTER 

TO 

ANYPTR; 

glyphMap 

= 

$80008020 

POINTER 

TO 

GlyphMapPtr; 

widthList 

= 

$80008021 

POINTER 

TO 

ANYPTR; 

kernPair 

= 

$80008022 

POINTER 

TO 

ANYPTR; 

designKernPair 

: POINTER TO ANYPTR; 

fileident 

_ 

$80001001 

POINTER 

TO 

LONGINT; 

engine 

= 

$80009002 

POINTER 

TO 

SysStringPtr; 

family 

= 

$80009003 

POINTER 

TO 

SysStringPtr; 

boldName 

= 

$8000A005 

POINTER 

TO 

SysStringPtr; 

italicName 

= 

$8000A006 

POINTER 

TO 

SysStringPtr; 

biName 

= 

$8000A007 

POINTER 

TO 

SysStringPtr; 

symbolSet 

= 

$80001010 

POINTER 

TO 

LONGINT; 

ySizeFactor 

= 

$80001011 

POINTER 

TO 

LONGINT; | ??? 

spaceWidth 

= 

$80002012 

POINTER 

TO 

LONGINT; 

isFixed 

= 

$80002013 

POINTER 

TO 

LONGBOOL; 

serifFlag 

= 

$80001014 

POINTER 

TO 

LONGBOOL; 

stemWeight 

= 

$80001015 

POINTER 

TO 

LONGINT; | 128 

slantStyle 

= 

$80001016 

POINTER 

TO 

LONGINT; 

horizStyle 

= 

$80001017 

POINTER 

TO 

LONGINT; | 128 

spaceFactor 

= 

$80002018 

POINTER 

TO 

Fixed; 

availSizes 

= 

$80009020 

POINTER 

TO 

POINTER TO 




ARRAY 

OF 

CARDINAL; 

specCount 

= 

$80001100 

POINTER 

TO 

LONGINT; 


END; 


GlyphTagList = ARRAY OF GlyphTags; 
ReqGlyphTagList= ARRAY OF ReqGlyphTags; 
GlyphTagListPtr= POINTER TO GlyphTagList; 
ReqGlyphTagListPtr= POINTER TO GlyphTagList; 


GlyphEnginePtr = POINTER TO GlyphEngine; 
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DEFINITION MODULE GlyphRes = Resources.ResHandles(GlyphEnginePtr); 
TYPE 

GlyphEngine = RECORD OF GlyphRes.ResHandle; 

END; 

GlyphErrors = (failure = -1, 

ok, 

badTag,unknownTag,badData,noMemory, 
noF ace,noGlyph,badGIyph,noShear, 
noRotate,tooSmall, 
unknownGlyph, 

makeMeLong = $10000); 

VAR BulIetBase : LibraryPtr; 


LIBRARY BulIetBase BY -36 

PROCEDURE CloseEngine(engineHandle IN AO : GlyphEnginePtr); 

LIBRARY BulIetBase BY -60 

PROCEDURE GetGIyphMapC engineHandle IN AO : GlyphEnginePtr; 

glyphCode IN DO : LONGCHAR; 

VAR glyph IN Al : GlyphMapPtr):GlyphErrors; 

LIBRARY BulIetBase BY -48 

PROCEDURE ObtainlnfoACengineHandle IN AO : GlyphEnginePtr; 

tagList IN Al : ReqGlyphTagListPtr):GlyphErrors; 

LIBRARY BulIetBase BY -48 

PROCEDURE ObtainlnfoC engineHandle IN AO : GlyphEnginePtr; 

VAR tags IN Al : LIST OF GlyphTags):GlyphErrors 

LIBRARY BulIetBase BY -30 

PROCEDURE OpenEngine():GlyphEnginePtr; 

LIBRARY BulIetBase BY -54 

PROCEDURE ReleaselnfoA(engineHandle IN AO : GlyphEnginePtr; 

tagList IN Al : GlyphTagListPtr):GlyphErrors; 


LIBRARY BulIetBase BY -54 

PROCEDURE Releaselnfo(engineHandle IN AO : GlyphEnginePtr; 

tags IN Al : LIST OF GlyphTags):GlyphErrors; 

LIBRARY BulIetBase BY -42 

PROCEDURE SetinfoA(engineHandle IN AO : GlyphEnginePtr; 

tagList IN Al : GlyphTagListPtr):GlyphErrors; 
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LIBRARY BulletBase BY -42 

PROCEDURE SetinfoCengineHandle IN AO : GlyphEnginePtr; 

tagList IN Al : LIST OF GlyphTags):GlyphErrors; 


GROUP 

All = Fixed,GlyphMapPtr,GlyphTags,GlyphTagList, 

ReqGlyphTags jReqGlyphTagList.GlyphEnginePtr, 
GlyphErrors,Coord,GlyphWidthNodePtr, 

CloseEngine,GetGlyphMap,ObtainInfoA,ObtainInfo, 
OpenEngine jReleaselnfoAjReleaselnfo,SetInfoA,SetInfo; 


END Bullet. 
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8.6 CiaaResource 


DEFINITION MODULE CiaaResource; 

$A- *) 

FROM Exec IMPORT InterruptPtr,Resource,ResourcePtr,Interrupt,IntVector; 
FROM Hardware IMPORT CialcrFlagSet,IntFIagSet,CiaIcrFlags; 

FROM System IMPORT Regs; 

VAR 

CiaaBase : ResourcePtr; 


LIBRARY CiaaBase BY -18 

PROCEDURE Ablelcr(mask IN DO : CialcrFlagSet): CialcrFlagSet; 


LIBRARY CiaaBase BY -6 

PROCEDURE AddICRVectorCicrBit IN DO 

Interrupt IN Al 


CialcrFlags; 

InterruptPtr):InterruptPtr; 


LIBRARY CiaaBase BY -12 

PROCEDURE RemICRVector(icrBit IN DO 

Interrupt IN Al 


CialcrFlags; 
InterruptPtr); 


LIBRARY CiaaBase BY -24 

PROCEDURE SetICR(mask IN DO : CialcrFlagSet):CialcrFlagSet; 


GROUP 

All = CiaaBase,AbleIcr,AddICRVector,RemICRVector,SetICR; 
END CiaaResource. 



16 


KAPITEL 8. SCHNITTSTELLENMODULE 


8.7 CiabResource 

DEFINITION MODULE CiabResource; 

(* $A- *) 

FROM Exec IMPORT InterruptPtr,Resource,ResourcePtr,Interrupt,IntVector 
FROM Hardware IMPORT CialcrFIagSet,IntFlagSet,CialcrFlags; 

FROM System IMPORT Regs; 

TYPE 


VAR 

CiabBase : ResourcePtr; 


LIBRARY CiabBase BY -18 

PROCEDURE Ablelcr(mask IN DO : CialcrFIagSet): CialcrFIagSet; 
LIBRARY CiabBase BY -6 

PROCEDURE AddICRVector(icrBit IN DO : CialcrFlags; 

Interrupt IN Al : InterruptPtr):InterruptPtr; 


LIBRARY CiabBase BY -12 

PROCEDURE RemICRVector(icrBit IN DO 

Interrupt IN Al 


: CialcrFlags; 

: InterruptPtr); 


LIBRARY CiabBase BY -24 

PROCEDURE SetICR(mask IN DO : CialcrFIagSet):CialcrFIagSet; 


GROUP 

All = CiabBase,Ablelcr,AddICRVector,RemICRVector,SetICR; 


END CiabResource. 
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8.8 Clipboard 

DEFINITION MODULE Clipboard; 
(* $A- *) 


FROM T_Exec IMPORT nonstdVAL,NoFreeSignal,OpenError, 

Node »Message,IOStdReq,DevicePtr,lOFlagSet, 
lOCommand,lOReturn,UnitPtr; 

FROM Resources IMPORT ContextPtr; 


CONST 

primaryClip = 0; 

+ 0 ) ; 
+ 1 ) ; 
+ 2 ); 
+ 3 ) ; 

obsoleteld = I0Return( 1 ); 


post 

currentReadId 

currentWrite 

changeHook 


= lOCommaudC nonstdVAL 
= lOCommaudC nonstdVAL 
= lOCommand( nonstdVAL 
= lOCommand( nonstdVAL 


TYPE 

ClipboardUnitPartialPtr = POINTER TO ClipboardUnitPartial; 
ClipboardUnitPartial = RECORD OF Node 

unitNum : LONGCARD 
END; 


lOClipboardPtr = POINTER TO lOClipboard; 

lOClipboard = RECORD OF lOStdReq 

clipID : LONGINT; 

END; 


SatisfyMsgPtr 
SatisfyMsg 


POINTER TO SatisfyMsg; 
RECORD OF Message 
unit : CARDINAL; 
clipID : LONGINT; 
END; 


ClipHookMsgPtr = POINTER TO ClipHookMsg; 

ClipHookMsg = RECORD 

type : LONGCARD; 

changeCmd : LONGINT; 
ClipID : LONGCARD; 
END; 


PROCEDURE OpenClipboardC unit : CARDINAL := primaryClip; 

context : ContextPtr:=NIL): lOClipboardPtr; 


PROCEDURE CloseClipboardC VAR request : lOClipboardPtr ); 
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GROUP 

All = post, 

currentWrite, 
ClipboardUnitPartial, 
lOClipboard, 
primaryClip, 

SatisfyMsgPtr, 
OpenClipboard, 

T_Exec.ExecIDGrp; 

currentReadld, 
obsoleteld, 

ClipboardUnitPartialPtr, 
lOClipboardPtr, 

SatisfyMsg, 

CloseClipboard, 

END Clipboard. 
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8.9 Commodities 

DEFINITION MODULE Commodities; 

FROM Exec IMPORT LibraryPtr, MsgPortPtr, TaskPtr, TaskSignals; 

FROM Input IMPORT Qualifiers, QualifierSet, InputEventPtr; 

FROM System IMPORT SysStringPtr, Regs, PROC; 


TYPE 

KeyMapPtr 

= DEFERRED POINTER KeyMap.KeyMapPtr; 

CxBrokerErr 

= (ok, sysErr, dup, Version); 

CONST 

NBVersion 

= 5; 

TYPE 

UniqueFlags 

UniqueFlagSet 

= (unique, notify, dummy = 15); 

= SET OF UniqueFlags; 


NewBrokerFIags = (showHide = 2, dummy = 15); 
NewBrokerFIagSet= SET OF NewBrokerFIags; 

NewBrokerPtr = POINTER TO NewBroker; 


NewBroker 

= RECORD 

Version : SHORTINT; | := NBVersion 

name : SysStringPtr; 

title : SysStringPtr; 

descr : SysStringPtr; 

unique : UniqueFlagSet; 

flags : NewBrokerFlagSet; 

pri : SHORTINT; 

port : MsgPortPtr; 

reservedChannel : INTEGER; 

END; 

CxObjPtr 

CxMsgPtr 

= HIDDEN; 

= POINTER TO RECORD OF Exec.Message END; 

PFL 

= PROCEDUREO iLONGINT; 
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CxDbjType 


invalid 

filter 

typefilter 

send 

Signal 

translate 

broker 

debug 

custom 

zero 


= (invalid, filter, typefilter, 
Sender, Signal, translate, 
broker, debug, custom, zero); 

not a valid object (probably null) 
input event messages only 
filter on message type 
sends a message 
sends a Signal 
translates lE into chain 
application repräsentative 
dumps kprintf to serial port 
application provids function 
System terminator node 


CxMsg 

= (uniqu€ 

=4, iEvent, command); 

CxMsgTypes 

= SET OF 

CxMsg; 


CxMsgCommands = 

(disable 

= 15, 

1 disable yourself 


enable 

= 17, 

1 enable yourself 


appear 

= 19, 

1 open your window 


disappear = 21, 

1 dose the window 


kill 

= 23, 

1 terminate yourself 


unique 

= 25, 

1 someone tried to create 




1 a unique broker 


listChg 

= 27); 

1 someone changed broker list 

BrokerCommandErr 

= (noMem 

= -3, noPort, noBroker, ok); 


CxDbjErrs 

CxDbjErrSet 


= (isNull, nullAttach, badFilter, badType); 
= SET OF CxObjErrs; 


I isNull 
1 nullAttach 
1 badFilter 
1 badType 


you called CxError(NULL) 
someone attached NULL to my list 
a bad filter description was given 
unmatched type-specific Operation 


CONST 

IXVersion = 2; 


TYPE 

QualSameld 

QualSameSet 


= (shift, caps, alt); 
= SET OF QualSameld; 
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InputXpressionPtr 
InputXpression = 


IX 

IXPtr 


POINTER TO InputXpression; 
RECORD 
Version 
dass 
Code 

codeMask 
qualifier 
qualMask 
quälSame 
END; 

InputXpression; 
InputXpressionPtr; 


SHORTCARD; | 
SHORTCARD; | 
CARDINAL; 
CARDINAL; | 
CARDINAL; 
CARDINAL; 
QualSameSet; 


must be set to IX_VERSION 
dass must match exactly 

normally used for UPCODE 
I Synonyms in qualifier 


IXErr 


(noDescription = - 2 , tokensAfterEnd, ok); 


CONST 

shiftMask 
capsMask 
altMask 
normalquals 


= QualifierSet:{iShift,rShift}; 

= shiftMask + QualifierSet:{capsLock}; 
= QualifierSet:{lAlt, rAlt}; 

= QualifierSet:{iShift..leftButton}; 


VAR 

CxBase : LibraryPtr; 


LIBRARY CxBase BY -30 

PROCEDURE CreateCxObj(type IN DO: 

argl IN AO: 
arg2 IN Al: 


CxObjType; 

ANYPTR; 

ANYPTR) : CxObjPtr; 


LIBRARY CxBase BY -36 

PROCEDURE CxBroker(REF nb IN AO: NewBroker; 

VAR error IN DO: CxBrokerErr) : CxObjPtr; 


LIBRARY CxBase BY -42 

PROCEDURE ActivateCxObj(co IN AO: CxObjPtr; 

true IN DO: LONGBOOL): LONGBOOL; 
(=t= TRUE: active, FALSE inactive *) 


LIBRARY CxBase BY -48 

PROCEDURE DeleteCxObj(co IN AO: CxObjPtr); 

LIBRARY CxBase BY -54 

PROCEDURE DeleteCxObjAll(co IN AO: CxObjPtr); 

LIBRARY CxBase BY -60 

PROCEDURE GetCxObjType(co IN AO: CxObjPtr) : CxObjType; 
LIBRARY CxBase BY -66 

PROCEDURE CxObjError(co IN AO: CxObjPtr): CxObjErrSet; 
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LIBRARY CxBase BY -72 

PROCEDURE ClearCxObjError(co IN AO: CxObjPtr); 

LIBRARY CxBase BY -78 

PROCEDURE SetCxObjPri(co IN AO: CxObjPtr; 

pri IN DO: LONGINT) (*** Should be SHORTINT***); 


LIBRARY CxBase BY -84 

PROCEDURE AttachCxObj(headObj IN AO: CxObjPtr; 

co IN Al: CxObjPtr); 


LIBRARY CxBase BY -90 

PROCEDURE EnqueueCxObj(headObj IN AO: CxObjPtr; 

co IN Al: CxObjPtr); 


LIBRARY CxBase BY -96 

PROCEDURE InsertCxObj(headObj IN AO: CxObjPtr; 

co IN Al: CxObjPtr; 

pred IN A2: CxObjPtr); 


LIBRARY CxBase BY -102 

PROCEDURE RemoveCxObj(co IN AO: CxObjPtr); 


LIBRARY CxBase BY -114 

PROCEDURE SetTranslate(translator IN AO: CxObjPtr; 

events IN Al: InputEventPtr); 


LIBRARY CxBase BY -120 

PROCEDURE SetFilter( filter IN AO: CxObjPtr; 

REF text IN Al: STRING); 

LIBRARY CxBase BY -126 

PROCEDURE SetFilterIX(filter IN AO: CxObjPtr; 

ix IN Al: IXPtr); 


LIBRARY CxBase BY -132 

PROCEDURE ParseIX(REF description IN AO: STRING; 

ix IN Al: IXPtr) :IXErr; 


LIBRARY CxBase BY -138 

PROCEDURE CxMsgType(cxm IN AO: CxMsgPtr) : CxMsgTypes; 
LIBRARY CxBase BY -144 

PROCEDURE CxMsgData(cxm IN AO: CxMsgPtr) : ANYPTR; 

LIBRARY CxBase BY -150 

PROCEDURE CxMsgID(cxm IN AO: CxMsgPtr) : LONGINT; 

LIBRARY CxBase BY -150 

PROCEDURE CxMsgCoinmand(cxm IN AO: CxMsgPtr) : CxMsgCommands; 
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LIBRARY CxBase BY -156 

PROCEDURE DivertCxMsgCcxm IN AO: CxMsgPtr; 

headobj IN Al: CxDbjPtr; 
ret IN A2: CxDbjPtr); 


LIBRARY CxBase BY -162 

PROCEDURE RouteCxMsgCcxm IN AO: CxMsgPtr; 

CO IN Al: CxDbjPtr); 


LIBRARY CxBase BY -168 

PROCEDURE DisposeCxMsgCcxm IN AO: CxMsgPtr); 

LIBRARY CxBase BY -174 

PROCEDURE InvertKeyMapCansicode IN DO: LONGCARD; 

event IN AO: InputEventPtr; 
km IN Al: KeyMapPtr) : BOOLEAN; 


LIBRARY CxBase BY -180 

PROCEDURE AddlEvents(events IN AO: InputEventPtr); 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


CxFiIter(REF des : STRING):CxDbjPtr; 

CxSender(port : MsgPortPtr;id : LONGINT):CxDbjPtr; 
CxSignal(task : TaskPtr;sig : TaskSignals):CxObjPtr; 
CxTranslate(ie : InputEventPtr):CxDbjPtr; 
CxCustom(action : PROC;id : LONGINT):CxObjPtr; 


END Commodities. 
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8.10 Console 


DEFINITION MODULE Console; 
(* $A- *) 

FROM T_Exec 


FROM Input 
FROM KeyMap 
FROM System 
FROM Resources 


IMPORT lOCommand,nonstdVAL,lOStdReqPtr,LibraryPtr, 
lOStdReq; 

IMPORT InputEventPtr; 

IMPORT KeyMapPtr; 

IMPORT Regs; 

IMPORT ContextPtr; 


CONST 

askKeyMap 
setKeyMap 
askDefaultKeyMap 
setDefaultKeyMap 


lOCommand(nonstdVAL+0); 
lOCommand(nonstdVAL+1); 
lOCommand(nonstdVAL+2); 
lOCommand(nonstdVAL+3); 


primärV = 0 
bold = 1 
Italic = 3 
underScore = 4 
negative = 7 


I(V36) 


normal 

= 22; 

notItalic 

= 23; 

notUnderscore 

= 24; 

positive 

= 27; 

black 

= 30; 

red 

= 31; 

green 

= 32; 

yellow 

= 33; 

blue 

= 34; 

magenta 

= 35; 

cyan 

= 36; 

white 

= 37; 

default 

= 39; 

blackBg 

= 40; 

redBg 

= 41; 

greenBg 

= 42; 

yellowBg 

= 43; 

blueBg 

= 44; 

magentaBg 

= 45; 

cyanBg 

= 46; 

whiteBg 

= 47; 

defaultBg 

= 49; 

clrO 

= 30; 

clrl 

= 31; 

clr2 

= 32; 

clr3 

= 33; 

clr4 

= 34; 

clr5 

= 35; 

clr6 

= 36; 
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clr7 

= 

37; 

clrOBg 

= 

40; 

clrlBg 

= 

41; 

clr2Bg 

= 

42; 

clrSBg 

= 

43; 

clr4Bg 

= 

44; 

clrBBg 

= 

45; 

clr6Bg 

= 

46; 

clr7Bg 

= 

47; 

dsrCpr 

= 

6; 

ctcHSetTab 

= 

0; 

ctcHClrTab 

= 

2; 

ctcHClrTabsAll 

= 

5; 

tbcHClrTab 

= 

0; 

tbcHClrTabsAll 

= 

3; 

mLnm 


20; 

mAsm 

= 

">1 

mAwm 

= 

"?7 


IDefinition der verschiedenen Console Units für OpenDeviceO 
CONST 

library = -1; 

Standard = 0; 

I(V36) 

charMap = 1; 
snipMap = 3; 

iNeue Flags für OpenDeviceO “ (V37) 

TYPE 

ConFlags = (nodraw0nNewsize,duinmy=31) ; 

ConFlagSet = SET OF ConFlags; 

VAR 

ConsoleBase : LibraryPtr; 

PROCEDURE OpenConsole(window : ANYPTR; 

unit : LONGCARD := Standard; 

flags := ConFlagSet:{}; 

context : ContextPtr := NIL): lOStdReqPtr; 

PROCEDURE CloseConsole (VAR request : lOStdReqPtr); 

LIBRARY ConsoleBase BY -42 

PROCEDURE CDInputHandler(events IN AO : InputEventPtr; 

devicel IN Al : ANYPTR):InputEventPtr; 
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LIBRARY ConsoleBase BY -48 

PROCEDURE RawKeyConvert(events IN AO : InputEventPtr; 

buffer IN Al : ANYPTR; 



length IN Dl : LONGINT; 

keyMap IN A2 : KeyMapPtr):LONGINT; 

GROUP 

UnitGrp 

= library,Standard,charMap,snipMap,ConFlags, 
ConFlagSet; 

CommandGrp 

= askKeyMap,setKeyMap,askDefaultKeyMap, 

StyleGrp 

setDefaultKeyMap; 

= primary,bold,Italic,underScore.negative,normal, 
notitalic.notUnderscore.positive; 

ColorGrp 

= black.red.green.yellow.blue.magenta.cyan.white. 
def ault.blackBg.redBg.greenBg.yellowBg.blueBg. 
magentaBg.cyanBg.whiteBg.def aultBg; 

ClrGrp 

= clrO.clr1.clr2.clr3.clr4.clr5.clr6.clr7.clrOBg. 
clrlBg.clr2Bg.clrSBg.clr4Bg.clrBBg.clr6Bg.clr7Bg; 

ConstGrp 

= dsrCpr.ctcHSetTab.ctcHClrTab.ctcHClrTabsAll. 
tbcHClrTab.tbcHClrTabsAll.mLnm.mAsm.mAwm; 

ProcGrp 

= T_Exec.ExecIOGrp.OpenConsole.CloseConsole. 
CDInputHandler.RawKeyConvert; 

All 

= UnitGrp.CommandGrp.StyleGrp.ColorGrp.ClrGrp. 
ConstGrp.ProcGrp; 

END Console. 
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8.11 ConUnit 


DEFINITION MODULE ConUnit; 


(* $A- *) 

FROM Console IMPORT 
FROM Exec IMPORT 
FROM Graphics IMPORT 
FROM Input IMPORT 
FROM Intuition IMPORT 


FROM KeyMap AS km IMPORT 


mLnm; 

MsgPort; 

DrawModeSet,TextFontPtr; 
classMax; 

WindowPtr; 

KeyMap; 


IBemerkung: Die V36/37 C C0NU_xx- sowie die CONFLAG_xx-Definitionen sind in 
1Console.def! 


CONST 

pmbAsm = mLnm+1; 
pmbAwm = pmbAsm+i; 
maxTabs = 80; 


TYPE 

ConUnit 


= RECORD 


mp 

MsgPort; 

window 

WindowPtr; 

xCP 

INTEGER; 

yCP 

INTEGER; 

xMax 

INTEGER; 

yMax 

INTEGER; 

xRSize 

INTEGER; 

yRSize 

INTEGER; 

xROrigin 

INTEGER; 

yROrigin 

INTEGER; 

xRExtant 

INTEGER; 

yRExtant 

INTEGER; 

xMinShrink 

INTEGER; 

yMinShrink 

INTEGER; 

xcCP 

INTEGER; 

ycCP 

INTEGER; 

keyMap 

KeyMap; 

tabStops 

ARRAY [0..maxTabs-1] OF CARDINAL; 

mask 

SHORTCARD; 

f gPen 

SHORTCARD; 

bgPen 

SHORTCARD; 

aolPen 

SHORTCARD; 

drawMode 

DrawModeSet; 

areaPtSz 

SHORTCARD; 

areaPtrn 

ANYPTR; 

minTerms 

ARRAY [0..7] OF SHORTCARD; 

f ont 

TextFontPtr; 

algoStyle 

SHORTCARD; 

txFlags 

SHORTCARD; 

txHeight 

CARDINAL; 

txWidth 

CARDINAL; 

txBaseLine 

CARDINAL; 

txSpacing 

CARDINAL; 
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modes : ARRAY [0. . (pinbAwm+7) DIV 8-1] OF SHORTCARD; 

rawEvents : ARRAY [0..(classMax+7) DIV 8-1] OF SHORTCARD; 
END; 

ConUnitPtr = POINTER TO ConUnit 
GROUP 

All = pinbAsm,pinbAwm,maxTabs, ConUnit, ConUnitPtr; 

END ConUnit. 
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8.12 DiskFont 


DEFINITION MODULE DiskFont; 

(* $A- *) 

FROM System IMPORT BITSET,BPTR,SysStringPtr,Regs; 
FROM Exec IMPORT Node,LibraryPtr; 

FROM Graphics IMPORT FontGrp,TextAttr,TTextAttr; 


CONST 

maxFontPath 

maxFontName 

fchld 

dfhid 


256; 

32; 

$OFOO; 

$0F80; 


TYPE 

AvailFontTypes = (memory,disk,scaled,af15=15); 

AvailFontTypeSet = SET OF AvailFontTypes; 


FontContents = RECORD 

fileName 
ySize 
style 
f lags 
END; 

TFontContents = RECORD 

fileName 
tagCount 
ySize 
style 
f lags 
END; 


ARRAY [maxFontPath] OF CHAR; 
CARDINAL; 

FontStyleSet; 

FontFlagSet; 


ARRAY [maxFontPath-2] OF CHAR; 
CARDINAL; 

CARDINAL; 

FontStyleSet; 

FontFlagSet; 


FontContentsHeaderPtr = POINTER TO FontContentsHeader; 
FontContentsHeader = RECORD 

fileld : CARDINAL; 
numEntries : CARDINAL; 

END; 


DiskFontHeaderPtr = POINTER TO DiskFontHeader; 

DiskFontHeader = RECORD OF Node 



fileld 

CARDINAL; 


revision 

CARDINAL; 


Segment 

BPTR; 


name 

ARRAY [maxFontName] OF CHAR 


tf 

END; 

TextFont; 

AvailFont 

= RECORD 



type 

AvailFontTypeSet; 


attr 

END; 

TextAttr; 

TAvailFont 

= RECORD 



type 

AvailFontTypeSet; 


attr 

END; 

TTextAttr; 
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AvailFontHeader 


RECORD 


numEntries : CARDINAL; 
END; 


AvailFontHeaderPtr = POINTER TO AvailFontHeader; 

VAR 

DiskFontBase : LibraryPtr; 

LIBRARY DiskFontBase BY -36 

PROCEDURE AvailFontsCbuffer IN AO : ANYPTR; 

len IN DO : LONGINT; 

modus IN Dl : BITSET):LONGINT; 

LIBRARY DiskFontBase BY -48 

PROCEDURE DisposeFontContents(header IN Al : FontContentsHeaderPtr); 

LIBRARY DiskFontBase BY -42 

PROCEDURE NewFontContents(fontsLock IN AO : ANYPTR; 


IN Al : SysStringPtr):FontContentsHeaderPtr 


name 


LIBRARY DiskFontBase BY -30 

PROCEDURE OpenDiskFont (REF tAttr IN AO : TextAttr):TextFontPtr; 

LIBRARY DiskFontBase BY -54 

PROCEDURE NewScaledDiskFont( font IN AO : TextFontPtr; 

REF tAttr IN Al : TextAttr):DiskFontHeaderPtr; 


GROUP 

DiskFontGrp 


AvailFonts,OpenDiskFont.Graphics.FontGrp, 
AvailFontTypes,AvailFontTypeSet,DiskFontHeaderPtr; 


All 


DiskFontGrp.maxFontPath.maxFontName,fchld.dfhid, 

F ontCont ent s,FontCentent sHeader,FontCont ent sHeaderPtr, 
DiskFontHeader,AvailFont,AvailFontHeader, 
AvailFontHeaderPtr.DisposeFontContents.NewFontContents. 
NewScaledDiskFont; 


END DiskFont. 
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DEFINITION MODULE DiskResource; 

(* $A- *) 

|2.0-Version 01.10.1992 

FROM Exec IMPORT Interrupt,Resource, ResourcePtr,LibraryPtr,List, 

Message,TaskPtr; 

FROM System IMPORT Regs; 


TYPE 

DiscResourceUnit 


DiscResourceUnitPtr 


= RECORD OF Message; 

discBIock : Interrupt; 
discSync : Interrupt; 

Index : Interrupt 

END; 

= POINTER TO DiscResourceUnit; 


DiscResourceFlags 

DiscResourceFlagSet 


= (allocO,allocl,aIloc2,alloc3,drf4,drf5,drf6, 
active); 

= SET OF DiscResourceFlags; 


DiscResource = RECORD OF Resource: 


current 

f lags 

pad 

sysLib 

ciaResource 

unitid 


DiscResourcePtr 

discBIock 

discSync 

index 

task 

END; 

= POINTER TO Di 

CONST 

1 Hardware magic 
dskDmaOff = $4000; 



: DiscResourceUnitPtr; 

: DiscResourceFlagSet; 

: SHORTCARD; 

: LibraryPtr; 

: ResourcePtr; 

: ARRAY [allocO..allocS] OF LONGCARD 

: Interrupt; 

: Interrupt; 

: Interrupt; 

: TaskPtr; 

cResource; 


IResource-spezifische Kommandos 


I Drive Types 
amiga 

drt37422D2S 

empty 

drtlSORPM 


= $55555555 
= SFFFFFFFF 
= lAAAAAAAA 
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VAR 

DiskBase : DiscResourcePtr; 

LIBRARY DiskBase BY -6 

PROCEDURE AllocUnitCunitNum INDO : LONGINT)rBOOLEAN; 

LIBRARY DiskBase BY -12 

PROCEDURE FreeUnit(unitNum INDO : LONGINT):LONGINT; 

LIBRARY DiskBase BY -18 

PROCEDURE GetUnit(unitPointer IN Al : DiscResourceUnitPtr):DiscResourceUnitPtr; 
LIBRARY DiskBase BY -30 

PROCEDURE GetUnitID(unitNum INDO : LONGINT):LONGCARD; 

LIBRARY DiskBase BY -24 
PROCEDURE GiveUnit; 

GROUP 

All = DiscResourceUnit.DiscResourceUnitPtr,DiscResourceFlags, 

DiscResourceFlagSet.DiscResource.DiscResourcePtr.dskDmaOff. 
amiga.drt37422D2S.empty.AllocUnit.FreeUnit.GetUnit.GetUnitID. 

GiveUnit; 

END DiskResource. 
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8.13 Dos 


(* $A- *) 

DEFINITION MODULE Dos; 


FROM System 
FROM Resources 
FROM Exec 


FROM Utility 


IMPORT BPTR,LONGSET,BITSET,PROC,SysStringPtr,Regs; 
IMPORT ResHandles; 

IMPORT Library,Message,MessagePtr,MsgPort,MsgPortPtr, 
Task,LibraryPtr,MinList,MinNode,TaskPtr,Node, 
SignalSemaphore; 

IMPORT tagUser,TagListPtr,HookPtr,StdTags; 


TYPE 

BSTR 

FileHandlePtr 

FileHandleCPtr 

FileLockPtr 

FileLockCPtr 

Processid 

DeviceListPtr 


BCPLPTR TO 
BCPLPTR TO 
POINTER TO 
BCPLPTR TO 
POINTER TO 
POINTER TO 
BCPLPTR TO 


CHAR; 

FileHandle; 
FileHandle; 
FileLock; 
FileLock; 
MsgPort; 
DeviceList; 


DEFINITION MODULE FileHandleRes = ResHandles( FileHandleCPtr ); 
DEFINITION MODULE FileLockRes = ResHandles( FileLockCPtr ); 


CONST 

lenDatString 

TYPE 

DatFlags 

DatFlagSet 

DateFormats 

DatePtr 

Date 


DateTimePtr 

DateTime 


16; 


(SubstjFuture); 

SET OF DatFlags; 
(DOS,INT,USA,CDN,MAX=CDN); 

POINTER TO Date; 

RECORD 

days : LONGCARD; 

minute : LONGCARD; 

tick : LONGCARD; 

END; 


POINTER TO DateTime; 


RECORD OF Date; 
format : 

flags : 

strDay : 

strDate : 

strTime : 

END; 


DateFormats; 
DatFlagSet; 
SysStringPtr; 
SysStringPtr; 
SysStringPtr; 


TYPE 

OpenMode 


( readWrite=1004,read0nly, 
oldFile=1005,newFile, 
makemelong=1000000 ); 
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SeekMode 


LockMode 


FileLock 


CONST 

ticksPerSecond 

TYPE 

DiskStatus 

DiskType 


InfoDataPtr 
InfoData 


( beginning=-l,current,end, 
makeinelong=1000000 ) ; 


(sharedLock=-2, 
accessRead=sharedLock, 
excIusiveLock=-l, 
accessWrite=excIusiveLock, 
makemelong=1000000 ); 

RECORD OF FileLockRes.ResHandle 
link : FileLockPtr; 

key : LDNGINT; 

access : LockMode; 

task : Processid; 

voIume : DeviceListPtr; 

END; 


50; 


(writeProtect=80,validating,validated, 
makemeIong=1000600); 


noDiskPresent 

= -1, 




unreadableDisk 

= $42414400, 

(* 

"BAD\0" 

*) 

dosDisk 

= $444F5300, 

(* 

"D0S\0" 

*) 

ffsDisk 

= $444F5301, 

(* 

"D0S\1" 

*) 

notReallyDos 

= $4E444F53, 

(* 

"NDOS" 

*) 

kickstartDisk 

= $4B49434B, 

(* 

"KICK" 

*) 

msdosDisk 

= $4D534400 

(* 

"MSD\0" 

*) 


); 


POINTER TO InfoData; 


RECORD 

numSoftErrors 
unitNumber 
diskState 
numBIocks, 
numBIocksUsed 
bytesPerBIock 
diskType 
voIumeNode 
inUse 
END; 


LONGINT; 
LONGINT; 
DiskStatus; 

LONGINT; 
LONGINT; 
DiskType; 
DeviceListPtr; 
LONGBOOL; 
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I Fehlermeldungen von loErrO 
TYPE 

loErrors = ( noFreeStore=103, 


taskTableFull=105, 

badTemplate=114, 

badNumber, 

requiredArgMissing, 

keyNeedsArg, 

tooManyArgs, 

unmatchedQuotes, 

lineTooLong, 

fileNotObject, 

invalidResidentLibrary, 

noDefaultDir=201, 

objectlnUse, 

objectExists, 

dirNotFound, 

objectNotFound, 

badStreamName, 

obj ectTooLarge, 

actionNotKnown=209, 

invalidComponentName, 

invalidLock, 

obj ectWrongType, 

diskNotValidated, 

diskWriteProtected, 

renameAcrossDevices, 

directoryNotEmpty, 

tooManyLevels, 

deviceNotMounted, 

seekError, 

commentTooBig, 

diskFull, 

deleteProtected, 

writeProtected, 

readProtected, 

notADosDisk, 

noDisk, 

noMoreEntries=232, 

isSoftLink, 

objectLinked, 

badHunk, 

notlmplemented, 

recordNotLocked=240, 

lockCollision, 

lockTimeout, 

unlockError, 

bufferOverflow=303, 

break, 

notExecutable, 

makemelong=1000000 ); 


I Rueckgabewerte der Amiga DOS Kommandos 
ReturnCode = (ok=0,warn=5,error=10,fail=20,makemelong=1000000 ); 


I Break Signale 
TYPE 

BreakSignals = (ctrlC=12,ctrlD,ctrlE,ctrlF); 


IRueckgabewerte 
SameLockType 


von SameLockO 

= (lockDifferent=-l,lockSame, 

lockSameHandler,makemelong=1000000 


); 


I Typen fuer ChangeModeO 

ChcingeModeType = ( changeLock,changeFH,makemelong=1000000 ); 


I Werte fuer MakeLinkO 
LinkType = ( linkHard, 

linkSoft, iNoch nicht voll unterstuetzt 

makemelong=1000000 ); 

IRueckgabewerte von ReadItemO 
ReadItemType = ( itemEqual=-2,itemError,itemNothing, 

itemUnquoted,itemQuoted,makemelong=1000000 ); 
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iFor SetMode 

ScreenType = ( con,raw,makemelong=1000000); 

iTypen fuer Alloc-/FreeDosDbject() 

TYPE 

DosObject = ( fileHandle,exAllControl,FIB,stdPkt, 

CLI,rArgs,makemelong=1000006 ); 


ProtectionFlags = 
ProtectionFlagSet= 


(delete,execute,writeProt,readProt,archive, 
pure,script,hidden,pf31=31); 

SET OF ProtectionFlags; 


EntryType = (linkFile=-4,file,root=l,userDir, 

softLink,linkDir,makemelong=1000000); 


FileinfoBlockPtr 
FileinfoBlock 


PGINTER TO FileinfoBlock; 
RECORD 


diskKey 

dirEntryType 

fileName 

protection 

entryType 

size 

numBlocks 

date 

comment 

reserved 

END; 


LONGINT; 

EntryType; 

ARRAY [0..107] OF CHAR; 
ProtectionFlagSet; 
LONGINT; 

LONGINT; 

LONGINT; 

Date; 

ARRAY [0..79] OF CHAR; 
ARRAY [0..35] OF CHAR; 


ExAlIType 


(name=ljtype,size,protection,date,comment); 


ExAlIDataPtr 

ExAlIData 


POINTER TO ExAIlData; 


RECORD 


next 

ExAlIDataPtr; 

name 

SysStringPtr; 

type 

EntryType; 

size 

LONGCARD; 

prot 

ProtectionFlagSet 

date 

Date; 

comment 

END; 

SysStringPtr; 


ExAlIControlPtr = 
ExAllControl = 


POINTER TO ExAllControl; 
RECORD 
entries 
lastkey 
matchString 
matchFunc 
END; 


LONGCARD; 
LONGCARD; 
SysStringPtr; 
HookPtr; 


I Konstanten aus dosasl.h 

AChainFlags = (patternBit,examinedBit,completed,allBit,single); 
AChainFlagSet = SET OF AChainFlags; 
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AChainPtr 

AChain 


PGINTER TO AChain; 
RECORD 


child 

AChainPtr; 

parent 

AChainPtr; 

lock 

BPTR; 

inf o 

FileinfoBlock; 

f lags 

AChainFlagSet; 

String 

CHAR; 1 nobody knows 


END; 


AnchorPathFlags = 
AnchorPathFlagSet 


(doWild,itsWildjdoDir,didDir,noMemErr jdoDot, 
dirChanged); 

= SET OF AnchorPathFlags; 


AnchorPathPtr 

AnchorPath 


POINTER TO AnchorPath; 
RECORD 
base 
last 

breakBits 
foundBreak 
f lags 
reserved 
strLen 
inf o 
END; 


AChainPtr; 

AChainPtr; 

LONGINT; 

LONGINT; 

AnchorPathFlagSet; 
SHORTINT; 

INTEGER; | set to 0 
FileinfoBlock; 


FullAnchorPathPtr = POINTER TO FullAnchorPath; 

FullAnchorPath = RECORD OF AnchorPath; 

buffer : ARRAY [256] OF CHAR; |set strlen to 256 
END; 


CONST 

complexBit = 1; 

examineBit = 2; 


TYPE 

ProcessFlags = (freeSegList, freeCurrDir, freeCLI, closelnput, 

closeOutput, freeArgs,prf31=31); 

ProcessFlagSet = SET OF ProcessFlags; 

CommandLinelnterfacePtr = BCPLPTR TO CommandLinelnterface; 


ProcessPtr 

Process 


POINTER TO Process; 

RECORD OF Task 
msgPort 
pad 

segList 

stackSize 

globVec 

taskNum 

stackBase 

result2 

currentDir 


MsgPort; 

CARDINAL; 

BPTR; 

LONGINT; 

ANYPTR; 

LONGINT; 

BPTR; 

LONGINT; 

FileLockPtr; 
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cis 

FileHandlePtr; 

cos 

FileHandlePtr; 

consoleTask 

Processid; 

fileSystemTask 

Processid; 

cli 

CommandLinelnterfacePtr; 

returnAddr 

ANYPTR; 

pktWait 

ANYPTR; 

windowPtr 

ANYPTR; 

homeDir 

BPTR; 

f lags 

ProcessFlagSet; 

exitCode 

PROC; 

exitData 

LDNGINT; 

arguments 

ANYPTR; 

localVars 

MinList; 

shellPrivate 

LDNGCARD; 

ces 

BPTR; 


END; 


TYPE 

I you MUST always specify at least read or write 
LockDosFlags = (read,write,devices,volumes, 

assigns,entry,delete,ldf31=31); 
LockDosFlagSet = SET OF LockDosFlags; 

CONST 

IdfAll = LockDosFlagSet:{devices,volumes,assigns}; 


I Error Report Typen fuer ErrorReport() 

TYPE 

ErrorReportType = (streain,task,lock,volume,insert); 


CONST 

abortDiskError = 296; 

abortBusy = 288; 


TYPE 

RunType 


(systemAsynch = -3,System,execute); 


Hunks = (hunkUnit=999, hunkName, hunkCode, hunkData, 

hunkBss, hunkReloc32, hunkReloclS, hunkRelocB, 
hunkExt, hunkSymbol, hunkDebug, hunkEnd, 
hunkHeader, hunk0verlay=1013, hunkBreak, 
hunkDRel32, hunkDRellS, hunkDRelB, hunkLib, 
hunklndex); 

External = (extSymb, extDef, extAbs, extRes, extRef32=129, 

extCommon, extRef16, extRef8, extDExt32, 
extDExtl6, extDExt8); 
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CONST 

notifyClass = $40000000; | attention, these constants may be 

I changeged 

notifyCode = $1234; | next time, so don’t use them 

TYPE 

NotifyRequestFlags = (sendMessage,sendSignal,waitReply=3, 

notifylnitial,nrf16=16,magic=31); 
NotifyRequestFlagSet = SET OF NotifyRequestFlags; 


CONST 

handlerFlags = NotifyRequestFlagSet:{nrf16..magic}; 
nrHandlerFlags = $FFFF0000; 


TYPE 

NotifyRequestPtr= POINTER TO NotifyRequest; 

NotifyRequest = RECORD 

name : SysStringPtr; 

fullName : SysStringPtr; 

userData : LONGCARD; 

flags : NotifyRequestFlagSet; 

IF KEY : NotifyRequestFlags 

OF message THEN port : MsgPortPtr 

OF Signal THEN task : TaskPtr; 

signalNum : Exec.TaskSignals; 

pad : ARRAY[0..2] OF SHORTCARD 

reserved : ARRAY[0..3] OF LONGCARD; 
msgCount : LONGCARD; 

handler : MsgPortPtr; 

END; 


NotifyMessagePtr= 
NotifyMessage = 


POINTER TO NotifyMessage; 
RECORD OF Message 


dass 
Code 
nReq 

doNotTouch, 
doNotTouch2: 
END; 


LONGCARD; 
CARDINAL; 

NotifyRequestPtr; 

LONGCARD; 


TYPE 

RDArgsFlags = (stdin, noAIloc, noPrompt,rdaf31=31); 
RDArgsFlagSet = SET OF RDArgsFlags; 


CONST 

maxTemplateItems= 100; 
maxMultiArgs = 128; 
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TYPE 

CSourcePtr 

CSource 


RDArgsPtr 

RDArgs 


RecordMode 


RecordLockPtr 

RecordLock 


I for SetVBuf 
BuffType 


POINTER TO CSource; 

RECORD 

buffer : SysStringPtr; 

length : LONGINT; 

curChr : LONGINT; 

END; 


POINTER TO RDArgs; 
RECORD OF CSource 


daList 
buffer 
bufSiz 
extHelp 
f lags 
END; 


LONGINT; 
SysStringPtr; 
LONGINT; 
SysStringPtr; 
RDArgsFlagSet; 


(recExclusive,recExclusivelmmed,recShared, 
recSharedlmmed, makeinelong= 1000000) ; 


POINTER TO RecordLock; 
RECORD 


fh 


FileHandlePtr; 


Offset 

length 

mode 


LONGCARD; 
LONGCARD; 
RecordMode; 


END; 


(bufLine,bufFulljbufNone,makemelong=1000000); 


TYPE 

PathinfoPtr 


BCPLPTR TO Pathinfo; 


SystemTags 


SystemTagList = 
SystemTagListPtr= 


TAGS OF StdTags 
dummy 
input 
output 
asynch 
userShell 
customShell 

END; 

ARRAY OF SystemTags; 

POINTER TO SystemTagList; 


tagUser + 32; 
FileHandlePtr; 
FileHandlePtr; 
ANYPTR; 

ANYPTR; 
SysStringPtr; 


WindowPtr 


DEFERRED POINTER Intuition.WindowPtr;; 


NewProcTags 


TAGS OF StdTags; 
dummy 
segList 
freeSegList 
entry 
input 


= tagUser + 1000; 
: BPTR; 

: BPTR; 

: BPTR; 

: FileHandlePtr; 
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output 

FileHandlePtr; 

closelnput 

LONGBOOL; 

closeOutput 

LONGBOOL; 

error 

FileHandlePtr; 

closeError 

LONGBOOL; 

currentDir 

FileLockPtr; 

stackSize 

LONGINT; 

name 

BSTR; 

priority 

LONGINT; 

consoleTask 

Processid; 

windowPtr 

WindowPtr; 

homeDir 

FileLockPtr; 

copyVars 

LONGBOOL; 

cli 

LONGBOOL; 

path 

PathinfoPtr; 

commandName 

BSTR; 

arguments 

SysStringPtr; 

notifyOnDeath 

LONGBOOL; 

synchronous 

LONGBOOL; 

exitCode 

ANYPTR; 

exitData 

ANYPTR; 


END; 

NewProcTagListPtr= POINTER TO NewProcTagList; 
NewProcTagList = ARRAY OF NewProcTags; 


DosObjectTags 


TAGS OF StdTags; 
dummy 
fHMode 
dirLen 
commNameLen 
commFileLen 
promptLen 
END; 


tagUser + 2000; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 


DosObjectTagListPtr= POINTER TO DosObjectTagList; 
DosObjectTagList = ARRAY OF DosObjectTags; 


Pathinfo 


RECORD 

nextPath : PathinfoPtr; 
lock : FileLockPtr; 

END; 


FileHandle 


RECORD OF 
link 
port 
type 
buf 
pos 
end 
funcl, 
func2, 


FileHandleRes.ResHandle 
: MessagePtr; 

: MsgPortPtr; 

: Processid; 

: LONGINT; 

: LONGINT; 

: LONGINT; 
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func3 : PROC; 

argl : LDNGINT; 

arg2 : LDNGINT; 

END; 


DosCommands 


= ( nil=0, 

getBlock=2, 
die, 

currentVolume, 
renameDisk, 
deleteObj ect, 
moreCache, 
waitChar, 
createDir, 
examineNext, 
inf o, 

setComment, 
timer, 
diskType, 
setDate, 
screenMode=994, 
readReturn=1001, 
findUpDate=1004, 
findOutput, 
seek, 
makeLink, 
writeLock, 
f hFroinLock=1026, 
changeMode, 
parentFh, 
examineFh, 
freeRecord, 
removeNotify, 
write=LQNGINT("W"), 


startup=0, 
setMap=4, 
event, 

locateObject, 
freelock=15, 
renameObj ect, 
copyDir, 
setProtect, 
examineObj ect, 
diskinfo, 
flush, 
parent, 
inhibit, 
diskChange, 
sameLock=40, 
changeSignal, 
writeReturn, 
findlnput, 
actionEnd, 
f orinat=1020, 
truncate, 
readLink, 
isFileSystem, 
copyDirFh=1030, 
examineAll=1033, 
lockRecord=2008, 
addNotify=4097, 
read=LONGINT("R"), 
makemelong=1000000 ); 


TYPE 

DosPacketPtr 

DosPacket 


POINTER TO DosPacket; 


RECORD 


link 

: MessagePtr; 

port 

: MsgPortPtr; 

type 

: DosCommands; 

resl, 


res2, 


argl. 


arg2, 


arg3. 


arg4. 


arg5, 


arge. 


arg? 

: LDNGINT; 


END; 
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StandardPacketPtr= POINTER TO StandardPacket; 
StandardPacket = RECORD OF Message 

pkt : DosPacket; 

END; 

RootNodePtr = POINTER TO RootNode; 


ErrorStringPtr 

ErrorString 


DosLibraryPtr 

DosLibrary 


TaskArray 


POINTER TO ErrorString; 
RECORD 


nums 

Strings 

END; 


ANYPTR; 
SysStringPtr; 


POINTER TO DosLibrary; 


RECORD OF Library 
root 
gv 
a2, 
a5, 
a6 

errors 

timeReq 

utilityBase 

intuitionBase 

END; 


RootNodePtr; 

ANYPTR; 


LONGINT; 
ErrorStringPtr; 
ANYPTR; 
LibraryPtr; 
LibraryPtr; 


RECORD 

maxCIi 

cli 

END; 


LONGINT; 

ARRAY [1..99] OF Processid; 


DosinfoPtr 

TaskArrayPtr 

DosEnvecPtr 


BCPLPTR TO Dosinfo; 
BCPLPTR TO TaskArray; 
BCPLPTR TO DosEnvec; 


FileSysStartupMsgPtr = BCPLPTR TO FileSysStartupMsg; 


CONST 

I special values for ResidentSegment.usecount 


cmdSystem = 

-1; 


cmdlnternal = 

-2; 


cmdDisabled = 

-999; 


TYPE 

ResidentSegmentPtr 

= BCPLPTR 

TO ResidentSegment; 

ResidentSegment = 

RECORD 



next : 

ResidentSegmentPtr; 


usecount : 

LONGINT; 


Segment : 

BPTR; 


name : 

ARRAY [32] OF CHAR 


END; 


RootNodeFlags = (privatel=l,wildStar=24,rnf31=31); 
RootNodeFlagSet = SET OF RootNodeFlags; 
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RootNode 


RECORD 

taskArray 
c ons o1e Segment 
time 

restartSeg 
inf o 

fileHandlerSegment 
cliList 
bootProc 
shellSegment 
f lags 
END; 


TaskArrayPtr; 
BPTR; 

Date; 

BPTR; 

DosinfoPtr; 

BPTR; 

MinList; 
MsgPortPtr; 

BPTR; 

RootNodeFlagSet; 


MsgPortFieldPtr = 
MsgPortField = 
CliProcList = 


POINTER TO MsgPortField; 
ARRAY OF MsgPortPtr; 


RECORD OF MinNode 
first 
array 
END; 


LONGINT; 

MsgPortFieldPtr; 


Doslnfo = RECORD 

mcName 
devinfo 
devices 
handlers 
netHand 
devLock, 
entryLock, 
deleteLock 
END; 


BSTR; 

DeviceListPtr; 

BPTR; 

BPTR; 

ResidentSegmentPtr; 


SignalSemaphore; 


CommandLinelnterface = RECORD 

result2 

setName 

commandDir 

returnCode 

commandName 

failLevel 

prompt 

standardlnput 
currentInput 
commandFile 
Interactive 
background 
currentOutput 
defaultStack 
Standardoutput 
module 
END; 


LONGINT; 

BSTR; 

PathinfoPtr; 
LONGINT; 

BSTR; 

LONGINT; 

BSTR; 

FileHandlePtr; 
FileHandlePtr; 
BSTR; 

LONGINT; 
LONGINT; 
FileHandlePtr; 
LONGINT; 
FileHandlePtr; 
BPTR; 


AssignListPtr 

AssignList 


POINTER TO AssignList; 

RECORD 

next : AssignListPtr; 

lock : FileHandlePtr; 
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END; 


DeviceListType 

= ( device,directory,volume,late,nonBinding, 
private=-l ,inakemelong=1000000 ); 

DeviceList 

= RECORD 




next : 

DeviceListPtr; 


type : 

task : 

DeviceListType; 

Processid; 


lock : 

FileLockPtr; 



IF KEY : DeviceListType 

OF device, 



directory 

THEN 

handler 

BSTR; 



stackSize 

LONGINT; 


OF volume 

priority 

startup 

segList 

globeVec 

THEN 

LONGINT; 

FileSysStartupMsgPtr 

BPTR; 

BPTR 



volumeDate 

Date; 



lockList 

FileLockPtr; 


OF assign 

END; 

name : BSTR; 

diskType 

THEN 

assignName 

assignList 

LONGINT; 

SysStringPtr; 
AssignListPtr 


END; 



DosList 

= DeviceList; 



DosListPtr 

= DeviceListPtr; 



DeviceNode 

= DeviceList; 



DeviceNodePtr 

= POINTER TO DeviceNode; 



DevProcFlags 

= (unlock,assign,dvp31=31); 

DevProcFlagSet 

= SET OF DevProcFlags 


DevProcPtr 

= POINTER TO DevProc; 


DevProc 

= RECORD 



port : MsgPortPtr; 

lock : FileLockPtr; 

flags : DevProcFlagSet; 
devNode: DosListPtr; 


END; 


DosEnvec 

= RECORD 



tableSize 

LONGCARD 


sizeBlock 

LONGCARD 


secOrg 

LONGCARD 


surfaces 

LONGCARD 


sectorsPerBlock 

LONGCARD 


blocksPerTrack 

LONGCARD 


reserved 

LONGCARD 
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preAlloc 

LONGCARD 


interleave 

LONGCARD 


lowCyl 

LONGCARD 


highCyl 

LONGCARD 


numBuffers 

LONGCARD 


bufMemType 

LONGCARD 


maxTransfers 

LONGCARD 


mask 

LONGSET; 

bootPri 

LONGINT; 

dosType 

ARRAY [0 

.3] OF CHAR; 

baud 

LONGCARD 


control 

LONGCARD 


bootBlocks 

LONGCARD 



END; 


FileSysStartupMsg= RECORD 


ArgArrayPtr 

ArgArray 


unit 
device 
environ 
f lags 

END; 

POINTER TO ArgArray; 

ARRAY OF SysStringPtr; 


LONGCARD; 
BSTR; 

DosEnvecPtr; 
LONGSET 


GetVarFlags 

GetVarFlagSet 

LocalVarPtr 

LocalVar 


GROUP 

DosErrorGrp 


(var,alias,ignore=7,globalOnly,localOnly, 
binaryVar,gvf31=31); 

SET OF GetVarFlags; 

POINTER TO LocalVar; 

RECORD OF MinNode 


type 

GetVarFlags; 

pri 

SHORTINT; 

name 

SysStringPtr; 

f lags 

BITSET; 

value 

SysStringPtr; 

len 

LONGCARD; 

END; 


= loErrors; 


DosLibraryPtr; 


Ausgabe 


I 


LIBRARY DosBase BY -36 

PROCEDURE CloseC file IN Dl 


FileHandlePtr)iLONGBOOL; 


©1992/93 by StoneWare 










8.13. DOS 


47 


LIBRARY DosBase BY -30 

PROCEDURE Dpen( REF name IN Dl : STRING; 

accessMode IN D2 : DpenMode):FileHandlePtr; 


LIBRARY DosBase BY -42 


PROCEDURE 

Read( 

file 

IN 

Dl 



buffer 

IN 

D2 



length 

IN 

D3 

LIBRARY DosBase BY -66 



PROCEDURE 

Seek( 

file 

IN 

Dl 



Position 

IN 

D2 



mode 

IN 

D3 


LIBRARY DosBase BY -48 

PROCEDURE WriteC file IN Dl 

buffer IN D2 

length IN D3 

LIBRARY DosBase BY -294 

PROCEDURE SelectlnputC fh IN Dl : 

LIBRARY DosBase BY -300 

PROCEDURE SelectOutputC fh IN Dl : 


FileHandlePtr; 
ANYPTR; 

LONGINT ): LONGINT; 


FileHandlePtr; 
LONGINT; 

SeekMode ): LONGINT; 


: FileHandlePtr; 

: ANYPTR; 

: LONGINT ): LONGINT; 


FileHandlePtr ): FileHandlePtr; 


FileHandlePtr ): FileHandlePtr; 


LIBRARY DosBase BY -306 

PROCEDURE FGetCC fh IN Dl : FileHandlePtr ): CHAR; 

LIBRARY DosBase BY -312 

PROCEDURE FPutCC fh IN Dl : FileHandlePtr; 

ch IN D2 : CHAR ): CHAR; 

LIBRARY DosBase BY -318 

PROCEDURE UnGetCC fh IN Dl : FileHandlePtr; 

character IN D2 : CHAR); 

LIBRARY DosBase BY -324 

PROCEDURE FReadC fh IN Dl : FileHandlePtr; 

buf IN D2 : ANYPTR; 

blocklen IN D3 : LONGCARD; 

number IN D4 : LONGCARD ): LONGCARD; 

LIBRARY DosBase BY -330 

PROCEDURE FWriteC fh IN Dl : FileHandlePtr; 

buf IN D2 : ANYPTR; 

blocklen IN D3 : LONGCARD; 

number IN D4 : LONGCARD ): LONGCARD; 


LIBRARY DosBase BY -336 

PROCEDURE FGetsC fh IN Dl : FileHandlePtr; 

buf IN D2 : ANYPTR; 

buflen IN D3 : LONGCARD ): ANYPTR; 
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LIBRARY DosBase BY -342 


PROCEDURE FPutsC fh 

IN Dl : 

FileHandlePtr; 

REF str IN D2 : 

STRING 

); 

LIBRARY DosBase BY -348 

PROCEDURE VFWritefC 

fh 

IN Dl : 

FileHandlePtr; 

REF 

f ormat 

IN D2 : 

: STRING; 


argarray 

IN D3 : 

; ArgArrayPtr ); 

LIBRARY DosBase BY -354 

PROCEDURE VFPrintfC 

fh 

IN Dl : 

FileHandlePtr; 

REF 

f ormat 

IN D2 : 

; STRING; 


argarray 

IN D3 : 

; ArgArrayPtr ); 


LIBRARY DosBase BY -360 

PROCEDURE FlushC fh IN Dl : FileHandlePtr ): LONGBDOL; 


LIBRARY DosBase BY -366 

PROCEDURE SetVBufC fh IN Dl 

buff IN D2 
type IN D3 
size IN D4 

LIBRARY DosBase BY -942 

PROCEDURE WriteCharsC REF buf IN Dl : STRING; 

buflen IN D2 : LONGINT ): LONGINT; 


: FileHandlePtr; 

: ANYPTR; 

: BuffType; 

: LONGINT ): LONGINT; 


LIBRARY DosBase BY -948 

PROCEDURE PutStrC REF str IN Dl: STRING ): LONGINT; 

LIBRARY DosBase BY -954 

PROCEDURE VPrintfC REF formet IN Dl : STRING; 

argarray IN D2 : ArgArrayPtr ): LONGINT; 


GROUP 

DosIOGrp = Open,Close,Read,FileHandlePtr,FileHandlePtr,Seek,Write, 
OpenMode jSeekMode,Selectlnput,SelectOutput,FGetC,FPutC, 
UnGetCjFReadjFWrite,FGets jFPuts jVFWritef,VFPrintf,Flush, 
SetVBuf, WriteChars, PutStr, VPrintf, ArgArrayPtr; 


I 2. Dateiverwaltung 


LIBRARY DosBase BY -120 

PROCEDURE CreateDirC REF Name IN Dl : STRING ): FileLockPtr; 
LIBRARY DosBase BY -126 

PROCEDURE CurrentDirC Lock IN Dl : FileLockPtr ): FileLockPtr; 
LIBRARY DosBase BY -72 

PROCEDURE DeleteFileC REF Name IN Dl : STRING ): LONGBOOL; 
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LIBRARY DosBase BY -102 

PROCEDURE Examine(Lock IN Dl 

InfoBlock IN D2 

LIBRARY DosBase BY -108 

PROCEDURE ExNextC Lock IN Dl 

InfoBlock IN D2 

LIBRARY DosBase BY -114 

PROCEDURE Info( Lock IN 

ParameterBlock IN 


: FileLockPtr; 

: FilelnfoBlockPtr): LONGBOOL; 


: FileLockPtr; 

: FilelnfoBlockPtr ): LONGBOOL; 


Dl : FileLockPtr; 

D2 : InfoDataPtr ): LONGBOOL; 


LIBRARY DosBase BY -210 

PROCEDURE ParentDirC Lock IN Dl : FileLockPtr ): FileLockPtr; 


LIBRARY DosBase BY -78 

PROCEDURE RenameC REF OldName IN Dl, 

NewName IN D2 : STRING ): LONGBOOL; 


LIBRARY DosBase BY -180 

PROCEDURE SetCommentC REF Name IN Dl, 

Comment IN D2 : STRING ): LONGBOOL; 


LIBRARY DosBase BY -186 

PROCEDURE SetProtectionC REF Name IN Dl 

Mask IN D2 


STRING; 

ProtectionFlagSet ): LONGBOOL; 


LIBRARY DosBase BY -96 

PROCEDURE DupLockC lock IN Dl : FileLockPtr ): FileLockPtr; 

LIBRARY DosBase BY -54 

PROCEDURE InputO: FileHandlePtr; 

LIBRARY DosBase BY -132 

PROCEDURE loErrO: loErrors; 

LIBRARY DosBase BY -216 

PROCEDURE IsInteractiveC File IN Dl : FileHandlePtr ): LONGBOOL; 
LIBRARY DosBase BY -84 

PROCEDURE Lock( REF name IN Dl : STRING; 

accessMode IN D2 : LockMode ): FileLockPtr; 

LIBRARY DosBase BY -60 

PROCEDURE Output(): FileHandlePtr; 

LIBRARY DosBase BY -90 

PROCEDURE UnlockC Lock IN Dl : FileLockPtr ); 

LIBRARY DosBase BY -270 

PROCEDURE LockRecordC fh IN Dl : FileHandlePtr; 

Offset IN D2 : LONGCARD; 

length IN D3 : LONGCARD; 

mode IN D4 : LONGCARD; 

timeout IN D5 : LONGCARD ): LONGBOOL; 
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LIBRARY DosBase BY -276 

PROCEDURE LockRecordsC recArray IN Dl : RecordLockPtr; 

timeout IN D2 : LONGCARD ): LDNGBOOL; 

LIBRARY DosBase BY -282 

PROCEDURE UnLockRecordC fh IN Dl : FileHandlePtr; 

Offset IN D2 : LONGCARD; 

length IN D3 : LONGCARD ): LONGBOOL; 

LIBRARY DosBase BY -288 

PROCEDURE UnLockRecords(recArray IN Dl : RecordLockPtr):LONGBOOL; 
LIBRARY DosBase BY -372 

PROCEDURE DupLockFromFHC fh IN Dl: FileHandlePtr ): FileLockPtr; 
LIBRARY DosBase BY -378 

PROCEDURE OpenFromLockC lock IN Dl: FileLockPtr ): FileLockPtr; 
LIBRARY DosBase BY -384 

PROCEDURE ParentOfFHC fh IN Dl: FileHandlePtr ): FileHandlePtr; 
LIBRARY DosBase BY -390 

PROCEDURE ExamineFHC fh IN Dl : FileHandlePtr; 

fib IN D2 : FileinfoBlockPtr ): LONGBOOL; 


LIBRARY DosBase BY -396 

PROCEDURE SetFileDateC REF name IN Dl : STRING; 

date IN D2 : DatePtr ): LONGBOOL; 

PROCEDURE NameFromLockC lock : FileLockPtr; 

VAR buffer : STRING; 

len : L0NGINT:=0): LONGBOOL; 


PROCEDURE NameFromFHC fh 

VAR buffer 
len 


FileHandlePtr; 

STRING; 

L0NGINT:=0 ): LONGBOOL; 


PROCEDURE SplitNameC REF name 

seperator 
VAR buf 

oldpos 

size 


STRING; 

CHAR; 

STRING; 

INTEGER; 

L0NGINT:=0): INTEGER; 


LIBRARY DosBase BY -420 

PROCEDURE SameLockC lockl IN Dl 

lock2 IN D2 


FileLockPtr; 

FileLockPtr ): SameLockType; 


LIBRARY DosBase BY -426 

PROCEDURE SetModeC fh IN Dl : FileHandlePtr; 

mode IN D2 : ScreenType ): LONGBOOL; 
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LIBRARY DosBase BY -432 

PROCEDURE ExAlK lock IN Dl 

buffer IN D2 

size IN D3 

type IN D4 

control IN D5 

PROCEDURE ReadLinkC port : 

lock : 

REF path : 

VAR buffer : 
size : 


: FileLockPtr; 

: ANYPTR; 

: LDNGINT; 

: ExAllType; 

: ExAllControlPtr ): LONGBOOL;; 

MsgPortPtr; 

FileLockPtr; 

STRING; 

STRING; 

LONGCARD:=0): LONGBOOL; 


LIBRARY DosBase BY -444 

PROCEDURE MakeLinkC REF name IN Dl : STRING; 

dest IN D2 : LONGINT; 

soft IN D3 : LinkType): LONGBOOL; 

LIBRARY DosBase BY -450 

PROCEDURE ChangeModeC type IN Dl : ChangeModeType; 

fh IN D2 : FileHandlePtr; 

newmode IN D3 : LockMode): LONGBOOL; 


LIBRARY DosBase BY -456 

PROCEDURE SetFileSizeC fh IN Dl : FileHandlePtr; 

pos IN D2 : LONGINT; 

mode IN D3 : SeekMode): LONGINT; 

LIBRARY DosBase BY -462 

PROCEDURE SetloErrC result IN Dl : LONGINT ): LONGINT; 


LIBRARY DosBase BY -708 

PROCEDURE IsFileSystemC REF name IN Dl 


STRING ): LONGBOOL; 


LIBRARY DosBase BY -714 

PROCEDURE Formate REF filesystem IN Dl 

REF volumename IN D2 

dostype IN D3 


STRING; 

STRING; 

LONGCARD ): LONGBOOL; 


LIBRARY DosBase BY -720 

PROCEDURE RelabeK REF drive IN Dl : STRING; 

REF newname IN D2 : STRING ): LONGBOOL; 


LIBRARY DosBase BY -726 

PROCEDURE InhibitC REF name IN Dl : STRING; 

onoff IN D2 : LONGINT ): LONGBOOL; 


LIBRARY DosBase BY -732 

PROCEDURE AddBuffersC REF name IN Dl : STRING; 

number IN D2 : LONGINT ): LONGBOOL; 


LIBRARY DosBase BY -738 

PROCEDURE CompareDates( datel IN Dl : DatePtr; 

date2 IN D2 : DatePtr ): LONGINT; 
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LIBRARY DosBase BY -984 

PROCEDURE SameDeviceC lockl IN Dl : FileLockPtr; 

lock2 IN D2 : FileLockPtr ): LONGBOOL; 


GROUP 

DosFileGrp = CreateDir,FileLockPtr, CurrentDir,DeleteFile, 

Examine,FileInfoBlockPtr,FileInfoBlock,Info, 

InfoDataPtr,InfoData,ParentDir,Rename,SetComment, 
SetComment,SetProtection,ProtectionFlagSet, 
ProtectionFlags,DupLock,Input,loErr,Islnteractive, 

Lock,Lock,Output,Unlock,LockMode,LockRecord,DatePtr, 
LockRecords, UnLockRecord, UnLockRecords, DupLockFromFH, 
OpenFromLock, ParentOfFH, ExamineFH, SetFileDate, 
NameFromLock,NameFromFH, SplitName, SameLock, SetMode, 
ExAll, ReadLink,MakeLink, ChangeMode, SetFileSize, 
SetloErr, IsFileSystem,Format, Relabel, Inhibit, 
AddBuffers, CompareDates, SameDevice,ExAllControl, 
ExAllType,ScreenType,LinkType,LockMode; 


I 4. Prozeßverwaltung 


LIBRARY DosBase BY -138 

PROCEDURE CreateProcC REF Name 

Pri 

Segment 

StackSize 


IN Dl : STRING; 

IN D2 : LONGINT; 

IN D3 : BPTR; 

IN D4 : LONGINT)rProcessId; 


LIBRARY DosBase BY -192 

PROCEDURE DateStampC VAR Date IN Dl : Date ); 


I Due to a bug in the kickstart ROM, we’ll fix the problem ourselves 
I I LIBRARY DosBase BY-198 

PROCEDURE DelayC ticks IN Dl : LONGCARD ); 


LIBRARY DosBase BY -198 

PROCEDURE oldDelayC ticks IN Dl : LONGCARD ); 


LIBRARY DosBase BY -174 

PROCEDURE DeviceProcC REF Name IN Dl : STRING ): Processid; 


LIBRARY DosBase BY -144 

PROCEDURE Exit( ReturnCode IN Dl : LONGINT ); 


LIBRARY DosBase BY -204 

PROCEDURE WaitForCharC File IN Dl : FileHandlePtr; 

Timeout IN D2 : LONGINT ): LONGBOOL; 


PROCEDURE Faulte 

Code : 

; loErrors; 

REF 

header : 

: STRING; 

VAR 

buff er : 

: STRING; 


len 

: LONGINT:=0 ): LONGBOOL; 
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LIBRARY DosBase BY -474 


PROCEDURE PrintFaultC 

Code 

IN 

Dl : loErrors; 



REF header 

IN 

D2 : STRING ): 

LONGBOOL; 

LIBRARY DosBase BY -480 






PROCEDURE ErrorReport( 

Code 

IN 

Dl 

: LONGINT; 



type 

IN 

D2 

: LONGINT; 



argl 

IN 

D3 

: LONGCARD; 



device 

IN 

D4 

: MsgPortPtr ) 

: LONGBOOL; 


LIBRARY DosBase BY -492 

PROCEDURE Cli(): CommandLinelnterfacePtr; 


LIBRARY DosBase BY -498 

PROCEDURE CreateNewProc( tags IN Dl : LIST OF NewProcTags): ProcessPtr; 
LIBRARY DosBase BY -498 

PROCEDURE CreateNewProcList( tags IN Dl: NewProcTagListPtr ): ProcessPtr; 
LIBRARY DosBase BY -504 

PROCEDURE RunCommand( seg IN Dl : BPTR; 

stack IN D2 : LONGCARD; 

REF param IN D3 : STRING; 

paramlen IN D4 : LONGCARD ): LONGINT; 

LIBRARY DosBase BY -510 

PROCEDURE GetConsoleTaskO: MsgPortPtr; 

LIBRARY DosBase BY -516 

PROCEDURE SetConsoleTaskC task IN Dl : MsgPortPtr ): MsgPortPtr; 

LIBRARY DosBase BY -522 

PROCEDURE GetFileSysTaskO: MsgPortPtr; 

LIBRARY DosBase BY -528 

PROCEDURE SetFileSysTaskC task IN Dl : MsgPortPtr ): MsgPortPtr; 

LIBRARY DosBase BY -534 

PROCEDURE GetArgStrO : SysStringPtr; 

LIBRARY DosBase BY -540 

PROCEDURE SetArgStrC REF string IN Dl : STRING ): SysStringPtr; 

LIBRARY DosBase BY -546 

PROCEDURE FindCliProcC num IN Dl : LONGINT ): ProcessPtr; 

LIBRARY DosBase BY -552 

PROCEDURE MaxCIiO: LONGINT; 

LIBRARY DosBase BY -558 

PROCEDURE SetCurrentDirNameC REF name IN Dl : STRING ): LONGBOOL; 

PROCEDURE GetCurrentDirName( VAR buf : STRING; 

len : LONGINT:=0): LONGBOOL; 
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LIBRARY DosBase BY -570 

PROCEDURE SetProgramNameC REF name IN Dl : STRING ): LONGBOOL; 

PROCEDURE GetProgramName( VAR buf : STRING; 

len : L0NGINT:=0): LONGBOOL; 


LIBRARY DosBase BY -582 

PROCEDURE SetPromptC REF name IN Dl : STRING ): LONGBOOL; 

PROCEDURE GetPromptC VAR buf : STRING; 

len : L0NGINT:=0): LONGBOOL; 

LIBRARY DosBase BY -594 

PROCEDURE SetProgramDir( lock IN Dl : FileLockPtr ): FileLockPtr; 

LIBRARY DosBase BY -600 

PROCEDURE GetProgramDir(): FileLockPtr; 

LIBRARY DosBase BY -606 

PROCEDURE CallSystemTags( REF command IN Dl : STRING; 

tags IN D2 : LIST OF SystemTags):LONGINT 

LIBRARY DosBase BY -606 

PROCEDURE CallSystemTagList (REF command IN Dl : STRING; 

tags IN D2 : SystemTagListPtr):LONGINT 

LIBRARY DosBase BY -612 

PROCEDURE AssignLockC REF name IN Dl : STRING; 

lock IN D2 : FileLockPtr ): LONGBOOL; 

LIBRARY DosBase BY -618 

PROCEDURE AssignLateC REF name IN Dl : STRING; 

REF path IN D2 : STRING ): LONGBOOL; 

LIBRARY DosBase BY -624 

PROCEDURE AssignPathC REF name IN Dl : STRING; 

REF path IN D2 : STRING ): LONGBOOL; 

LIBRARY DosBase BY -630 

PROCEDURE AssignAddC REF name IN Dl : STRING; 

lock IN D2 : FileLockPtr ): LONGBOOL; 

LIBRARY DosBase BY -636 

PROCEDURE RemAssignList( REF name IN Dl : STRING; 

lock IN D2 : FileLockPtr ): LONGBOOL; 

LIBRARY DosBase BY -642 

PROCEDURE GetDeviceProc( REF name IN Dl : STRING; 

dp IN D2 : DevProcPtr ): DevProcPtr; 

LIBRARY DosBase BY -648 

PROCEDURE FreeDeviceProc( dp IN Dl : DevProcPtr); 

LIBRARY DosBase BY -744 

PROCEDURE DateToStr (VAR datetime IN Dl : DateTime ): LONGBOOL; 
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LIBRARY DosBase BY -750 

PROCEDURE StrToDate (VAR datetime IN Dl : DateTime ): LONGBDOL; 


GROUP 

DosProcessGrp = CreateProc,GreateProc,DateStamp,Delay,DeviceProc,Exit, 
WaitForChar,ticksPerSecond,Date,Process,ProcessPtr, 
Processid, Fault, PrintFault, ErrorReport, Cli, 
CreateNewProc,RunCommand, GetConsoleTask, 

SetConsoleTask, SetFileSysTask,GetArgStr, SetArgStr, 
FindCliProc,MaxCli,SetCurrentDirName,GetCurrentDirName, 
SetProgramName, GetProgramName, SetPrompt,GetPrompt, 
SystemTagListPtr, AssignLock, AssignLate, AssignPath, 
AssignAdd, RemAssignList, GetDeviceProc, FreeDeviceProc, 
StrToDate,DateToStr,FileLockPtr,DevProcPtr,MsgPortPtr, 
loErrors,CommandLinelnterfacePtr,SystemTags, 
SystemTagList,NewProcTags,NewProcTags; 


I 5. Programme laden 


LIBRARY DosBase BY -222 

PROCEDURE ExecuteC REF CommandString IN Dl : STRING; 

Input IN D2 : FileHandlePtr; 

Output IN D3 : FileHandlePtr ): LONGBOOL; 

LIBRARY DosBase BY -150 

PROCEDURE LoadSegC REF Name IN Dl : STRING ): BPTR; 

LIBRARY DosBase BY -156 

PROCEDURE UnLoadSegC Segment IN Dl : BPTR ); 

LIBRARY DosBase BY -756 


PROCEDURE InternalLoadSegC 

fh 

IN 

DO : 

: FileHandlePtr; 


table 

IN 

AO 

: BPTR; 


funcarray 

IN 

Al 

: ANYPTR; 


stack 

IN 

A2 

: ANYPTR ): BPTR; 

LIBRARY DosBase BY -762 

PROCEDURE InternalUnLoadSegCseglist 

IN 

Dl : 

: BPTR; 


freefunc 

IN 

Al 

: ANYPTR):LONGBOOL; 


LIBRARY DosBase BY -768 

PROCEDURE NewLoadSegC REF file IN Dl : STRING; 

tags IN D2 : TagListPtr ): BPTR; 

LIBRARY DosBase BY -774 

PROCEDURE AddSegmentC REF name IN Dl : STRING; 

seg IN D2 : BPTR; 

System IN D3 : LONGINT ): LONGBOOL; 
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LIBRARY DosBase BY -780 

PROCEDURE FindSegmentC REF name IN Dl : STRING; 

seg IN D2 : BPTR; 

System IN D3 : LDNGINT ): BPTR; 

LIBRARY DosBase BY -786 

PROCEDURE RemSegmentC seg IN Dl : BPTR ): LONGBDOL; 

GROUP 

DosSegmentGrp = Execute,LoadSeg, UnLoadSeg, InternalLoadSeg, 
InternalUnLoadSegjNewLoadSeg, AddSegment, 
FindSegment, RemSegment, BPTR,FileHandlePtr; 


I 6. DOS-Interne Befehle 


LIBRARY DosBase BY -162 

PROCEDURE GetPacketC Walt IN Dl : LONGINT ): DosPacketPtr; 


LIBRARY DosBase BY -168 

PROCEDURE QueuePacket( Packet IN Dl : DosPacketPtr ): LONGINT; 
LIBRARY DosBase BY -240 


PROCEDURE DoPktC 

port 

IN 

Dl : 

MsgPortPtr; 


action 

IN 

D2 : 

LONGINT; 


argl 

IN 

D3 : 

LONGINT; 


arg2 

IN 

D4 : 

LONGINT; 


arg3 

IN 

D5 : 

LONGINT; 


arg4 

IN 

D6 : 

LONGINT; 


arg5 

IN 

D7 : 

LONGINT ): LONGINT; 

LIBRARY DosBase BY 

-246 




PROCEDURE SendPktC dp 


IN 

Dl : DosPacketPtr; 


port 


IN 

D2 : MsgPortPtr; 


replyport IN D3 : MsgPortPtr ); 

LIBRARY DosBase BY -252 

PROCEDURE WaitPktO: DosPacketPtr; 


LIBRARY DosBase BY -258 

PROCEDURE ReplyPktC dp IN Dl : DosPacketPtr; 

resl IN D2 : LONGINT; 
res2 IN D3 : LONGINT ); 


LIBRARY DosBase BY -264 

PROCEDURE AbortPktC port IN 

pkt IN 

LIBRARY DosBase BY -924 

PROCEDURE ClilnitC dp IN AO 

LIBRARY DosBase BY -930 

PROCEDURE ClilnitNewCliC dp 


Dl : MsgPortPtr; 

D2 : DosPacketPtr ); 

: DosPacketPtr ): LONGINT; 

IN AO : DosPacketPtr ): LONGINT; 
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LIBRARY DosBase BY -936 

PROCEDURE ClilnitRunC dp IN AO : DosPacketPtr ): LONGINT; 


GROUP 

PacketGrp = DosPacket,DosPacketPtr,StandardPacket,StandardPacketPtr, 
nil,getBlock,setMap,die,event,currentVolume,locateObj ect 
renameDisk,write,read,freelock,deleteObj ect,renameObj ect 
moreCache,copyDir,waitChar,setProtect,createDir, 
examineObj ect,examineNext,diskinfo,info,flush,setComment 
parent,timer,inhibit,diskType,diskChange,setDate, 
screenMode,readReturn,writeReturn,findUpDate,findlnput, 
findOutput,actionEnd,seek,truncate,writeLock, 

GetPacket,QueuePacket, DoPkt, SendPkt, WaitPkt, RepIyPkt 
AbortPkt, Clilnit, ClilnitNewCli, CliInitRun,MsgPortPtr 


I 7. Dos - Listen Befehle 


LIBRARY DosBase BY -654 

PROCEDURE LockDosListC flags IN Dl : LockDosFlagSet ): DosListPtr; 
LIBRARY DosBase BY -660 

PROCEDURE UnLockDosList( flags IN Dl : LockDosFlagSet ); 

LIBRARY DosBase BY -666 

PROCEDURE AttemptLockDosList( flags IN Dl : LockDosFlagSet ): DosListPtr 
LIBRARY DosBase BY -672 

PROCEDURE RemDosEntry( dlist IN Dl : DosListPtr ): LONGBOOL; 

LIBRARY DosBase BY -678 

PROCEDURE AddDosEntryC dlist IN Dl : DosListPtr ): LONGBOOL; 

LIBRARY DosBase BY -684 

PROCEDURE FindDosEntry( dlist IN Dl : DosListPtr; 

REF name IN D2 : STRING; 

flags IN D3 : LONGCARD ): DosListPtr; 

LIBRARY DosBase BY -690 

PROCEDURE NextDosEntry( dlist IN Dl : DosListPtr; 

flags IN D2 : LONGCARD ): DosListPtr; 

LIBRARY DosBase BY -696 

PROCEDURE MakeDosEntryC REF name IN Dl : STRING; 

type IN D2 : LONGINT ): DosListPtr; 

LIBRARY DosBase BY -702 

PROCEDURE FreeDosEntry( dlist IN Dl: DosListPtr ); 


GROUP 

DosListGrp = LockDosList, UnLockDosList, AttemptLockDosList, 

RemDosEntry,AddDosEntry, FindDosEntry, NextDosEntry, 
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MakeDosEntry,FreeDosEntry, LockDosFlags, 
LockDosFlagSet, DosListPtr; 

I** Now the new 2.0 Functions ** 


I 8. Argument/PatternMatch & sonstige String Manipulationen 


LIBRARY DosBase BY -798 

PROCEDURE ReadArgsC REF template IN Dl : STRING; 

array IN D2 : ANYPTR; 

args IN D3 : RDArgsPtr ): RDArgsPtr; 

LIBRARY DosBase BY -804 

PROCEDURE FindArgC REF keyword IN Dl : STRING; 

REF template IN D2 : STRING ): LONGINT; 

LIBRARY DosBase BY -810 

PROCEDURE ReadItemC REF name IN Dl : STRING; 

maxchars IN D2 : LONGINT; 

cSource IN D3 : CSourcePtr ): LONGINT; 


LIBRARY DosBase BY -816 

PROCEDURE StrToLongC REF string IN Dl 

value IN D2 


STRING; 

ANYPTR ): LONGINT; 


LIBRARY DosBase BY -822 

PROCEDURE MatchFirstC REF pat IN Dl 

anchor IN D2 


STRING; 

AnchorPathPtr ): LONGBOOL; 


LIBRARY DosBase BY -828 

PROCEDURE MatchNextC anchor IN Dl : AnchorPathPtr ): LONGBOOL; 
LIBRARY DosBase BY -834 

PROCEDURE MatchEndC anchor IN Dl : AnchorPathPtr ); 

LIBRARY DosBase BY -840 

PROCEDURE ParsePatternC REF pat IN Dl : STRING; 

REF buf IN D2 : STRING; 

buflen IN D3 : LONGINT ): LONGINT; 

LIBRARY DosBase BY -846 

PROCEDURE MatchPatternC REF pat IN Dl : STRING; 

REF str IN D2 : STRING ): LONGBOOL; 


LIBRARY DosBase BY -858 

PROCEDURE FreeArgsC args IN Dl : RDArgsPtr ); 

LIBRARY DosBase BY -870 

PROCEDURE FilePartC REF path IN Dl : STRING ): SysStringPtr; 
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LIBRARY DosBase BY -876 

PROCEDURE PathPartC REF path IN Dl 


STRING ): SysStringPtr; 


LIBRARY DosBase BY -882 

PROCEDURE AddPart( REF dirname 


size 


LIBRARY DosBase BY -966 


' Dl : 

STRING; 


[ D2 : 

: STRING; 


[ D3 : 

; LONGCARD 

): LONGBOOL; 

buf 

IN Dl : 

STRING; 

pat 

IN D2 : 

ANYPTR; 

buflen IN D3 : 

LONGINT ): LONGINT 


LIBRARY DosBase BY -972 

PROCEDURE MatchPatternNoCase( pat IN Dl 

REF str IN D2 


: ANYPTR; 

: STRING ): LONGBOOL; 


GROUP 

DosArgGrp = ReadArgs, FindArg, Readitem, StrToLong, MatchFirst, 
MatchNext,MatchEnd, ParsePattern, MatchPattern, 
FreeArgs, FilePart,PathPart, AddPart, RDArgs, 
RDArgsPtr, CSource, CSourcePtr,AnchorPath, 
AnchorPathPtr, ParsePatternNoCase, MatchPatternNoCase; 


I 9. Var Group 


LIBRARY DosBase BY -900 

PROCEDURE SetVarC REF name IN Dl : STRING; 

REF buffer IN D2 : STRING; 
size IN D3 : LONGINT; 
flags IN D4 : GetVarFlagSet): LONGBOOL; 

PROCEDURE GetVarC REF name : STRING; 

VAR buffer : STRING; 
size : LONGINT; 

flags : GetVarFlagSet): LONGBOOL; 


LIBRARY DosBase BY -912 

PROCEDURE DeleteVarC REF name IN Dl : STRING; 

flags IN D2 : GetVarFlagSet): LONGBOOL; 


LIBRARY DosBase BY -918 

PROCEDURE FindVarC REF name IN Dl: STRING; 

type IN D2: GetVarFlagSet): LocalVarPtr; 


GROUP 

DosVarGrp = SetVar, GetVar, DeleteVar, FindVar, LocalVar, 
LocalVarPtr,GetVarFlags; 
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I 10. Mise 


LIBRARY DosBase BY -228 

PROCEDURE AllocDosObject( type IN Dl : DosObject; 

tags IN D2 : LIST OF DosQbjectTags):ANYPTR; 

LIBRARY DosBase BY -228 

PROCEDURE AllocDosObjectList( type IN Dl : DosObject; 

tags IN D2 : DosObjectTagListPtr):ANYPTR; 


LIBRARY DosBase BY -234 

PROCEDURE FreeDosObject( type IN Dl : DosObject; 

ptr IN D2 : ANYPTR ); 

LIBRARY DosBase BY -792 

PROCEDURE CheckSignaK mask IN Dl : LONGCARD ): LONGCARD; 


LIBRARY DosBase BY -888 

PROCEDURE StartNotifyC notify IN Dl : NotifyRequestPtr ): LONGBOOL; 
LIBRARY DosBase BY -894 

PROCEDURE EndNotifyC notify IN Dl : NotifyRequestPtr ); 


GROUP 

DosMiscGrp = AllocDosObject, FreeDosObject, CheckSignal, StartNotify, 
EndNotify, NotifyRequest, NotifyRequestPtr; 


TypeGrp 


AChainFlags, 
ChangeModeType, 
DeviceListType, 
DiskType, 

EntryType, 

External, 

Hunks, 

GetVarFlags, 

NotifyRequestFlags, 
ProcessFlags, 
ReadltemType, 
RunType, 

SeekMode; 


AnchorPathFlags, 
DateFormats, 
DevProcFlags, 
DosCommands, 
ErrorReportType, 
GetVarFlags, 
loErrors, 
LockDosFlags, 
OpenMode, 
ProtectionFlags, 
ReturnCode, 
SameLockType, 


BreakSignals, 
DatFlags, 
DiskStatus, 
DosObject, 
ExAllType, 

LinkType, 
LockMode, 

RDArgsFlags, 
RootNodeFlags, 
SameLockType, 


GROUP 

All 


AChain, 

BSTR, 

CommandLinelnterfacePtr 

ctrlD, 

ctrlF, 

DatePtr, 

DateTimePtr, 

DeviceList, 


CommandLinelnterface 
ctrlC, 
ctrlE, 

Date, 

DateTime, 

DeviceListPtr, 
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DeviceListType, 
DeviceNodePtr, 
DosArgGrp, 
DosEnvec, 
DosErrorGrp, 
DosFileGrp, 
DosinfoPtr, 
DosLibrary, 
DosListGrp, 
DosProcessGrp, 
DosVarGrp, 
f ail, 

FileLock, 
FileSysStartupMs 
PacketGrp, 
PathinfoPtr, 
ResidentSegment, 
RootNode, 
TaskArray, 
TypeGrp, 


LIBRARY DosBase BY -402 

PROCEDURE ROMNameFromLockdock 

buffer 
len 


DeviceNode, 

DevProc, 

DosBase, 

DosEnvecPtr, 

Dosinfo, 

DosIDGrp, 
DosLibraryPtr, 
DosMiscGrp, 
DosSegmentGrp, 
error, 

FileHandle, 
FileSysStartupMsg, 
r, ok, 

Pathinfo, 

Process, 

ResidentSegmentPtr, 
RootNodePtr, 
TaskArrayPtr, 
warn; 


IN Dl : FileLockPtr; 

IN D2 : SysStringPtr; 

IN D3 : LONGINT ): LONGBOOL; 


LIBRARY DosBase BY -408 

PROCEDURE ROMNameFHCfh IN Dl 

buffer IN D2 
len IN D3 


FileHandlePtr; 
SysStringPtr; 

LONGINT ): LONGBOOL; 


LIBRARY DosBase BY -414 

PROCEDURE ROMSplitNameC REF name IN Dl 

separater IN D2 

buf IN D3 

oldpos IN D4 

size IN D5 


STRING; 

CHAR; 

SysStringPtr; 

INTEGER; 

LONGINT ): INTEGER; 


LIBRARY DosBase BY -438 

PROCEDURE ROMReadLinkC port IN Dl : MsgPortPtr; 

lock IN D2 : FileLockPtr; 

REF path IN D3 : STRING; 

buffer IN D4 : SysStringPtr; 

size IN D5 : LONGCARD ): LONGBOOL; 


LIBRARY DosBase BY -468 

PROCEDURE ROMFaultC code IN Dl 

REF header IN D2 
buffer IN D3 
len IN D4 


: loErrors; 

: STRING; 

: SysStringPtr; 

: LONGINT ): LONGBOOL; 
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LIBRARY DosBase BY -564 

PROCEDURE RDMGetCurrentDirName(buf IN Dl : SysStringPtr; 

len IN D2 : LONGINT ): LONGBOOL; 


LIBRARY DosBase BY -576 

PROCEDURE RDMGetProgramName( buf IN Dl : SysStringPtr; 

len IN D2 : LONGINT ): LONGBOOL; 


LIBRARY DosBase BY -906 

PROCEDURE ROMGetVarC REF name IN Dl : STRING; 

buffer IN D2 : SysStringPtr; 

size IN D3 : LONGINT; 

flags IN D4 : GetVarFlagSet): LONGBOOL; 

LIBRARY DosBase BY -198 

PROCEDURE ROMDelayC ticks IN Dl : LONGCARD ); 

LIBRARY DosBase BY -588 

PROCEDURE ROMGetPrompt( buf IN Dl : SysStringPtr; 

len IN D2 : LONGINT ): LONGBOOL; 


END Dos. 
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8.14 Exec 

DEFINITION MODULE Exec; 

I WARNING 

I 

I autodocs and fdfiles sometimes differ. search for "WARNING" 


Groups in this module ( in this order ): 


Const, 

Node, 

List, 

Int, 

Mem, 

Task, 

MsgPort, 

oldMsgPort, 

Lib, 

DevicelO, 

Semaphore, 

Resident, 

ExecBase, 

Special, 

Signal, 

Trap, 

Resource, 

Kick, 

Private, 

Cache, 

Child, 

Func, 

Ptr, 

Record 


No structures are based on ResHandles due to multiple inheritance. Look 
in T_Exec for ResHandles. 

MinNode, MinList, List, IntVector, MemChunk, MemEntry, Resident 


(* $A- *) 


FROM System IMPORT 

(* T *) BITSET, 
PROC, 


BPTR, 

Regs, 


LONGSET, 
SysStringPtr; 


FROM Hardware IMPORT 

(* T *) CustomPtr, IntFlags, IntFlagSet 

(*,LIntFlags *); 


I sometimes you need ... 

I 

TYPE 


LONGPTR = POINTER TO LONGINT; 

I 

I ExecBase forward for Library calls ( found in ExecBaseGrp ) 


TYPE ExecBasePtr = POINTER TO ExecBaseType; 
VAR ExecBase : ExecBasePtr; 
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I types 


I most of CBM types are superfluous, as Cluster has its own definitions 
I This group is not included in All, as the members are not very important. 

CONST 

includeVersion =36; | Version of the includes used. 

byteMask = 255; | For the fumblers. 

libraryMinimum =33; | Lowest Version supported by Commodore-Amiga. 

GROUP 

ConstGrp = includeVersion, byteMask, libraryMinimum; 


I nodes 


TYPE 


I User node types work down from "user" 


NodeType 

= ( unknown. 


task. 


device, 


msgPort, 


freeMsg, 


replyMsg 


library, 


memory, 


f ont, 


process, 


signalSem, 


bootNode 


kickMem, 


graphics 


user = 254, 


extended 

NodePri 

= [-128..127]; 

1 SHORTINT; 

MinNodePtr 

= POINTER TO MinNode; 


MinNode 

= RECORD 




succ, 




pred : SAMEPTR; 



END; 




NodePtr 

Node 


= POINTER TO Node; 

= RECORD OF MinNode 
type 
pri 
name 
END; 


NodeType; 
NodePri; 
SysStringPtr; 


interrupt, 
message, 
resoucre, 
softint, 
Semaphore, 

(* v36 *) 
deathMessage, 


I 8 Bytes 


I 14 Bytes 
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GROUP 

NodeGrp = 

(* I *) SysStringPtr, 

(* T *) MinNode, MinNodePtr, Node, 

NodePtr, NodeType; 


I lists 


TYPE 


MinListPtr 

= POINTER TO 

MinList; 

MinList 

= RECORD 
he ad, 
tail, 



tailPred 

END; 

: MinNodePtr 

ListPtr 

= POINTER TO 

List; 

List 

= RECORD 
he ad, 
tail, 



tailPred 

: NodePtr; 


type 

: NodeType; 


pad 

END; 

: SHORTCARD 


12 Bytes 


14 Bytes 


I As List cannot be made a successor of MinList, we have to define separate 


I functions for listfunctions, which can be used both for Nodes/Lists and 
I MinNodes/MinLists. The Min* variant will have an ’M’ befere the object. 


LIBRARY ExecBase BY -240 

PROCEDURE AddHeadC list IN AO : ListPtr; 

node IN Al : NodePtr ); 

LIBRARY ExecBase BY -240 

PROCEDURE AddMHeadC minList IN AO : MinListPtr; 

minNode IN Al : MinNodePtr ); 

LIBRARY ExecBase BY -246 

PROCEDURE AddTaiK list IN AO : ListPtr; 

node IN Al : NodePtr ); 

LIBRARY ExecBase BY -246 

PROCEDURE AddMTaiK minList IN AO : MinListPtr; 

minNode IN Al : MinNodePtr ); 
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I initialize a piece of memory pointed to by "list" to be an empty list. 
PROCEDURE NewListC VAR list : List; 

type : NodeType ); 

PROCEDURE NewMListC VAR minList : MinList ); 

I no MinNodes allowed. 

LIBRARY ExecBase BY -270 

PROCEDURE EnqueueC list IN AO : ListPtr; 

node IN Al : NodePtr ); 

LIBRARY ExecBase BY -276 

PROCEDURE FindNameC list IN AO : ListPtr; 

name IN Al : SysStringPtr ): NodePtr; 

LIBRARY ExecBase BY -234 

PROCEDURE Insert( list IN AO : ListPtr; 

node IN Al, 

listNode IN A2 : NodePtr ); 

LIBRARY ExecBase BY -234 

PROCEDURE MInsertC minList IN AO : MinListPtr; 

minNode IN Al, 

minListNode IN A2 : MinNodePtr ); 

LIBRARY ExecBase BY -258 

PROCEDURE RemHeadC list IN AO : ListPtr ): NodePtr; 

LIBRARY ExecBase BY -258 

PROCEDURE RemMHeadC minList IN AO : MinListPtr ): MinNodePtr; 

I Works for Nodes just as well 
LIBRARY ExecBase BY -252 

PROCEDURE RemoveC minNode IN Al : MinNodePtr ); 

LIBRARY ExecBase BY -264 

PROCEDURE RemTaiK list IN AO : ListPtr ): NodePtr; 

LIBRARY ExecBase BY -264 

PROCEDURE RemMTaiK minList IN AO : MinListPtr ): MinNodePtr; 

GROUP 

ListGrp = 


(* 

I 

*) 

NodeGrp, 



(* 

T 

*) 

List, 

MinListPtr, 

ListPtr, 

MinList, 

(* 

P 

*) 

AddHead, 

AddTail, 

NewList, 




Enqueue, 

FindName, 

Insert, 




RemHead, 

Remove, 

RemTail; 


©1992/93 by StoneWare 



8.14. EXEC 


67 


I Interrupts 


TYPE 

InterruptPtr = POINTER TO Interrupt; 

I Functions which can be used as interupt code. 


IntFuncPtr 

= POINTER 

TO IntFunc 

9 




IntFunc 

= PROCEDURE( data IN 

Al : 

ANYPTR; 

1 Interrupt.data 



custom 

IN 

AO 

: CustomPtr; 




int 

IN 

Dl 

: IntFlagSet; 

1 intenar AND 







1 intreqr 



mycode 

IN 

A5 

: IntFuncPtr; 




exec 

IN 

A6 

: ExecBasePtr 

) : LONGINT; 

Interrupt 

= RECORD 

OF Node 



1 

22 Bytes 


data 

: ANYPTR; 






Code 

: PROC; 



1 

IntFunc 


END; 

use only 

= POINTER TO IntVector; 

= RECORD I 12 Bytes 

data : ANYPTR; 

Code : PROC; 
node : NodePtr 
END; 

I For ExecBase use only 

SoftlntListPtr = POINTER TO SoftlntList; 

SoftlntList = RECORD OF List 

pad : CARDINAL 
END; 

PROCEDURE AddlntServer( intNumber : IntFlags; | Autodocs are wrong 

Interrupt : InterruptPtr ); 

I LIBRARY ExecBase BY -168 

I PROCEDURE AddlntServer( intNumber IN DO : IntFlags; | Autodocs are wrong 
I Interrupt IN Al : InterruptPtr ); 

LIBRARY ExecBase BY -180 

PROCEDURE Cause( (* REF *) Interrupt IN Al : InterruptPtr ); 

LIBRARY ExecBase BY -120 
PROCEDURE Disable; 

LIBRARY ExecBase BY -126 
PROCEDURE Enable; 

LIBRARY ExecBase BY -132 
PROCEDURE Forbid; 


I 16 Bytes 

I keep longword alignment 


I For ExecBase 

IntVectorPtr 

IntVector 
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LIBRARY ExecBase BY -138 
PROCEDURE Permit; 

PROCEDURE RemlntServer( intNumber 

Interrupt 

I LIBRARY ExecBase BY -174 

I PROCEDURE RemlntServer( intNumber 
I Interrupt 


IntFlags; | Autodocs are wrong 

InterruptPtr ); 

IN DO : IntFlags; | Autodocs are wrong 
IN Al : InterruptPtr ); 


PROCEDURE SetlntVector( intNumber : IntFlags; | Autodocs are wrong 

Interrupt : InterruptPtr ): InterruptPtr; 

I LIBRARY ExecBase BY -162 

I PROCEDURE SetlntVector( intNumber IN DO : IntFlags; | Autodocs are wrong 
I Interrupt IN Al : InterruptPtr ): InterruptPtr; 

LIBRARY ExecBase BY -144 

PROCEDURE SetSR( newSR IN DO : BITSET; mask IN Dl : BITSET ): BITSET; 

LIBRARY ExecBase BY -150 

PROCEDURE SuperStateO : ANYPTR; 

LIBRARY ExecBase BY -30 

PROCEDURE SupervisorC userFunction IN A5: PROC ); 

LIBRARY ExecBase BY -156 

PROCEDURE UserStateC sysStack IN DO : ANYPTR ); 


GROUP 

IntGrp = 


(* 

I 

*) 

IntFlags, 

PROC, 

(♦LlntFlags,*) 

ListGrp, 

(* 

T 

*) 

Interrupt, 
IntFuncPtr, 

InterruptPtr, 
IntVector, 

IntFunc, 
IntVectorPtr, 




SoftlntList, 

SoftIntListPtr, 


(* 

P 

*) 

AddlntServer, 

Cause, 

Disable, 




Enable, 

Forbid, 

Permit, 




RemlntServer, 

SetlntVector, 

SetSR, 




SuperState, 

Supervisor, 

UserState; 
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I memory 


TYPE 


I local, dma24, reverse and total are new for V36. 

I dma24 is memory within the 24 bit address space. 

MemReqs = ( public, Chip, fast, mr3, mr4, mr5, 

mr6, mr7, local, dma24, mrlO, mrll 

mrl2, mrl3, mrl4, mrl5, clear, largest 

reverse, total ); 

I clear used to be memClear when the Compiler did not like it 


MemReqSet 

MemTypeSet 

MemChunkPtr 

MemChunk 


MemHeaderPtr 

MemHeader 


MemEntryPtr 

MemEntry 


MemListPtr 

MemList 


= SET OF MemReqs; 

= SET OF [public..mr15]; 

= POINTER TO MemChunk; 

= RECORD 

next : MemChunkPtr; 
bytes : LONGCARD 
END; 

= POINTER TO MemHeader; 

= RECORD OF Node 

attributes : MemTypeSet; 
first : MemChunkPt r; 

lower : ANYPTR; 

upper : ANYPTR; 

free : LONGCARD 

END; 

= POINTER TO MemEntry; 

= RECORD 

IF KEY :INTEGER 

OF 1 THEN reqs : MemReqSet 
OF 2 THEN addr : ANYPTR 
END; 

length : LONGCARD; 

END; 


I 8 Bytes 


I 32 Bytes 


I 8 Bytes 


= POINTER TO MemList; 

= RECORD OF Node | 16+me^RANGE=t=8 Bytes 

numEntries : CARDINAL; 
me : ARRAY [1000] OF MemEntry; 

END; 


LIBRARY ExecBase BY -204 

PROCEDURE AllocAbsC byteSize IN DO 

location IN Al 


: LONGINT; 

: ANYPTR ): ANYPTR; 


LIBRARY ExecBase BY -186 

PROCEDURE AllocateC freeList IN AO 

byteSize IN DO 


: MemHeaderPtr; 

: LONGCARD ): ANYPTR; 
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LIBRARY ExecBase BY -222 

PROCEDURE AllocEntryC memList IN AO : MemListPtr ): MemListPtr; 
LIBRARY ExecBase BY -198 

PROCEDURE AllocMemC byteSize IN DO : LDNGCARD; | WARNING: used to 

I be LONGINT 

requirements IN Dl : MemReqSet ): ANYPTR; 

I no doc available, prototype from fd file and thin air (V37). 

LIBRARY ExecBase BY -708 

PROCEDURE AllocPooIedC memSize IN DO : LONGCARD; 

pooIHeader IN AO : ANYPTR ): ANYPTR; 

I allocate memory and keep track of the size (V36) 

1 like AllocMem, but remembers the size. FREE WITH FreeVec !!! 

LIBRARY ExecBase BY -684 

PROCEDURE AllocVecC byteSize IN DO : LONGCARD; 

requirements IN Dl : MemReqSet ): ANYPTR; 


LIBRARY ExecBase BY -216 

PROCEDURE AvailMemC requirements IN Dl : MemReqSet ): LONGCARD; 


I no doc available, prototype from fd file and thin air (V37). 

LIBRARY ExecBase BY -696 

PROCEDURE CreatePrivatePool( requirements IN DO : MemReqSet; | this is 

I a guess 


puddleSize IN Dl, 

puddleThresh IN D2 : LONGCARD ): ANYPTR; 


LIBRARY ExecBase BY -192 

PROCEDURE DeallocateC freeList IN AO : MemHeaderPtr; 

memoryBlock IN Al : ANYPTR; 
byteSize IN DO : LONGCARD ); 

I no doc available, prototype from fd file and thin air (V37). 

LIBRARY ExecBase BY -702 

PROCEDURE DeletePrivatePool( pooIHeader IN AO : ANYPTR ); 

LIBRARY ExecBase BY -228 

PROCEDURE FreeEntryC memList IN AO : MemListPtr ); 

LIBRARY ExecBase BY -210 

PROCEDURE FreeMemC memoryBlock IN Al : ANYPTR; 

byteSize IN DO : LONGCARD ); 

I no doc available, prototype from fd file and thin air (V37). 

LIBRARY ExecBase BY -714 

PROCEDURE FreePooledC memory IN Al, pooIHeader IN AO : ANYPTR ) : ANYPTR; 

I return AllocVecO memory to the System (V36) 

LIBRARY ExecBase BY -690 

PROCEDURE FreeVec( memoryBlock IN Al: ANYPTR ); 


LIBRARY ExecBase BY -534 
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PROCEDURE TypeOfMemC address IN AO : ANYPTR ): MemReqSet; 


GROUP 

I New for V36 are AllocPooled, AllocVec, CreatePrivatePool, 


1 DeletePrivatePool, FreePooled, 

FreeVec. 


MemGrp = 

*) 




(* I 

NodeGrp, 



(* T 

*) 

MemChunk, 

MemChunkPtr, 

MemEntry, 



MemEntryPtr, 

MemHeader, 

MemHeaderPtr 



MemList, 

MemListPtr, 

MemReqs, 



MemReqSet, 

MemTypeSet, 


(* P 

*) 

AllocAbs, 

Allocate, 

AllocEntry, 



AllocMem, 

AllocPooled, 

AllocVec, 



AvailMem, 

CreatePrivatePool, 

Deallocate, 



DeletePrivatePool 

, FreeEntry, 

FreeMem, 



FreePooled, 

FreeVec, 

TypeOfMem; 


I tasks 


TYPE 


I etask is new for V36 

TaskFlags = ( procTime, tfl, tf2, 

stackChk, exception, switch, 

TaskFlagSet = SET OF TaskFlags; 


etask, 
launch ); 


TaskState 


( inval, added, run, ready, wait, except, removed ); 


I Signals 0-15 are preallocated, but only some have official names. The 
I highest 16 Signals (upto max) are there for the task's use. Please do 
I allocate them before using them 


TaskSignals 


( noSignal = 
anySignal = 
abort, 
blit, 
ts7, 
tsll, 
ctrlF, 


- 1 , 

- 1 , 

child, 
single=4, 
dos, 
ctrlC, 
max=31 ); 


= SET OF TaskSignals; 


ts2, ts3, 

Intuition, ts6, 
ts9, tslÖ, 

ctrlD, ctrlE, 


TaskSigSet 
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I Procedures registered as exceptCode get called like this. ’data' is 
1 the exceptData field from the Task RECORD. ’Signals' is the set of 
I exceptions, that occured. The result value of an ExceptPRDC is put 
I into sigExcept, thus setting the Signals which can cause a soft 
I exception from then on. The Cluster runtimesystem has an 
I exceptionhandling routine of its own, so be careful to use this 
I possibilty on your own. 

I 

ExceptPROC = PROCEDURE( Signals IN DO : TaskSigSet; 

data IN Al : ANYPTR ) : TaskSigSet; 


TaskPtr 

Task 


CONST 


POINTER TO Task; 
RECORD OF Node 


flags : 

state : 

idNestCnt, 
tdNestCnt : 
sigAlloc, 
sigWait, 
sigRecvd, 
sigExcept : 
trapAlloc, 
trapAble : 
exceptData: 
exceptCode: 
trapData : 
trapCode : 
spReg, 
spLower, 
spUpper : 
switch, 
launch : 
memEntry : 
userData : 

END; 


TaskFlagSet; 
TaskState; 

SHORTINT; | 


TaskSigSet; 

BITSET; 
ANYPTR; 
ExceptPROC; 
ANYPTR; 
PROC; 


ANYPTR; 

PROC; 
List; 
ANYPTR; 


I 92 Bytes 


WARNING: used to be SHORTCARD 


I WARNING: 

SigAbort 

SigChild 

SigBlit 

SigSingle 

SigDos 

SigCtrlC 

SigCtrlD 

SigCtrlE 

SigCtrlF 


Sig* are now real Signals, 
= TaskSigSet:{ abort }; 

= TaskSigSet:{ child }; 

= TaskSigSet:{ blit }; 

= TaskSigSet:{ single }; 

= TaskSigSet:{ dos }; 

= TaskSigSet:{ ctrlC }; 

= TaskSigSet:{ ctrlD } 

= TaskSigSet:{ ctrlE } 

= TaskSigSet:{ ctrlF } 


not the Bit numbers. 


I same as single 
I same as blit 
I used for Dos calls 


LIBRARY ExecBase BY -282 

PROCEDURE AddTaskC task IN Al : TaskPtr; 

initialPC IN A2 : ANYPTR; 

finalPC IN A3 : ANYPTR ): TaskPtr; 
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LIBRARY ExecBase BY -288 

PROCEDURE RemTaskC task IN Al : TaskPtr ); 

LIBRARY ExecBase BY -294 

PROCEDURE FindTaskC name IN Al : SysStringPtr ): TaskPtr; 

LIBRARY ExecBase BY -300 

PROCEDURE SetTaskPriC task IN Al : TaskPtr; 

pri IN DO : NodePri ): NodePri; 

I CreateTask and DeleteTask are in T_Exec 

GROUP 

TaskGrp = 


(* 

I 

*) 

ListGrp, 

PROC, 


(* 

T 

*) 

ExceptPROC, 

Task, 

TaskFlags, 




TaskFlagSet, 

TaskPtr, 

TaskSignals, 




TaskSigSet, 

TaskState, 


(* 

C 

*) 

SigAbort, 

SigBlit, 

SigChild, 




SigDos, 

SigSingle, 

SigCtrlC, 




SigCtrlD, 

SigCtrlE, 

SigCtrlF, 

(* 

P 

*) 

AddTask, 
SetTaskPri; 

FindTask, 

RemTask, 


I ports 


TYPE 


MsgPortAction = ( Signal, softint, ignore ); 


MsgPortPtr 

MsgPort 


MessagePtr 

Message 


= POINTER TO MsgPort; 

= RECORD OF Node 

IF KEY flags : MsgPortAction 

OF Signal THEN sigBit : TaskSignals; 

sigTask : TaskPtr 

OF softint THEN softint : InterruptPtr 
END; 

msgList : List; 

END; 

= POINTER TO Message; 

= RECORD OF Node 

replyPort : MsgPortPtr; 

msgSize : CARDINAL; | include Message’SIZE !!! 
END; 


LIBRARY ExecBase BY -354 

PROCEDURE AddPortC port IN Al : MsgPortPtr ); 
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I Allocate and initialize a new message port (V36) 

I Alloc a Signal, clear msgList and set port to Signal the calling task. 

I To make public, set name and pri, AddPort, use, RemPort and DeleteMsgPort. 
I YOU =t=MUST* USE DeleteMsgPort TO DELETE PORTS CREATED WITH CreateMsgPort! 
LIBRARY ExecBase BY -666 

PROCEDURE CreateMsgPort(): MsgPortPtr; 

I Free a message port created by CreateMsgPort (V36) 

I port may be NIL. msgList MUST already be empty. 

LIBRARY ExecBase BY -672 

PROCEDURE DeleteMsgPort( port IN AO : MsgPortPtr ); 

LIBRARY ExecBase BY -390 

PROCEDURE FindPortC REF name IN Al : STRING ): MsgPortPtr; 

LIBRARY ExecBase BY -372 

PROCEDURE GetMsgC port IN AO : MsgPortPtr ): MessagePtr; 

LIBRARY ExecBase BY -366 

PROCEDURE PutMsgC port IN AO : MsgPortPtr; 

msg IN Al : MessagePtr ); 

LIBRARY ExecBase BY -360 

PROCEDURE RemPort( port IN Al : MsgPortPtr ); 

LIBRARY ExecBase BY -378 

PROCEDURE ReplyMsgC msg IN Al : MessagePtr ); 

LIBRARY ExecBase BY -384 

PROCEDURE WaitPortC port IN AO : MsgPortPtr ): MessagePtr; 

GROUP 


MsgPortGrp = 

(* I *) TaskGrp, 

(* T *) Message, 

MessagePtr, 

MsgPort, 

MsgPortAction, 

(=»= p ♦) 

MsgPortPtr, 
AddPort, 

CreateMsgPort, 

DeleteMsgPort, 

FindPort, 


GetMsg, 

ReplyMsg, 

PutMsg, 

WaitPort; 

RemPort, 



I libraries 


CONST 

vectSize 

reserved 

base 

userDef 

nonStd 


= 6 ; 

= 4; 

= -vectSize; 

= base-reserved*vectSize; 
= userDef; 
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extFunc 

expunge 

dose 

open 

TYPE 


= -24; 
= -18; 
= - 12 ; 
= - 6 ; 


User functions begin here 


LibFlags 

= ( summing. 

1 currently being checksummed 


changed. 

1 has just been 

changed 


sumUsed, 

1 should be summed 


delExp ) 

; 1 delayed expunge 

LibFlagSet 

= SET OF LibFlags; 


LibraryPtr 

= POINTER TO 

Library; 


Library 

= RECORD OF 

^ode 

1 34 Bytes 


f lags 

: LibFlagSet; 



libPad 

: SHORTCARD; | 

WARNING: was missing 


negSize, 




posSize, 




Version, 




revision 

: CARDINAL; 



idString 

: SysStringPtr; 



sum 

: LONGCARD; 



openCnt 

: CARDINAL; 



END; 

1 Warning: not a longword 

LiblnitProc 

= PROCEDURE 

( lib IN DO : 

LibraryPtr; 


segList IN AO : BPTR; 

exec IN A6 : ExecBasePtr ): LibraryPtr; 
FuncArrayPtr = POINTER TO ARRAY OF PROC; 

LIBRARY ExecBase BY -396 

PROCEDURE AddLibraryC library IN Al : LibraryPtr ); 

LIBRARY ExecBase BY -414 

PROCEDURE CloseLibrary( library IN Al : LibraryPtr ); 

LIBRARY ExecBase BY -90 

PROCEDURE MakeFunctions( target IN AO : ANYPTR; 

functArray IN Al : ANYPTR; 

functDispBase IN A2 : ANYPTR ); 


LIBRARY ExecBase BY -84 

PROCEDURE MakeLibraryC vectors IN AO 

structure IN Al 
init IN A2 

dataSize IN DO 
segList IN Dl 


FuncArrayPtr; 
ANYPTR; 

LiblnitProc; 
LONGCARD; 

BPTR ): LibraryPtr; 


LIBRARY ExecBase BY -408 

PROCEDURE OldOpenLibrary( REF name IN Al : STRING ): LibraryPtr; 


LIBRARY ExecBase BY -552 

PROCEDURE OpenLibraryC REF name 


IN Al : STRING; 
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Version IN DO : LONGINT ): LibraryPtr; 


LIBRARY ExecBase BY -402 

PROCEDURE RemLibraryC library IN Al : LibraryPtr ); 


LIBRARY ExecBase BY -420 

PROCEDURE SetFunctionC library IN Al : LibraryPtr; 

funcOffset IN AO : INTEGER; 
funcEntry IN DO : ANYPTR ): ANYPTR; 


I no doc available, prototype from fd file and thin air. 

LIBRARY ExecBase BY -720 

PROCEDURE SetFunction8( funcOffset IN DO : LONGCARD; 

newFunction IN Dl : ANYPTR; 

array IN AO : ANYPTR; 

library IN Al : LibraryPtr ): ANYPTR; 

LIBRARY ExecBase BY -426 

PROCEDURE SumLibraryC library IN Al : LibraryPtr ); 

GROUP 


I New for V36 is SetFunctionS. 
LibGrp = 

(* I *) 

(* T *) 

(* C *) 


(♦ p *) 


BPTR, 

FuncArrayPtr, 
base, 
nonStd, 
vectSize, 
AddLibrary, 
OldOpenLibrary, 
SetFunctionS, 


NodeGrp, 
LiblnitProc, 
dose, 
open, 

CloseLibrary, 
OpenLibrary, 
SumLibrary; 


Library, 
expunge, 
reserved, 

MakeFunctions, 
RemLibrary, 


LibraryPtr, 
extFunc, 
userDef, 

MakeLibrary, 
SetFunction, 


I devices 


TYPE 

DevicePtr 

Device 

UnitFlags 

UnitFlagSet 

UnitPtr 

Unit 


POINTER TO Device; 

RECORD OF Library END; 

( active, inTask ); 

SET OF UnitFlags; 

POINTER TO Unit; 

RECORD OF MsgPort; 

flags : UnitFlagSet; 
unit_Pad : SHORTCARD; 
openCnt : CARDINAL 
END; 


I WARNING: added 


I + io 
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TYPE 


IDFlags = ( lOquick, IDl, IQ2, ID3, 104, 105, 106, 107 ); 

lOFlagSet = SET OF lOFlags; 


I CARDINAL values for I/O command 
lOCommand = ( invalid, 
write, 
stop, 
nonstd. 


reset, 
update, 

Start, 

makemecard = 


read, 
clear, 
flush, 
$7FFF ); 


I SHORTCARD return values for device 10 functions and the error field 
lOReturn = ( badLength = $FC, 
noCmd = $FD, 
aborted = $FE, 
openFail = $FF, 
ioOk = 0); 


CONST 


I used more easily to extend lOCommand 
nonstdVAL = CARDINAL( nonstd ); 


I Offsets into device structures 
abortIO = -36; 

beginlO = -30; 


quick 


I0FlagSet:{ lOquick }; 


TYPE 


lORequestPtr = POINTER TO lORequest; 
lORequest = RECORD OF Message 

device : DevicePtr; 

unit : UnitPtr; 

command : lOCommand; 

flags : lOFlagSet; 

error : lOReturn; 

END; 


lOStdReqPtr 

lOStdReq 


POINTER TO lOStdReq; 
RECORD OF lORequest 
actual, 

length : LONGCARD; 
data : ANYPTR; 
Offset : LONGCARD; 
END; 


I CARDINAL 
I SHORTCARD 
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I devices 

LIBRARY ExecBase BY -432 

PROCEDURE AddDeviceC device IN Al : DevicePtr ); 

LIBRARY ExecBase BY -450 

PROCEDURE CloseDeviceC ioRequest IN Al : IDRequestPtr ); 

I create an lORequest structure (V36) 

I Allocates memory for and initializes a new IQ request block. 

I size must be at least Message’SIZE 

I port may be the non-NIL return value of CreateMsgPort. 

I returns a pointer to the new lORequest block, or NIL. 

LIBRARY ExecBase BY -654 

PROCEDURE CreatelORequest( port IN AO : MsgPortPtr; 

size IN DO : LONGCARD ): lORequestPtr; 

I DeletelORequest0 - Free a request made by CreatelORequest() (V36) 

LIBRARY ExecBase BY -660 

PROCEDURE DeletelORequest( iorequest IN AO : lORequestPtr ); 

I QpenDevice 

I 

I returns a sign extended copy of ioRequest.error. 

LIBRARY ExecBase BY -444 

PROCEDURE QpenDevice( REF devName IN AO : STRING; 

unit IN DO : LONGCARD; 

ioRequest IN Al : lORequestPtr; 

flags IN Dl : LONGSET ): lOReturn; 

LIBRARY ExecBase BY -438 

PROCEDURE RemDeviceC device IN Al : DevicePtr ); 


I/O Functions 

!! NOTE !! LQNGINT return values are the sign extended Version of 
ioRequest.error ! 


LIBRARY ExecBase BY -480 

PROCEDURE AbortlOC ioRequest IN Al : lORequestPtr ); 

LIBRARY ExecBase BY -468 

PROCEDURE ChecklOC ioRequest IN Al : lORequestPtr ): lORequestPtr; 
LIBRARY ExecBase BY -456 


PROCEDURE DoI0( ioRequest IN Al : 

LIBRARY ExecBase BY -462 

PROCEDURE SendlOC ioRequest IN Al 


LIBRARY ExecBase BY 
PROCEDURE WaitlOC 


-474 

ioRequest IN Al 


lORequestPtr ): lOReturn; 

: lORequestPtr ); 

: lORequestPtr ): lOReturn; 
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GROUP 




1 new for V36 

are CreatelORequest and DeletelORequest. 

DevicelOGrp = 
(* I *) 

LibGrp, 

MsgPortGrp, 


(* T *) 

Device, 

DevicePtr, 

lOFlagSet, 


lORequest, 

lORequestPtr, 

lOStdReq, 


lOStdReqPtr, 

Unit, 

UnitFlags, 


UnitFlagSet, 

UnitPtr, 


(* C *) 

abortIO, 

beginlO, 

nonStd, 


nonstdVAL, 

quick. 


(* p *) 

AbortIO, 

AddDevice, 

ChecklO, 


CloseDevice, 

CreatelORequest, 

DeletelORequest, 


DoIO, 

OpenDevice, 

RemDevice, 


SendIO, 

WaitIO; 


1 

1 semaphores 

1 


TYPE 


SemaphoreRequestPtr = POINTER TO SemaphoreRequest; 
SemaphoreRequest = RECORD OF MinNode 

waiter : TaskPtr; 

END; 


SignalSemaphorePtr 

SignalSemaphore 


= POINTER TO SignalSemaphore; 

= RECORD OF Node 

nestCount : INTEGER; 

waitQueue : MinList; 

multipleLink : SemaphoreRequest; 

owner : TaskPtr; 

queueCount : INTEGER; 

END; 


SemaphorePtr 

Semaphore 


POINTER TO Semaphore; 
RECORD OF MsgPort 
bids : INTEGER 
END; 


LIBRARY ExecBase BY -600 

PROCEDURE AddSemaphore( sigSema IN Al : SignalSemaphorePtr ); 

LIBRARY ExecBase BY -576 

PROCEDURE AttemptSemaphore(sigSema IN AO : SignalSemaphorePtr):BOOLEAN; 
LIBRARY ExecBase BY -594 

PROCEDURE FindSemaphore( name IN Al : SysStringPtr ): SignalSemaphore; 
LIBRARY ExecBase BY -558 

PROCEDURE InitSemaphore( sigSema IN AO : SignalSemaphorePtr ); 
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LIBRARY ExecBase BY -564 

PROCEDURE ObtainSemaphore( sigSema IN AO : SignalSemaphorePtr ); 
LIBRARY ExecBase BY -582 

PROCEDURE ObtainSemaphoreList( list IN AO : ListPtr ); 

I gain shared access to a semaphore (V36) 

I Works like you would expect even on older SignalSemaphores 
LIBRARY ExecBase BY -678 

PROCEDURE ObtainSemaphoreSharedC sigSema IN AO : SignalSemaphorePtr ); 

LIBRARY ExecBase BY -540 

PROCEDURE Procure( sema IN AO : SemaphorePtr; 

bidMsg IN Al : MessagePtr ): BOOLEAN; 

LIBRARY ExecBase BY -570 

PROCEDURE ReleaseSemaphore( sigSema IN AO : SignalSemaphorePtr ); 
LIBRARY ExecBase BY -588 

PROCEDURE ReleaseSemaphoreList( list IN AO : ListPtr ); 

LIBRARY ExecBase BY -606 

PROCEDURE RemSemaphore( sigSema IN Al : SignalSemaphorePtr ); 

LIBRARY ExecBase BY -546 

PROCEDURE VacateC sema IN AO : SemaphorePtr ); 

GROUP 


I New for V36 is ObtainSemaphoreShared. 
SemaphoreGrp = 

(=t= I *) MsgPortGrp, 

(* T *) Semaphore, 

SemaphoreRequest, 
SignalSemaphore, 

(* P *) AddSemaphore, 

FindSemaphore, 
ObtainSemaphore, 
ObtainSemaphoreShared, 
ReleaseSemaphore, 
RemSemaphore, 


SemaphorePtr, 
SemaphoreRequestPtr, 
SignalSemaphorePtr, 
AttemptSemaphore, 
InitSemaphore, 
ObtainSemaphoreList, 
Procure, 

ReleaseSemaphoreList, 
Vacate; 


I resident 


TYPE 

I singleTask and afterDos are new for V36 

ResidentFlags = ( coldStart, singleTask, afterDos, rf3, 

rf4, rf5, rf6, autoinit ); 

ResidentFlagSet = SET OF ResidentFlags; 
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ResidentPri = NodePri; 


ResidentPtr 
Resident 

matchWord 

matchTag 

endSkip 

f lags 

Version 

type 

priority 

name 

idString 

init 

END; 


I 26 Bytes 

CARDINAL; 

ResidentPtr; 

ANYPTR; 

ResidentFlagSet; 

SHORTCARD; 

NodeType; 

ResidentPri; 

SysStringPtr; 

SysStringPtr; 

ANYPTR 


= POINTER TO Resident; 
= RECORD 


CONST 

matchWord = $4AFC; | = the 68000 "ILLEGAL" Instruction 

LIBRARY ExecBase BY -96 

PROCEDURE FindResident( name IN Al : SysStringPtr ): ResidentPtr; 


LIBRARY ExecBase BY -72 

PROCEDURE InitCodeC startCIass IN DO : ResidentFlagSet; 

Version IN Dl : LONGINT ); 

LIBRARY ExecBase BY -102 

PROCEDURE InitResident( resident IN Al : ResidentPtr; 

segList IN Dl : BPTR ); 


GROUP 


ResidentGrp 
(* I *) 

BPTR, 

NodeGrp, 


(* T *) 

Resident, 

ResidentFlags, 


(* C *) 

(* p *) 

ResidentFlagSet, 
matchWord, 
FindResident, 

ResidentPtr, 

InitCode, 

InitResident; 

execbase 





TYPE 

AttnFlags 

= ( m68010, m68020. 

m68030, 

m68040, m68881 

m68882, af6. 

af7. 

af 8, af 9 ) ; 

AttnFlagSet 

= SET OF AttnFlags; 

1 2 Byt 

es 

TYPE 

ExecBaseType 

= RECORD OF Library 
softVer 


CARDINAL; 


lowMemChkSum 


INTEGER; 


chkBase 


LONGCARD; 
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I A nice hidingplace for 
coldCapture, 
coolCapture, 
warmCapture 
sysStkUpper, 
sysStkLower 
maxLocMem 

I DebugO address. 
debugEntry 
debugData, 
alertData 
maxExtMem 
chkSum 


the classic virussians. 


PROC; 

ANYPTR; 
LONGCARD; 


PROC; 

ANYPTR; 

ANYPTR; 

CARDINAL; 


I Interface to these with the AddlntServer Function 
intVects : ARRAY IntFIags OF IntVector; 


I "There can be only one" on single CPU machines ... 
thisTask : TaskPtr; 


I All the statistics you get from Exec. 
idleCount, 

dispCount : LONGCARD; 

quantum, 

elapsed : CARDINAL; 

sysFlags : CARDINAL; 

I Interrupt disable nest count 
idNestCnt, 

I Task disable nest count 
tdNestCnt : SHORTCARD; 

I Attention flags 

attnFlags : AttnFlagSet; 


I Rescheduling attention 
attnResched : CARDINAL; 


I resident module array pointer 
resModules : ANYPTR; 


I task administration 
taskTrapCode, 
taskExceptCode, 
taskExitCode 
taskSigAIloc 
taskTrapAlloc 


PROC; 

LONGSET; 

BITSET; 


I The most often read systemlists (read only in 
I Disable Oed code. 
memList, 
resourceList, 
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deviceList, 
intrList, 
libList, 




portList, 
taskReady, 
taskWait 

List; 



1 the list of pending Software Interrupts. They have 

1 the priorities of -32, -16, 0, 16 and 32. 
softlnts : ARRAY [0..4] OF SoftlntList; 


lastAlert 

ARRAY [0..3] 

OF LONGINT; 


1 the next two should usualy contain 

50 or 60 


vBlankFrequency 
powerSupplyFrequency 
semaphoreList 
kickMemPtr, 

SHORTCARD; 
SHORTCARD; 
List; 



kickTagPtr 

kickCheckSum 

ANYPTR; 
LONGCARD; 


1 >= V36 

exPadO 

CARDINAL; 



exReservedO 

LONGCARD; 



RamLibPrivate 
eClockFrequency, 
cacheControl, 
taskID, 

ANYPTR; 

1 

1 

readable 

private 


puddleSize, 
poolThreshold 
publicPool 
mmuLock 

LONGCARD; 
MinList; 
ANYPTR; 



exReservedl 

ARRAY[ 0..11 

] OF SHORTCARD; 

1 <V36 

execBaseReserved, 



1 <V36 

execbaseNewReserved 

END; 

ARRAY [0..9] 

OF SHORTCARD; 

GROUP 




ExecBaseGrp 
(* I *) 

(* T *) 

IntGrp, LibGrp, 

AttnFlags, AttnFlagSet, 

ExecBaseType; 

TaskGrp, 
ExecBase, 

BITSET, 
ExecBasePtr, 

1 

1 special 

1 


TYPE 


PutChProc 


= PROCEDUREC ch IN DO : CHAR; data IN A3 : ANYPTR ); 
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I new for V37 

StackSwapStructPtr = POINTER TO StackSwapStruct; 
StackSwapStruct = RECORD 


lower, 
upper, 

pointer : ANYPTR; 
END; 


new lower bound 
new upper bound 
stack pointer at switch point 


LIBRARY ExecBase BY -108 

PROCEDURE Alert( alertNum IN D7 : LONGINT ); 

I WARNING: used to be parameter 2 :’Params IN A5 : ANYPTR’ 

I try to reboot the Amiga (V36) 

LIBRARY ExecBase BY -726 
PROCEDURE ColdRebootO ; 

LIBRARY ExecBase BY -114 
PROCEDURE DebugO; 

LIBRARY ExecBase BY -528 
PROCEDURE GetCCO: BITSET; 


LIBRARY ExecBase BY -78 


PROCEDURE 

InitStruct( initTable 

IN Al 

: ANYPTR; 


memory 

IN A2 : 

ANYPTR; 

size 

LIBRARY ExecBase BY -522 

IN DO 

: LONGCARD ); 

PROCEDURE 

RawDoFmt( formatString 

IN AO 

: SysStringPtr 


dataStream 

IN Al 

: ANYPTR; 


putChProc 

IN A2 

: PutChProc; 


putChData 

IN A3 

: ANYPTR ); 


I new for V37 and 1:10 
LIBRARY ExecBase BY -732 

PROCEDURE StackSwapC newStack IN AO : StackSwapStructPtr ): ANYPTR; 
GROUP 


I New for V36/V37 are ColdReboot 
SpecialGrp = 

(* T *) PutChProc, 

(* P *) Alert, 

GetCC, 

StackSwap, 


and StackSwap. 


ColdReboot, 
InitStruct, 
StackSwapStruct, 


Debug, 

RawDoFmt, 

StackSwapStructPtr 


I Signals 


LIBRARY ExecBase BY -330 

PROCEDURE AllocSignaK sigNum IN DO : TaskSignals ): TaskSignals; 
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LIBRARY ExecBase BY -336 

PROCEDURE FreeSignaK sigNum IN 

LIBRARY ExecBase BY -312 

PROCEDURE SetExcept( newSigs IN 

sigMask IN 


DO : TaskSignals ); 

DO, 

Dl : TaskSigSet ): TaskSigSet; 


LIBRARY ExecBase BY -306 

PROCEDURE SetSignaK newSigs IN DO, 

sigMask IN Dl : TaskSigSet ): TaskSigSet; 


LIBRARY ExecBase BY -324 

PROCEDURE Signal( task IN Al 

Signal IN DO 


TaskPtr; 
TaskSigSet ); 


LIBRARY ExecBase BY -318 

PROCEDURE Wait( Signals IN DO : TaskSigSet ): TaskSigSet; 


GROUP 

SignalGrp = 

(* I *) TaskGrp, 

(* P *) AllocSignal, FreeSignal, SetExcept, 

SetSignal, Signal, Wait; 


traps 


The Cluster runtime System uses several traps and has a traphandler. Thus, 
TRAPs are off limits for Cluster programs. You can, of course, use TRAPs 
in your own exec tasks. 


LIBRARY ExecBase BY -342 

PROCEDURE AllocTrapC trapNum IN DO : LONGINT ): LONGINT; 

LIBRARY ExecBase BY -348 

PROCEDURE FreeTrapC trapNum IN DO : LONGINT ); 

GROUP 

TrapGrp 

(*P*) AllocTrap, FreeTrap; 
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I resources 


TYPE 

ResourcePtr = POINTER TO Resource; 

Resource = RECORD OF Library END; 

LIBRARY ExecBase BY -486 

PROCEDURE AddResourceC resource IN Al : ResourcePtr ); 

LIBRARY ExecBase BY -492 

PROCEDURE RemResourceC resource IN Al : ResourcePtr ); 

I WARNING: 2nd parameter "Version IN DO : LONGCARD" removed, as it does not 

I occur in the autodocs. 

LIBRARY ExecBase BY -498 

PROCEDURE OpenResource( REF name IN Al : STRING; 

vers IN DO : LONGCARD ): ResourcePtr; 


GROUP 


ResourceGrp 
(* I ♦) 

(* T *) 

(♦ p *) 


LibGrp, 
Resource, 
AddResource, 


ResourcePtr, 

RemResource, OpenResource; 


I kickstart 


LIBRARY ExecBase BY -612 
PROCEDURE SumKickData; 


LIBRARY ExecBase BY -618 
PROCEDURE AddMemListC 

size 

IN DO : 

LONGINT; 


attributes 

; IN Dl : 

MemReqSet; 


priority 

IN D2 : 

NodePri; 


base 

IN AO : 

ANYPTR; 

REF 

name 

IN Al : 

STRING ): LONGINT; 

LIBRARY ExecBase BY -624 

PROCEDURE CopyMemC source IN AO, 

dest IN Al : 

ANYPTR; 


size 

IN DO : 

LONGCARD 

); 


I highest Offset for <V36 
LIBRARY ExecBase BY -630 

PROCEDURE CopyMemQuickC source IN AO, 

dest IN Al : ANYPTR; 

size IN DO : LONGCARD ); 
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GROUP 

KickGrp = 

(♦p*) SumKickData, AddMemList, CopyMem, 

CopyMemQuick; 


private Exec functions. Only in PrivateGrp, not in All. 


though ExecBase.negSize is 810, the newest functions have not been 
documented at all yet. Please write a thank-you letter to CBM in 
WestChester. You should only use other private functions if you really 
know what to do with them and are writing really low level code. 


LIBRARY ExecBase BY -60 
PROCEDURE Dispatch(); 

LIBRARY ExecBase BY -66 
PROCEDURE ExceptionO ; 

I no docs available 
LIBRARY ExecBase BY -774 

PROCEDURE ExecReservedOO( nothing IN DO : ANYPTR ); 

I no docs available 
LIBRARY ExecBase BY -780 

PROCEDURE ExecReservedOl( nothing IN DO : ANYPTR ); 

I no docs available 
LIBRARY ExecBase BY -786 

PROCEDURE ExecReserved02( nothing IN DO : ANYPTR ); 

I no docs available 
LIBRARY ExecBase BY -792 

PROCEDURE ExecReservedOS( nothing IN DO : ANYPTR ); 

LIBRARY ExecBase BY -36 
PROCEDURE ExitlntrO; 

LIBRARY ExecBase BY -504 
PROCEDURE RawIOInit; 

LIBRARY ExecBase BY -510 

PROCEDURE RawMayGetCharO : CHAR; 

LIBRARY ExecBase BY -516 

PROCEDURE RawPutCharC ch IN DO : CHAR ); 


LIBRARY ExecBase BY -48 
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PROCEDURE Reschedule0; 

LIBRARY ExecBase BY -42 
PROCEDURE ScheduleO; 

LIBRARY ExecBase BY -54 
PROCEDURE SwitchO; 


GROUP 


I ExecReserved?? are new for V36 
PrivateGrp = 

(+P*) Dispatch, 

ExecReservedOl, 
Exitlntr, 
RawPutChar, 
Switch; 


Exception, 
ExecReserved02, 
RawIOInit, 
Reschedule, 


ExecReservedOO, 
ExecReservedOS, 
RawMayGetChar, 
Schedule, 


I Caches 


TYPE 


Caches = ( enablel, | 

freezel, | 

cacr2, 

clearl, | 

ibe, I 

cacr5, cacr6, 
cacr7, 

enableD, | 

freezeD, | 

cacrlO, 

clearD, | 

dbe, I 

writeAllocate, | 

cacrl4, 

cacrlB, cacrlö, 
cacr20, cacr21, 
cacr25, cacr26, 
cacrSO, 

copyBack | 

); 

CacheSet = SET OF Caches; 


Enable instruction cache 
Freeze instruction cache 

Clear instruction cache 
Instruction burst enable 


68030 Enable data cache 
68030 Freeze data cache 

68030 Clear data cache 
68030 Data burst enable 
68030 Write-Allocate mode 
(must always be set!) 

cacrlY, cacrl8, cacrl9, 
cacr22, cacr23, cacr24, 
cacr27, cacr28, cacr29, 

Master enable for copyback Caches 


CacheDMAFlags = 
CacheDMAFlagSet 


( continue=l, | continue a broken up request 

noModify ); | dma didn’t modify memory 

= SET OF CacheDMAFlags; 


(Pre) 

(Post) 
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I User callable simple cache Clearing (V37) 

I Flush out the contents of any CPU Instruction or data Caches. 

LIBRARY ExecBase BY -636 
PROCEDURE CacheClearUO ; 

I Cache Clearing with extended control (V37) 

1 UARNING: Cluster still uses the wrong L0NGACARD’MAX=2"31-1. Should be 
I 2‘32-l. length = LONGCARD’MAX (= CAST(L0NGCARD,-1)) means clear all 
I addresses clearCaches must be IN {clearl,clearD} 

LIBRARY ExecBase BY -642 

PROCEDURE CacheClearEC address IN AO : ANYPTR; 

length IN DO : LDNGCARD; 

clearCaches IN Dl : CacheSet ); 

I Instruction & data cache control (V37?) 

I Set global cachebits in mask to the values in bits and return old values. 
LIBRARY ExecBase BY -648 

PROCEDURE CacheControl( bits IN DO, mask IN Dl : CacheSet ):CacheSet; 


I note that length ♦must* remain a valid variable upto the CachePostDMA 


I call. 

1 WARNING: Autodocs say DO for flags, 
LIBRARY ExecBase BY -762 

PROCEDURE CachePreDMAC vaddress 

VAR length 
flags 

I WARNING: Autodocs say DO for flags, 
LIBRARY ExecBase BY -768 

PROCEDURE CachePostDMA( vaddres 

VAR length 

flags 

GROUP 

I All new for V36 
CacheGrp = 

(=t=T*) Caches, 

CacheDMAFlagSet, 
(=t=P=t=) CacheClearE, 
CachePreDMA, 


fd file says Dl... 

IN AO : ANYPTR; | virtual address 

IN Al : LONGCARD; | to be updated 

IN Dl : CacheDMAFlagSet; ) : ANYPTR; 
fd file says Dl... 

IN AO : ANYPTR; | same as for 

I CachePreDMA 
IN Al : LONGINT; | same as for 

I CachePreDMA 
IN Dl : CacheDMAFlagSet); 


CacheSet, CacheDMAFlags, 

CacheClearU, CacheControl, 

CachePostDMA; 


I kids. The docs are not ready yet. 

I The return value might not be valid. 


I no doc available, prototype from fd file and thin air. 
LIBRARY ExecBase BY -738 

PROCEDURE ChildFreeC tid IN DO : ANYPTR ) : ANYPTR; 
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I no doc available, prototype from fd file and thin air. 
LIBRARY ExecBase BY -744 

PROCEDURE ChildOrphanC tid IN DO : ANYPTR ) : ANYPTR; 

I no doc available, prototype from fd file and thin air. 
LIBRARY ExecBase BY -750 

PROCEDURE ChildStatusC tid IN DO : ANYPTR ) : ANYPTR; 

I no doc available, prototype from fd file and thin air. 
LIBRARY ExecBase BY -756 


PROCEDURE 

ChildWaitC tid IN DO 

: ANYPTR ) : ANYPTR; 


GROUP 




1 all new 

for V36 



ChildGrp 

= 




(+P*) ChildFree, 

ChildOrphan, 

ChildStatus, 


ChildWait; 



1 Just for compatibility at the 

moment. 


ExecIOGrp 

= DevicelOGrp; 



MsgGrp 

= MsgPortGrp; 



1 New for 

V36 are Cache, Child, 

DevicelO, Resource and ! 

SpecialGrp. 

1 Groups not included are Const 

, Private, Func, Ptr and 

Record. 

All 

= 




(*1*) CacheGrp, 

ChildGrp, 

DevicelOGrp, 


ExecBaseGrp, 



1 compat 

ExecIOGrp, 

MsgGrp, 



IntGrp, 

KickGrp, 

LibGrp, 


ListGrp, 

NodeGrp, 

MemGrp, 

MsgPortGrp, 

1 old 

oldMsgPortGrp, 
ResidentGrp, 

ResourceGrp, 

SemaphoreGrp, 


SignalGrp, 
TrapGrp; 

SpecialGrp, 

TaskGrp, 

1 All Functions in this module 

(including Cluster coded 

functions) 

FuncGrp 

= Abort10, 

AddDevice, 

AddHead, 

AddlntServer, 

AddLibrary, 

AddMemList, 


AddPort, 

AddResource, 

AddSemaphore, 


AddTail, 

AddTask, 

Alert, 


AllocAbs, 

Allocate, 

AllocEntry, 


AllocMem, 

AllocPooled, 

AllocSignal, 


AllocTrap, 
AttemptSemaphore, 

AllocVec, 



AvailMem, 

CacheClearE, 

CacheClearU, 


CacheControl, 

Cause, 

ChecklO, 


ChildFree, 

ChildOrphan, 

ChildStatus, 


ChildWait, 

CloseDevice, 

CloseLibrary, 


ColdReboot, 

CopyMem, 

CopyMemQuick, 


CreatelORequest, 

CreateMsgPort, 



CreatePrivatePool, 

Deallocate, 

Debug, 


DeletelORequest, 

DeleteMsgPort, 
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DeletePrivatePool, 
Disable, 

Enable, 

Exitlntr, 

FindPort, 

FindTask, 

FreeMem, 

FreeTrap, 

GetMsg, 

InitSemaphore, 
MakeFunctions, 
ObtainSemaphore, 
ObtainSemaphoreShared, 
OldOpenLibrary, 
OpenResource, 

PutMsg, 

RawMayGetChar, 
ReleaseSemaphore, 
ReleaseSemaphoreList, 
RemlntServer, 

RemPort, 

RemTail, 

Reschedule, 

SetExcept, 

SetlntVector, 
SetTaskPri, 
SumKickData, 
Supervisor, 

UserState, 

WaitIO, 

PtrGrp = DevicePtr, 

InterruptPtr, 
lORequestPtr, 

ListPtr, 

MemHeaderPtr, 
MinListPtr, 

NodePtr, 

SemaphorePtr, 
SignalSemaphorePtr, 

SoftIntListPtr, 

RecordGrp = Device, 

IntVector, 

Library, 

MemEntry, 

Message, 

MsgPort, 

Resource, 
SemaphoreRequest, 
SignalSemaphore, 

Unit; 


Dispatch, 

DoIO, 

Enqueue, 

FindName, 

Exception, 

FindResident, 

FindSemaphore 

Forbid, 

FreeEntry, 

FreePooled, 

FreeSignal, 

FreeVec, 

GetCC, 

InitCode, 

InitResident, 

InitStruct, 

Insert, 

MakeLibrary, 
ObtainSemaphoreList, 

NewList, 

OpenDevice, 

QpenLibrary, 

Permit, 

Procure, 

RawDoFmt, 

RawPutChar, 

RawIOInit, 

RemDevice, 

RemHead, 

RemLibrary, 

Remove, 

RemResource, 

RemSemaphore, 

RemTask, 

ReplyMsg, 

Schedule, 

SendID, 

SetFunction, 

SetFunctionS, 

SetSignal, 

SetSR, 

Signal, 

StackSwap, 

SumLibrary, 

SuperState, 

Switch, 

TypeOfMem, 

Vacate, 

WaitPort; 

Wait, 

ExecBasePtr, 

FuncArrayPtr, 

IntFuncPtr, 

IntVectorPtr, 

lOStdReqPtr, 

LibraryPtr, 

MemChunkPtr, 

MemEntryPtr, 

MemListPtr, 

MessagePtr, 

MinNodePtr, 

MsgPortPtr, 

ResidentPtr, 
SemaphoreRequestPtr, 

ResourcePtr, 

TaskPtr, 

UnitPtr; 

ExecBaseType, 

Interrupt, 

lORequest, 

lOStdReq, 

List, 

MemChunk, 

MemHeader, 

MemList, 

MinList, 

MinNode, 

Node, 

Semaphore, 

Resident, 

SoftIntList, 

Task, 


END Exec. 
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TABLE OF CONTENTS 


FUNCTION 

GRP 

V36? 

AbortIO 

DevicelO 


AddDevice 

DevicelO 


AddHead 

List 


AddlntServer 

Int 


AddLibrary 

Lib 


AddMemList 

Kick 


AddPort 

MsgPort 


AddResource 

Resource 


AddSemaphore 

Semaphore 


AddTail 

List 


AddTask 

Task 


Alert 

Special 


AllocAbs 

Mem 


Allocate 

Mem 


AllocEntry 

Mem 


AllocMem 

Mem 


AllocPooled 

Mem 

V36 

AllocSignal 

Signal 


AllocTrap 

Trap 


AllocVec 

Mem 

V36 

AttemptSemaphore 

Semaphore 


AvailMem 

Mem 


CacheClearE 

Cache 

V36 

CacheClearU 

Cache 

V36 

CacheControl 

Cache 

V36 

Cause 

Int 


ChecklO 

DevicelO 


ChildFree 

Child 

V36 

ChildOrphan 

Child 

V36 

ChildStatus 

Child 

V36 

ChildWait 

Child 

V36 

CloseDevice 

DevicelO 


CloseLibrary 

Lib 


ColdReboot 

Special 

V36 

CopyMem 

Kick 


CopyMemQuick 

Kick 


CreatelORequest 

DevicelO 

V36 

1CreateMsgPort 

MsgPort 

V36 

CreatePrivatePool 

Mem 

V36 

Deallocate 

Mem 


Debug 

Special 


DeletelORequest 

DevicelO 

V36 

1DeleteMsgPort 

MsgPort 

V36 

DeletePrivatePool 

Mem 

V36 

Disable 

Int 


Dispatch 

Private 


DoIO 

DevicelO 


Enable 

Int 


Enqueue 

List 


Exception 

Private 
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ExecReservedOO 

Private 

V36 

ExecReservedOl 

Private 

V36 

ExecReserved02 

Private 

V36 

ExecReservedOS 

Private 

V36 

Exitlntr 

Private 


FindName 

List 


FindPort 

MsgPort 


FindResident 

Resident 


FindSemaphore 

Semaphore 


FindTask 

Task 


Forbid 

Int 


FreeEntry 

Mem 


FreeMem 

Mem 


FreePooled 

Mem 

V36 

FreeSignal 

Signal 


FreeTrap 

Trap 


FreeVec 

Mem 

V36 

GetCC 

Special 


GetMsg 

MsgPort 


InitCode 

Resident 


InitResident 

Resident 


InitSemaphore 

Semaphore 


InitStruct 

Special 


Insert 

List 


MakeFunctions 

Lib 


MakeLibrary 

Lib 


ObtainSemaphore 

Semaphore 


DbtainSemaphoreList 

Semaphore 


ObtainSemaphoreShared Semaphore 

V36 

OldOpenLibrary 

Lib 


DpenDevice 

DevicelO 


OpenLibrary 

Lib 


DpenResource 

Resource 


Permit 

Int 


Procure 

Semaphore 


PutMsg 

MsgPort 


RawDoFmt 

Special 


RawIOInit 

Private 


RawMayGetChar 

Private 


RawPutChar 

Private 


ReleaseSemaphore 

Semaphore 


ReleaseSemaphoreList 

Semaphore 


RemDevice 

DevicelO 


RemHead 

List 


RemlntServer 

Int 


RemLibrary 

Lib 


Remove 

List 


RemPort 

MsgPort 


RemResource 

Resource 


RemSemaphore 

Semaphore 


RemTail 

List 


RemTask 

Task 


ReplyMsg 

MsgPort 


Reschedule 

Private 


Schedule 

Private 
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SendIO 

SetExcept 

SetFunction 

SetFunctionS 

SetlntVector 

SetSignal 

SetSR 

SetTaskPri 

Signal 

StackSwap 

SumKickData 

SumLibrary 

SuperState 

Supervisor 

Switch 

TypeOfMem 

UserState 

Vacate 

Wait 

WaitIO 

WaitPort 


DevicelD 

Signal 

Lib 

Lib 

Int 

Signal 

Int 

Task 

Signal 

Special 

Kick 

Lib 

Int 

Int 

Private 

Mem 

Int 

Semaphore 

Signal 

DevicelD 

MsgPort 


NodeType 

MemReqs 

TaskFlags 

TaskState 

MsgPortAction 

LibFlags 

UnitFlags 

ResidentFlags 

AttnFlags 

Caches 


V36 


V36 
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8.15 Expansion 


(* $A- *) 

DEFINITION MODULE Expansion; 

FROM System IMPORT LONGSET, Register, SysStringPtr; 

FROM Dos IMPORT DeviceNodePtr, DosEnvec, DosEnvecPtr; 

FROM Exec IMPORT Interrupt, Library, LibraryPtr, List, Node, 

SignalSemaphore; 


TYPE 

ERomTypeFlags 

ERomTypeFlagSet 

ExpansionRomFlags 

ExpansionRomFlagSet 

ExpansionRom 


(er_memO, er_meml, er_mem2, chainedConf ig, 
diagValid,memList, er_typeO,er_typel); 

SET OF ERomTypeFlags; 

(erf0,erf1,erf2,erf3,zorroS,extended,noShutup, 
memSpace); 

SET OF ExpansionRomFlags; 

RECORD 


type 
product 
f lags 

reservedOS 

manufacturer 

serialNumber 

initDiagVec 

reservedOc 

reservedOd 

reservedOe 

reservedOf 


ERomTypeFlagSet; 
SHORTCARD; 

ExpansionRomFlagSet; 
SHORTCARD; 

CARDINAL; 

LONGCARD; 

CARDINAL; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD 


END; 


InterruptFlags 

InterruptFlagSet 

ExpansionControl 


(if0,intena,if2,reset,int2pend,intGpend,intYpend, 
interrupting); 

SET OF InterruptFlags; 

RECORD 


Interrupt 

zSHighBase 

baseAddress 

shutup 

reservedl4 

reservedlB 

reservedlG 

reservedlY 

reservedlS 

reservedlD 

reservedla 

reservedlb 

reservedlc 

reservedld 

reservedle 

reservedlf 

END; 


InterruptFlagSet; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 
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CONST 

slotSize 
slotMask 
slotShift 

expansionBase 

zSExpansionBase 

expansionSize 

expansionSlots 

memoryBase 

memorySize 

memorySlots 

zSConfigArea 

zSConfigAreaEnd 

zSSizeGranularity 

TYPE 

ConfigFlags 

ConfigFlagSet 
DiagArea 


CONST 

busWidth 

nibbleWide 

bootTime 

never 


TYPE 

ConfigDevFlags 

ConfigDevFlagSet 
ConfigDevPtr 
ConfigDev 


= $ 10000 ; 

= $FFFF; 

= 16; 

= SOOESOOOO; 
= SFFOOOOOO; 
= $00080000; 
= 8 ; 

= $00200000; 
= $00800000; 
= 128; 

= $40000000; 
= $7FFFFFFF; 
= $00080000; 


= (cf0,cf1,cf2,cf3,configTime jbindTime jbyteWide, 
wordWide); 

= SET OF ConfigFlags; 

= RECORD 


config 
f lags 
size 

diagPoint 

bootPoint 

name 

reservedOl 

reserved02 


ConfigFlagSet; 

SHORTCARD; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL 


END; 


= ConfigFlagSet:{byteWide,wordWide}; 

= ConfigFlagSet:{}; 

= ConfigFlagSet:{configTime,bindTime}; 
= ConfigFlagSet:{}; 


= (shutup,configMe,badMemory,cdf 3,cdf 4,cdf 5,cdf 6, 
cdf7); 

= SET OF ConfigDevFlags; 

= POINTER TO ConfigDev; 

= RECORD OF Node 


f lags 

ConfigDevFlagSet; 

pad 

SHORTCARD; 

rom 

ExpansionRom; 

boardAddr 

ANYPTR; 

boardSize 

LONGCARD; 

slotAddr 

CARDINAL; 

slotSize 

CARDINAL; 

driver 

ANYPTR; 

nextCD 

ConfigDevPtr; 

unused 

ARRAY [0..3] OF LONGINT; 


END; 
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TYPE 

CurrentBindingPtr 

CurrentBinding 


BootNodeFlags 

BootNodeFlagSet 

BootNodePtr 

BootNode 


= POINTER TO CurrentBinding; 

= RECORD 

configDev : ConfigDevPtr; 

fileName : SysStringPtr; 

productString : SysStringPtr; 

toolTypes : POINTER TO SysStringPtr; 

END; 

= (st artPro c,bnf1,bnf 2,bnf 3,bnf 4,bnf 5,bnf 6,bnf 7, 
bnfS); 

= SET OF BootNodeFlags; 

= POINTER TO BootNode; 

= RECORD OF Node 

flags : BootNodeFlagSet; 

deviceNode : ANYPTR 
END; 


ExpansionBaseFlags = 
ExpansionBaseFlagSet= 


(clogged,shortmem,badmem,dosflag,kickback33, 
kickback36,silentStart); 

SET OF ExpansionBaseFlags; 


ExpansionBasePtr 

ExpansionBaseType 


POINTER TO ExpansionBaseType; 
RECORD OF Library 


flags 
privateOl 
private02 
privateOS 
private04 
privateOB 
mountList 
END; 


ExpansionBaseFlagSet; 
SHORTCARD; 

LONGCARD; 

LONGCARD; 
CurrentBinding; 

List; 

List; 


CONST 

errOk = 0; 
errLastboard = 40 
errNoexpansion = 41 
errNomemory = 42 
errNoboard = 43 
errBadmem = 44 


TYPE 

ParameterPktPtr 

ParameterPkt 


POINTER TO 
RECORD 
dosName 
execName 
unit 
flags 
env 
END; 


ParameterPkt; 

: SysStringPtr; 
: SysStringPtr; 
: LONGCARD; 

: LONGSET; 

: DosEnvec; 


VAR ExpansionBase : ExpansionBasePtr; 
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LIBRARY ExpansionBase BY -30 

PROCEDURE AddConfigDev(configDev 

LIBRARY ExpansionBase BY -36 
PROCEDURE AddBootNode(bootPri 

f lags 

deviceNode 
configDev 

LIBRARY ExpansionBase BY -42 

PROCEDURE AllocBoardMem(slotSpec 

LIBRARY ExpansionBase BY -78 

PROCEDURE FreeBoardMem(startSlot 

slotSpec 


IN 

AO : 

: ConfigDevPtr); 

IN 

DO : 

: SHORTINT; 

IN 

Dl 

: LONGSET; 

IN 

AO 

: DeviceNodePtr; 

IN 

Al 

: ConfigDevPtr)rBOOLEAN; 

IN 

DO : 

: LONGINT); 

IN 

DO : 

: LONGCARD; 

IN 

Dl 

: LONGCARD); 


LIBRARY ExpansionBase BY -54 

PROCEDURE AllocExpansionMem(numSlots IN DO : LONGINT; 

slotAlign IN Dl : LONGINT; 
slotOffset IN D2 : LONGINT):LONGINT; 

LIBRARY ExpansionBase BY -90 

PROCEDURE FreeExpansionMemCstartSIot IN DO : LONGINT; 

numSIots IN Dl : LONGINT); 

LIBRARY ExpansionBase BY -60 

PROCEDURE ConfigBoardCboard IN AO : ANYPTR; 

configDev IN Al : ConfigDevPtr); 

LIBRARY ExpansionBase BY -66 

PROCEDURE ConfigChainCbaseAddr IN AO : ANYPTR); 


LIBRARY ExpansionBase BY -48 

PROCEDURE AllocConfigDev0:ConfigDevPtr; 

LIBRARY ExpansionBase BY -72 

PROCEDURE FindConfigDev(oldConfigDev IN AO : ConfigDevPtr; 

manufacturer IN DO : LONGINT; 

product IN Dl : LONGINT):ConfigDevPtr; 

LIBRARY ExpansionBase BY -84 

PROCEDURE FreeConfigDev(configDev IN AO : ConfigDevPtr); 

LIBRARY ExpansionBase BY -108 

PROCEDURE RemConfigDev(configDev IN AO : ConfigDevPtr); 

LIBRARY ExpansionBase BY -96 

PROCEDURE ReadExpansionByte(board IN AO : ANYPTR; 

Offset IN DO : LONGINT):SHORTINT; 
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LIBRARY ExpansionBase BY -114 

PROCEDURE WriteExpansionByte(board IN AO 

Offset IN DO 
byte IN Dl 


: ANYPTR; 

: LONGCARD; 

: SHORTCARD); 


LIBRARY ExpansionBase BY -102 

PROCEDURE ReadExpansionRom(board IN AO : ANYPTR; 

configDev IN Al : ConfigDevPtr); 


LIBRARY ExpansionBase BY -120 PROCEDURE ObtainConfigBinding; 
LIBRARY ExpansionBase BY -126 PROCEDURE ReleaseConfigBinding; 


LIBRARY ExpansionBase BY -132 

PROCEDURE SetCurrentBindingCcurrentBinding IN AO 

bindingSize IN DO 


CurrentBindingPtr; 
INTEGER); 


LIBRARY ExpansionBase BY -138 

PROCEDURE GetCurrentBindingCcurrentBinding IN AO 

bindingSize IN DO 


CurrentBindingPtr; 
INTEGER):L0NGINT; 


LIBRARY ExpansionBase BY -144 

PROCEDURE MakeDosNode(parmPacket IN AO : ParameterPktPtr):DeviceNodePtr 

LIBRARY ExpansionBase BY -150 

PROCEDURE AddDosNodeCbootPri IN DO : SHORTINT; 

flags IN Dl : LONGSET; 

deviceNode IN AO : DeviceNodePtr):B00LEAN; 


END Expansion. 
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8.16 FileSystemResource 


DEFINITION MODULE FileSystemResource; 
(* $A- *) 


IS. Herr, 01.10.1992 


FROM Exec IMPORT LibraryPtr,Node,List; 

FROM System IMPORT Regs,SysStringPtr,LONGSET,BPTR; 

FROM Dos IMPORT FileLockPtr,BSTR,ProcessId,FiIeSysStartupMsgPtr; 


TYPE 

FileSysResource = RECORD OF Node 

creator : SysStringPtr; 

fileSysEntries : List; 

END; 

FileSysEntry = RECORD OF Node 


dosType 

LONGCARD; 

Version 

LONGCARD; 

patchFlags 

LONGSET; 

type 

LONGCARD; 

task 

ProcessId; 

lock 

FileLockPtr; 

handler 

BSTR; 

stackSize 

LONGCARD; 

priority 

LONGINT; 

startup 

BPTR; 

segList 

BPTR; 

globalVec 

FileSysStartupMsgPtr; 


END; 


VAR 

FileSysBase : LibraryPtr; 


GROUP 

All = FileSysResource,FileSysEntry,FileSysBase; 
END FileSystemResource. 
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8.17 Gad Tools 


DEFINITION MODULE GadTooIs; 


I WB 18 Aug 1992 Datei übernommen. 
(* $A- *) 


FROM Exec 
FROM Intuition 


FROM Graphics 
FROM System 
FROM Utility 


IMPORT LibraryPtr, MsgPortPtr, ListPtr; 

IMPORT IDCMPFlagSet, IDCMPFlags, gaTB, layoTB, pgaTB, 
strgTBjScreenPtr, WindowPtr, RequesterPtr, 
GadgetPtr,IntuiMessagePtr, ActivationFlagSet; 
IMPORT TextAttrPtr, RastPortPtr; 

IMPORT LONGSET, Register, SysStringPtr; 

IMPORT StdTags, tagUser, HookPtr; 


TYPE 


GadgetKind = 


generic, button, checkbox, integer, 

listview, mx, number, cycle, 

Palette, scroller, slider=ll, 

String, text, 

makeMeLong = $10000); 


CONST 

arrowIDCMP = 

buttonIDCMP 
checkBoxIDCMP = 
integerlDCMP = 
listViewIDCMP = 
mxIDCMP 

numberlDCMP = 
cyclelDCMP = 
palettelDCMP = 


IDCMPFlagSet:{gadgetUp,gadgetDown,intuiTicks, 
mouseButtons}; 

IDCMPFlagSet:{gadgetUp}; 

IDCMPFlagSet:{gadgetUp}; 

IDCMPFlagSet:{gadgetUp}; 

IDCMPFlagSet:{gadgetUp,gadgetDown,mouseMove}+arrowIDCMP; 
IDCMPFlagSet:{gadgetDown}; 

IDCMPFlagSet:}}; 

IDCMPFlagSet:{gadgetUp}; 

IDCMPFlagSet:{gadgetUp}; 


I Use arrowIDCMP+scrollerlDCMP if your scrollers have arrows: 
scrollerIDCMP = IDCMPFlagSet:{gadgetUp,gadgetDown,mouseMove}; 

sliderlDCMP = IDCMPFlagSet:{gadgetUp,gadgetDown,mouseMove}; 

stringlDCMP = IDCMPFlagSet:{gadgetUp}; 

textlDCMP = IDCMPFlagSet:}}; 


CONST 

interWidth = 8; 
interHeight = 4; 
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TYPE 

Visualinfo 

= HIDDEN; 

NewGadgetFlags 

= ( placeTextLeft, 
placeTextRight, 
placeTextAbove, 
placeTextBelow, 
placeTextln, 
highLabel, 
rsvd31=31 ); 

NewGadgetFlagSet 

= SET OF NewGadgetFlags; 

NewGadget 

= RECORD 

leftEdge, topEdge : INTEGER; 

width, height : INTEGER; 

gadgetText : SysStringPtr; 

textAttr : TextAttrPtr; 

gadgetID : CARDINAL; 

flags : NewGadgetFlagSet; 

visualinfo : Visualinfo; 

userData : ANYPTR; 

END; 

TYPE 

NewMenuType 

= ( end = 0, 

title = 1, item = 2, sub = 3, 

image = 128, imageltem = 130, imageSub = 131); 

TYPE 

NewMenuFlags 

= (menuDisabled = 0,itemDisabled = 4,checklt = 0, 

menuToggle = 3,checked = 8,makeMeWord = 15); 

NewMenuFlagSet 

= SET OF NewMenuFlags; 

NewMenuPtr 

NewMenu 

= POINTER TO NewMenu; 

= RECORD 

type : NewMenuType; 

label : SysStringPtr; 

commKey : SysStringPtr; 

flags : NewMenuFlagSet; 

mutualExclude : LONGSET; 

userData : ANYPTR; 

END; 

NewMenuArray 

= ARRAY OF NewMenu; 

CONST 



barLabel = SysStringPtr(-1); 


TYPE 

GTMenuPtr 

GTMenu 

= POINTER TO GTMenu; 

= RECORD OF Intuition.Menu 
userData : ANYPTR; 

END; 
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GTMenuItemPtr = POINTER TO GTMenuItem; 

GTMenuItem = RECORD OF Intuition.Menultem 

userData : ANYPTR; 

END; 


I Return codes through GTMN_ErrorCode tag 


CM2ndErr 

= (menuTrimmed = 1, | 

1 

1 

Too many menus, 
subitems, 
menu is trimmed 

items, 


menulnvalid =2, | 

Invalid NewMenu 

array 


nomem =3, | 

Out of memory 


mmlong = $10000 

); 



CONST 

gtTB = tagUser + $80000; | $80080000, base for GadTools Tagvalues 


TYPE 

I Callback for number calculation before display 
DispFunc = PROCEDURE( gad IN AO: GadgetPtr; 

org IN DO: INTEGER ): LONGINT; 

GadgetTags = 

TAGS OF StdTags 

left = gaTB+$01 : LONGINT; 

underScore = gtTB+64 : LONGCHAR; | the character that 

I precedes the 

I 

I character to be underlined 

I (to indicate a shortcut). 

I Can be used for all classes. 


I ButtonTags 


buDisabled 

1 CheckBoxTags 

= gaTB+14 

: LONGBOOL; 

1 =gaDisabled 

cbChecked 

= gtTB+4 

: LONGBOOL; 

1 condition of the 

1 Checkbox 

cbDisabled 

1 CycleTags 

= gaTB+14 

: LONGBOOL; 

1 =gaDisabled 

cyLabels 

= gtTB+14 

: POINTER TO ARRAY OF SysStringPtr; 

1 

1 NIL-terminated array of labels 

cyActive 

= gtTB+15 

: LONGCARD; 

1 active one in the cycle 

cyDisabled 

1 IntegerTags 

= gaTB+14 

: LONGBOOL; 

1 =gaDisabled 

inNumber 

= gtTB+47 

: LONGCARD; 

1 initial number in gadget 
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inMaxChars 

inExitHelp 

inTabCycle 

inDisabled 

I ListViewTags 

IvTop 

IvLabels 

IvReadOnly 

IvScrollWidth 

IvShowSelected 


IvSelected 


IvSpacing 
I MxTags 
mxLabels 


mxActive 

mxSpacing 


I NumberTags 

nmNumber 

nmBorder 


I PaletteTags 

paDisabled 
paDepth 
paColor 
paColorOffset 

palndicatorW 


strgTB+$13 

: LONGCARD; 

: LONGBOOL; 

1 max number of digits (10) 

1 as in Intution.StrgTags 

gaTB+$24 

: LONGBOOL; 

1 =gaTabCycle 

gaTB+14 

: LONGBOOL; 

1 =gaDisabled 

gtTB+5 : 

LONGCARD; | 

Top visible one in listview 

gtTB+6 : 

ListPtr; 1 

List to display in listview 

gtTB+7 : 

LONGBOOL; | 

listview is to be read-only 

gtTB+8 : 

LONGCARD; | 

UWORD; Width of scrollbar 

gtTB+$35 : 

GadgetPtr;1 

Show selected entry 


I beneath listview. Pass NULL for 
I display-only, 

I or a POINTER to a gadtools string gadget 
I you’ve created 


gtTB+$36 : LONGCARD; | CARDINAL 

I 

I SET ordinal number of selected entry 
I in the list 


layoTB+$2 : LONGCARD; | As in Intuition.LayoutTags 


gtTB+9 


gtTB+10 

gtTB+61 


: POINTER TO ARRAY OF SysStringPtr; 

I 

I NIL-terminated array of labels 

: LONGCARD; | Active one in mx gadget 
: LONGCARD; 1 Added to font height to 

I 

I figure out spacing between mx choices. 
I Use instead of LayoutTags.spacing for 
I mx gadgets. 


gtTB+13 

gtTB+58 


: LONGINT; | Number to display 

: LONGINT; 

I 

I Put a border around Number-display 
I gadgets 


gaTB+$E 

: LONGBOOL; 

gtTB+16 

: LONGCARD; 

gtTB+17 

: LONGCARD; 

gtTB+18 

: LONGCARD; 

gtTB+19 

: LONGCARD; 


same as gaDisabled 
bitplanes in palette 
Palette color 
Ist color to use in 
palette 

curr. color indicator 
width 
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palndicatorH 

= 

gtTB+20 

LONGCARD; | 

cc. indicator height 

1 ScrollerTags 





scTop 

= 

gtTB+21 

LONGINT; | 

Top visible in scroller 

scTotal 

= 

gtTB+22 

LONGINT; | 

Total in scroller area 

scVisible 

= 

gtTB+23 

LONGINT; | 

Number visible in scroller 

1scOverlap 

= 

gtTB+24 

1 

Unused 

scArrows 

= 

gtTB+59 

LONGCARD; | 

size of arrows for scroller 

scFreedom 

= 

pgaTB+1 

LONGINT; | 

=pgaFreedom 

sclmmediate 

= 

pgaTB+$15 

LONGINT; | 

=pgalinmediate 

scRelVerify 

= 

gaTB+$16 

LONGINT; | 

=gaRelVerify 

scDisabled 


gaTB+$E 

LONGBOOL; | 

=gaDisabled 

1 SliderTags 





slMin 

= 

gtTB+38 

LONGINT; 

1 Slider min value 

slMax 

= 

gtTB+39 

LONGINT; 

1 Slider max value 

slLevel 

= 

gtTB+40 

LONGINT; 

1 Slider level 

slMaxLevelLen 

= 

gtTB+41 

LONGCARD; 

1 Max length of 





1 printed level 

slLevelFormat 

= 

gtTB+42 

SysStringPtr 

; 1 Format string 





1 for level 

slLevelPlace 

= 

gtTB+43 

NewGadgetFIags; | place of Level 

slDispFunc 

= 

gtTB+44 

DispFunc; 





Callback for 

number calc. before 




display 


slFreedom 

= 

pgaTB+$l 

LONGINT; 

1 =pgaFreedom 

sllmmediate 

= 

gaTB+$15 

LONGINT; 

1 =galmmediate 

slRelVerify 

= 

gaTB+$16 

LONGINT; 

1 =gaRelVerify 

slDisabled 


gaTB+$E 

LONGBOOL; 

1 =gaDisabled 

1 StringTags 





stString 

= 

gtTB+45 

SysStringPtr 





String gadget’s displayed string 

stMaxChars 

= 

gtTB+46 

LONGCARD; 

1 Max length of string 

stDisabled 

= 

gaTB+$E 

LONGBOOL; 

1 =gaDisabled 

stExitHelp 

= 

strgTB+$13 

LONGBOOL; 

1 =strgExitHelp 

stTabCycle 

= 

gaTB+$24 

LONGBOOL; 

1 =gaTabCycle 

stEditHook 

= 

gtTB+$37 

HookPtr; 

1 see StringExtend 

stJustification 


strgTB+$10 

ActivationFlagSet; 




choose one of stringLeft (def), 




stringRight, 

stringCenter. 

stReplaceMode 

= 

strgTB+$0D 

LONGBOOL; 

1 =strgReplaceMode 

1 TextTags 





txText 

= 

gtTB+11 

SysStringPtr 

;1 Text to display 

txCopyText 

= 

gtTB+12 

LONGINT; 

1 Copy text label instead 


I of referencing it 
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txBorder = gtTB+57 : LONGINT; | Put a border around 

END; I of GadgetTags 

GadgetTagListPtr = POINTER TO GadgetTagList; 

GadgetTagList = ARRAY OF GadgetTags; 


I Tags for calls to CreateMenus 

I 

CreateMenuTags = 

TAGS OF StdTags 


frontPen = gtTB+50 

fullMenu = gtTB+62 


: LONGCARD; | Menultem text pen color 
: LONGBOOL; 1 Asks CreateMenus() to 

I 

I validate the completeness of the menu 
I structure 


secondaryErr 


= gtTB+63 


END; 


: POINTER TO CM2ndErr; 

I 

I pointer to a CM2ndErr to receive error 
I reports from CreateMenus() 


CrMenuTagListPtr = POINTER TO CrMenuTagList; 
CrMenuTagList = ARRAY OF CreateMenuTags; 


I Tags for calls to LayoutMenus 

I 

LayoutMenuTags = 

TAGS OF StdTags 

textAttr = gtTB+49 : TextAttrPtr; | GTMenuItem font TextAttr 

menu = gtTB+60 : GTMenuPtr; 1 Pointer to GTMenu for use 

I by LayoutMenuItems0 

END; 


LaMenuTagListPtr = POINTER TO LaMenuTagList; 
LaMenuTagList = ARRAY OF LayoutMenuTags; 


I Tags for calls to DrawBevelBox 

I 

BevelBoxTags = 

TAGS OF StdTags 

recessed = gtTB+51 : LONGINT; | Make BevelBox recessed 

visuallnfo : Visuallnfo; | result of Visuallnfo call 

END; 


BevBoxTagListPtr = POINTER TO BevBoxTagList; 
BevBoxTagList = ARRAY OF BevelBoxTags; 


I gtTB+25 through gtTB+37 are reserved 
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I gtTB+65 on up reserved for future use 
GadToolsLibraryPtr = LibraryPtr; 


VAR 


GadToolsBase : GadToolsLibraryPtr; 


LIBRARY GadToolsBase BY -114 

PROCEDURE CreateContext( VAR GadgetPtr IN AO 

LIBRARY GadToolsBase BY -30 
PROCEDURE CreateGadgetTags( 


GadgetPtr ): GadgetPtr; 


GadgetKind; 

GadgetPtr; 

NewGadget; 

LIST OF GadgetTags):GadgetPtr; 


kind IN DO 
previous IN AO 
REF newgad IN Al 
taglist IN A2 

LIBRARY GadToolsBase BY -30 

PROCEDURE CreateGadget( kind IN DO : GadgetKind; 

previous IN AO : GadgetPtr; 

REF newgad IN Al : NewGadget; 

taglist IN A2 : GadgetTagListPtr ): GadgetPtr; 

LIBRARY GadToolsBase BY -48 

PROCEDURE CreateMenusTags (REF newmenu IN AO : NewMenuArray; 

taglist IN Al : LIST OF CreateMenuTags):GTMenuPtr 

LIBRARY GadToolsBase BY -48 

PROCEDURE CreateMenusC REF newmenu IN AO : NewMenuArray; 

taglist IN Al : CrMenuTagListPtr ): GTMenuPtr; 

LIBRARY GadToolsBase BY -120 


rport 

IN 

AO : 

RastPortPtr; 

lef t 

IN 

DO, 


top 

IN 

Dl, 


width 

IN 

D2, 


height 

IN 

D3 : 

INTEGER; 

taglist 

IN 

Al : 

LIST OF BevelBoxTags ) ; 

36 




glist IN 

AO 

: GadgetPtr ) ; 


LIBRARY GadToolsBase BY -54 

PROCEDURE FreeMenus( menu IN AO : GTMenuPtr ); 

LIBRARY GadToolsBase BY -132 

PROCEDURE FreeVisuallnfoC vi IN AO : Visuallnfo ); 

LIBRARY GadToolsBase BY -126 

PROCEDURE GetVisualInfo( screen IN AO : ScreenPtr; 

taglist IN Al : LIST OF StdTags ): Visuallnfo; 

LIBRARY GadToolsBase BY -90 

PROCEDURE GT_BeginRefresh( win IN AO : WindowPtr ); 
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LIBRARY GadToolsBase BY -96 

PROCEDURE GT_EndRefresh( win IN AO : WindowPtr; 

complete IN DO : BDOLEAN); 

LIBRARY GadToolsBase BY -102 

PROCEDURE GT_FilterIMsg( imsg IN Al : IntuiMessagePtr ): IntuiMessagePtr; 
LIBRARY GadToolsBase BY -72 

PROCEDURE GT_GetIMsg( intuiport IN AO : MsgPortPtr ): IntuiMessagePtr; 

LIBRARY GadToolsBase BY -108 

PROCEDURE GT_PostFilterIMsg(modimsg IN Al : IntuiMessagePtr):IntuiMessagePtr; 

LIBRARY GadToolsBase BY -84 

PROCEDURE GT_RefreshWindow( win IN AO : WindowPtr; 

req IN Al : RequesterPtr ); 


LIBRARY GadToolsBase BY -78 

PROCEDURE GT_ReplyIMsg( imsg IN Al : IntuiMessagePtr ) ; 

LIBRARY GadToolsBase BY -42 

PROCEDURE GT_SetGadgetAttrs( gad IN AO : GadgetPtr; 

win IN Al : WindowPtr; 

req IN A2 : RequesterPtr; 

taglist IN A3 : LIST OF GadgetTags ); 

LIBRARY GadToolsBase BY -60 

PROCEDURE LayoutMenuItems(menuitem IN AO : GTMenuItemPtr; 

vi IN Al : Visuallnfo; 

taglist IN A2 : LIST OF LayoutMenuTags):BOOLEAN; 


LIBRARY GadToolsBase BY -66 

PROCEDURE LayoutMenus(menu IN AO 

vi IN Al 

taglist IN A2 


GTMenuPtr; 

Visuallnfo; 

LIST OF LayoutMenuTags):BOOLEAN; 


GROUP 


ArrayGrp = 

NewMenuArray; 



ConstGrp = 

arrowIDCMP, 
checkBoxIDCMP, 
gtTB, 

integerlDCMP, 
gaTB, 
layoTB, 
numberlDCMP, 
scrollerlDCMP, 
textlDCMP; 

barLabel, 
cyclelDCMP, 

interHeight, 
pgaTB, 

listViewIDCMP, 
palettelDCMP, 
sliderlDCMP, 

buttonIDCMP, 
CM2ndErr, 

interWidth, 
strgTB, 
mxIDCMP, 

stringlDCMP, 

EnumGrp = 

GadgetKind, 

NewGadgetFlags, 

NewMenuType; 

PointerGrp = 

GTMenuItemPtr, 
NewMenuPtr, 

GTMenuPtr, 
Visuallnfo; 

GadToolsLibraryPtr, 
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ProcGrp = 

CreateContext, 
DrawBevelBox, 
FreeVisualInfo, 
GT_EndRefresh, 
GT_PostFilterIMsg, 
GT_SetGadgetAttrs, 

RecordGrp = 

GTMenu, 

NewGadget, 

SetGrp = 

NewGadgetFlags, 

SubRangeGrp = 

NewMenuFlags; 

TagsGrp = 

BevelBoxTags, 
LayoutMenuTags; 

TypeGrp = 

ArrayGrp, 
RecordGrp, 

All = 

ConstGrp, 

TypeGrp; 


END GadTools. 


CreateGadget, 
FreeGadgets, 
GetVisualInfo, 
GT_FilterIMsg, 
GT_RefreshWindow, 
LayoutMenuItems, 

CreateMenus, 
FreeMenus, 
GT_BeginRefresh, 
GT_GetIMsg, 
GT_ReplyIMsg, 
LayoutMenus; 

GTMenuItem, 

NewMenu; 


NewMenuFlags; 


CreateMenuTags, 

GadgetTags, 

EnumGrp, 

SetGrp, 

PointerGrp, 
SubRangeGrp; 

ProcGrp, 

TagsGrp, 



110 


KAPITEL 8. SCHNITTSTELLENMODULE 


8.18 GamePort 


DEFINITION MODULE GamePort; 


$$LongAllign:= FALSE | Absolutely essential 


FROM T_Exec IMPORT lOCommand, nonstdVAL, lOStdReq; 

FROM Resources IMPORT ContextPtr; 


CONST 

readEvent 

askCType 

setCType 

askTrigger 

setTrigger 

IErrors 

errSetCType 


lOCommand( 
lOCommand( 
lOCommand( 
lOCommand( 
lOCommand( 


nonstdVAL + 
nonstdVAL + 
nonstdVAL + 
nonstdVAL + 
nonstdVAL + 


0 ); 
1 ); 
2 ); 

3 ); 

4 ); 


1 ; 


portOne = 0; 

portTwo = 1; 


TYPE 

Keys 

KeySet 


= ( downKeys, upKeys, makemeword = 15 ); 
= SET OF Keys; 


GamePortTrigger = RECORD 

keys : KeySet; 
timeout : CARDINAL; 
xDelta : CARDINAL; 
yDelta : CARDINAL 
END; 


Controller 


GameReqPtr 

GameReq 


= (allocated=-l,noController,mouse,relJoystick, 
absJoystick); 

= POINTER TO GameReq; 

= RECORD OF lOStdReq END; 


PROCEDURE OpenGamePort( port : INTEGER; 

context : ContextPtr:=NIL ): GameReqPtr; 


PROCEDURE CloseGamePort( VAR request : GameReqPtr ); 


GROUP 

All = T_Exec.ExecIOGrp,askCType,askTrigger,errSetCType,portOne, 

portTwo,readEvent,setCType,setTrigger,Keys,GamePortTrigger, 
GameReq,GameReqPtr,Controller,OpenGamePort,CloseGamePort; 


END GamePort. 
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8.19 Graphics 


DEFINITION MODULE Graphics; 
(* $A- *) 


FROM System 
FROM Hardware 
FROM Exec 


FROM Utility 


IMPORT BITSET,LONGSET,SHORTSET,Regs,PROC, SysStringPtr; 
IMPORT BltNodePtr,BeamOFlags,BeamOFlagSet; 

IMPORT Interrupt,Library,List.Message,MinList,Node,NodePtr, 
NodeType,SignalSemaphore,SignalSemaphorePtr,TaskPtr, 
MsgPortPtr,LibraryPtr; 

IMPORT HookPtr,StdTags; 


TYPE WindowPtr = DEFERRED POINTER Intuition.WindowPtr; 


TYPE 

ViewPortExtraPtr = POINTER TO ViewPortExtra; 
ViewPortPtr = POINTER TO ViewPort; 

VTagListPtr = POINTER TO VTagList; 


BitMaps & Raster 


BitMapPtr 

BitMap 


= POINTER TO BitMap; 
= RECORD 


bytesPerRow 
rows 
f lags 
depth 
pad 
planes 
END; 


CARDINAL; 

CARDINAL; 

SHORTSET; 

SHORTCARD; 

CARDINAL; 

ARRAY [0..7] OF ANYPTR; 


BitScaleArgsPtr = POINTER TO BitScaleArgs; 
BitScaleArgs = RECORD 


srcX, 


srcY 

: CARDINAL; 

srcWidth, 


srcHeight 

: CARDINAL; 

srcXFactor, 


srcYFactor 

: CARDINAL; 

destX, 


destY 

: CARDINAL; 

destWidth, 


destHeight 

: CARDINAL; 

xDestFactor, 


yDestFactor 

: CARDINAL; 

srcBitMap 

: BitMapPtr; 

destBitMap 

: BitMapPtr; 

f lags 

: LONGSET; 

xDDA, 


yDDA 

: CARDINAL; 

reserved 

: ARRAY [2] OF LONGINT; 


END; 
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I Layers & Regions 

I 

LayerinfoPtr 
LayerPtr 


= POINTER TO Layerinfo; 
= POINTER TO Layer; 


RectanglePtr = POINTER TO Rectangle; 

Rectangle = RECORD 

minX : INTEGER; 
minY : INTEGER; 
maxX : INTEGER; 
maxY : INTEGER; 

END; 


ClipRectPtr 

ClipRect 


= POINTER TO ClipRect; 


RECORD 


next 

ClipRectPtr; 

prev 

ClipRectPtr; 

lobs 

LayerPtr; 

bitMap 

BitMapPtr; 

bounds 

Rectangle; 

Pl 

ClipRectPtr; 

p2 

ClipRectPtr; 

reserved 

LONGINT; 

f lags 

END; 

LONGINT; 


RegionRectanglePtr = POINTER TO 
RegionRectangle = RECORD 

next : 
prev : 
bounds : 
END; 


RegionRectangle; 

RegionRectanglePtr; 
RegionRectanglePtr; 
Rectangle; 


RegionPtr = POINTER TO Region; 

Region = RECORD 

bounds : Rectangle; 

regionRectangle : RegionRectanglePtr; 
END; 


CONST 

needsNoConcealedRasters = 1; 


isLessX = 1 
isLessY = 2 
isGrtrX = 4 
isGrtrY = 8 


TYPE 

LayerFlags 

LayerFlagSet 


= (layerSimple,layerSmart,layerSuper,If3,layerUpdating, 
If5,layerBackdrop,layerRefresh,layerClipRectsLost); 

= SET OF LayerFlags; 


RastPortPtr = POINTER TO RastPort; 
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Layer 


Layerinfo 


= RECORD 
front 
back 
clipRect 
rp 

bounds 
reserved 
priority 
f lags 

superBitMap 

superClipRect 

window 

scrollX 

scrollY 

er 

cr2 

ernew 

superSaveClipRects 
cliprects 
layerinfo 
lock 

backFill 

reservedl 

clipRegion 

saveClipRects 

width, 

height 

reserved2 

damageList 

END; 

= RECORD 
layer 

IP 

obs 

freeClipRects 

lock 

he ad 

longreserved 
f lags 
count 

lockLayersCount 
layerinfoExtraSize 
blitbuff 
layerinfoExtra 
END; 


LayerPtr; 

LayerPtr; 

ClipRectPtr; 

RastPortPtr; 

Reetangle; 

ARRAY [4] OF SHORTCARD; 
CARDINAL; 

LayerFlagSet; 

BitMapPtr; 

ClipRectPtr; 

WindowPtr; 

INTEGER; 

INTEGER; 

ClipRectPtr; 

ClipRectPtr; 

ClipRectPtr; 

ClipRectPtr; 

ClipRectPtr; 

LayerinfoPtr; 
SignalSemaphore; 

HookPtr; 

LONGCARD; 

RegionPtr; 

RegionPtr; 

INTEGER; 

ARRAY [18] OF SHORTCARD; 
RegionPtr; 


LayerPtr; 
LayerPtr; 
LayerPtr; 

MinList; 

SignalSemaphore; 
List; 

LONGINT; 
LayerFlagSet; 
SHORTINT; 

SHORTINT; 
CARDINAL; 

ANYPTR; 

ANYPTR; 


CONST 

ImnRegion = -1; 

newLayerInfoCalIed = 1; 
alertLayersNoMem = $83010000; 
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I 

I Colors 

I 

TYPE 

DisplayinfoPtr 

ColorMapType 

ColorMapFlags 


POINTER TO Displayinfo; 
(cmapV33,cmapV36); 


= (colormapTransparency,colorPlaneTransparency, 
borderBlanking,borderNoTransparency, 
videoControlBatch,userCopperClip); 
ColorMapFlagSet = SET OF ColorMapFlags; 


ColorMapPtr 

ColorMap 


POINTER TO ColorMap; 
RECORD 
f lags 
type 
count 

colorTable 

vpe 

transparencyBits 

transparencyPlane 

reservedl 

reserved2 

vp 

normalDisplaylnfo 
coerceDisplayInfo 
batchltems 
vpModelD 
END; 


ColorMapFlagSet; 
ColorMapType; 
CARDINAL; 

ANYPTR; 

ViewPortExtraPtr; 
ANYPTR; 

SHORTCARD; 
SHORTCARD; 
CARDINAL; 
ViewPortPtr; 
ANYPTR; 

ANYPTR; 
VTagListPtr; 
LONGCARD; 


I 

I Copper & Views 

I 

CONST 

move = 0; 
wait = 1; 
next = 2; 

sys = 13; 
sht = 14; 
lof = 15; 

TYPE 

CopListPtr 

CopInsPtr 
Coplns 


= POINTER TO CopList; 

= POINTER TO Coplns; 

= RECORD 

IF KEY opCode:CARDINAL 

OF move THEN destAddr: INTEGER; 

destData:INTEGER; 
OF wait THEN vWaitPos:INTEGER; 

hWaitPos:INTEGER; 
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CprListPtr 

CprList 


CopList 


UCopListPtr 

UCopList 


CopInitPtr 

Coplnit 


I Text & Gfx 


TYPE 

FontStyles 

FontStyleSet 


OF next THEN nxtlist:CopListPtr; 
END; 

END; 

= POINTER TO CprList; 

= RECORD 


next : 

CprListPtr; 

Start : 

ANYPTR; 

maxCount : 

INTEGER; 

END; 

= RECORD 

next 

CopListPtr; 

copList 

CopListPtr; 

viewPort 

ViewPortPtr; 

coplns 

CopInsPtr; 

copPtr 

CopInsPtr; 

copLStart 

ANYPTR; 

copSStart 

ANYPTR; 

count 

INTEGER; 

maxCount 

INTEGER; 

dyOffset 

INTEGER; 

cop2Start 

ANYPTR; 

copSStart 

ANYPTR; 

cop4Start 

ANYPTR; 

copSStart 

ANYPTR; 

END; 

= POINTER TO UCopList; 

= RECORD 

next 

: UCopListPtr; 

firstCopList : CopListPtr; 

copList 

: CopListPtr; 

END; 


= POINTER TO Coplnit; 
= RECORD 


vsyncHBlank 

ARRAY 

[2] 

OF 

CARDINAL 

diwstart 

ARRAY 

[4] 

OF 

CARDINAL 

diagstrt 

ARRAY 

[4] 

OF 

CARDINAL 

sprstrtup 

ARRAY 

1—1 
to 
* 
00 
* 
to 

1_1 

OF 

CARDINAL 

waitl4 

ARRAY 

[2] 

OF 

CARDINAL 

normHBlank 

ARRAY 

[2] 

OF 

CARDINAL 

genloc 

ARRAY 

[4] 

OF 

CARDINAL 

jump 

ARRAY 

[(2*2)] 

OF 

CARDINAL 

sprstop 

ARRAY 

[4] 

OF 

CARDINAL 


END; 


= (underlined,bold,italic,extended,fs4,fs5,colorFont, 
tagged); 

= SET OF FontStyles; 
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FontFlags 

FontFlagSet 


= (romFont,diskFont,revPath,tallDot,wideDot »proportional, 
designed,removed); 

= SET OF FontFlags; 


CONST 

normalFont 


= FontStyleSet:{} ; 


TYPE 

FontTags = TAGS OF StdTags 

DeviceDPI = $80000001 : RECORD x,y : CARDINAL END; 
END; 

FontTagList = ARRAY OF FontTags; 

FontTagListPtr = POINTER TO FontTagList; 


TextAttrPtr 

TextAttr 


TTextAttrPtr 

TTextAttr 


= POINTER TO TextAttr; 

= RECORD 

name : SysStringPtr; 

ySize : CARDINAL; 

style : FontStyleSet; 

flags : FontFlagSet; 

END; 

= POINTER TO TTextAttr; 

= RECORD OF TextAttr 

tags : FontTagListPtr; 
END; 


CONST 

maxFontMatchWeight = 32767; 


TYPE 


CharLocPtr = POINTER TO CharLoc; 

CharLoc = RECORD 

pos,width : INTEGER; 
END; 


TextFontPtr 

TextFont 


POINTER TO TextFont; 
RECORD OF Message 


ySize 
style 
flags 
xSize 
baseline 
boldSmear 
accessors 
loChar 
hiChar 
charData 
modulo 
charLoc 
charSpace 
charKern 
END; 


CARDINAL; 

FontStyleSet; 

FontFlagSet; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CHAR; 

CHAR; 

ANYPTR; 

CARDINAL; 

POINTER TO ARRAY OF CharLoc; 
POINTER TO ARRAY OF INTEGER; 
POINTER TO ARRAY OF INTEGER; 
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CONST 

noRemFont = 0; 


TYPE 

TextFontExtensionPtr= POINTER TO TextFontExtension; 

TextFontExtension = RECORD 

matchWord 
flagsO 
flagsl 
backPtr 
origReplyPort 
tags 

oFontPatchS 
oFontPatchK 
END; 


CARDINAL; 
SHORTSET; 
SHORTSET; 
TextFontPtr; 
MsgPortPtr; 
FontTagListPtr; 
ANYPTR; 

ANYPTR; 


CONST 


ctColormask= 

$000F; 

ctColorfont= 

$0001; 

ctGreyfont= 

$0002; 

ctAntialias= 

$0004; 

ctbMapcolor= 

0; 

ctfMapcolor= 

$0001; 


TYPE 

ColorFontColorsPtr= POINTER TO 
ColorFontColors = RECORD 

reserved 
count 
colorTable 
END; 


ColorFontColors; 

CARDINAL; 

CARDINAL; 

POINTER TO ARRAY OF CARDINAL; 


ColorTextFontPtr 

ColorTextFont 


POINTER TO ColorTextFont: 


= RECORD 
tf 

f lags 
depth 
fgColor 
low 
high 

planePick 
planeOnOff 
ColorFontColors 
charData 
END; 


TextFont; 

CARDINAL; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 

SHORTCARD; 
ColorFontColorsPtr; 
ARRAY [8] OF ANYPTR; 


TextExtentPtr = POINTER TO TextExtention; 

TextExtention = RECORD 

width : CARDINAL; 

height : CARDINAL; 

extend : Rectangle; 

END; 
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I Gels 

I 

CONST 

ringtrigger = 1; 

anfracsize = 6; 

animhalf =$20; 

b2Norin = 0; 

b2Swap = 1; 

b2Bobber = 2; 

TYPE 


BobPtr 

= POINTER TO 

Bob; 

SimpIeSpritePtr 

= POINTER TO 

SimpIeSprite; 

DBufPacketPtr 

= POINTER TO 

DBufPacket; 

SimpIeSprite 

= RECORD 



posctldata : ANYPTR; 


height 

: CARDINAL; 


X 

: CARDINAL; 


y 

: CARDINAL; 


num 

END; 

: INTEGER; 


VSpriteFlags 


VSpriteFlagSet 


= (vsprite,saveBack,overlay,mustDraw,vf4,vf5,vf6,vf7, 
backSaved,bobUpdate,gelGone,vsOverflow,vf12,vf13, 
vf14,vf15); 

= SET OF VSpriteFlags; 


VSpritePtr 

VSprite 


PGINTER TO vsprite; 


RECORD 

nextVSprite 

prevVSprite 

drawPath 

clearPath 

oldY 

oldX 

f lags 

y 

X 

height 
width 
depth 
meMask 
hitMask 
imageData 
borderLine 
collMask 
sprColors 
vsBob 
planePick 
planeOnOff 
END; 


VSpritePtr; 

VSpritePtr; 

VSpritePtr; 

VSpritePtr; 

INTEGER; 

INTEGER; 

VSpriteFlagSet; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

BITSET; 

BITSET; 

ANYPTR; 

ANYPTR; 

ANYPTR; 

ANYPTR; 

BobPtr; 

SHORTSET; 

SHORTSET; 


©1992/93 by StoneWare 







8.19. GRAPHICS 


119 


BobFlags 


BobFlagSet 

AnimCompPtr 

Bob 


AnimObPtr 

AnimComp 


AnimOb 


= (saveBob,bobIsComp,bf2,bf3,bf4,bf5,bf6,bf7,bWaiting, 
bDrawn,bobsAway,bobNix,savePreserve,outStep, 
bfl4,bfl5); 

= SET OF BobFlags; 


POINTER TO AnimComp; 


RECORD 
f lags 

saveBuffer 
imageShadow 
before 
af ter 

bobVSprite 

bobComp 

dBuffer 

END; 


BobFlagSet; 
ANYPTR; 

ANYPTR; 

BobPtr; 

BobPtr; 
VSpritePtr; 
AnimCompPtr; 
DBufPacketPtr; 


POINTER TO AnimOb; 
RECORD 


INTEGER 

INTEGER 

INTEGER 


f lags 
timer 
timeSet 
nextComp 
prevComp 
nextSeq 
prevSeq 
animCRoutine 
yTrans 
xTrans 
headOb 
animBob 
END; 


AnimCompPtr; 

AnimCompPtr; 

AnimCompPtr; 

AnimCompPtr; 

PROCEDURE; 

INTEGER; 

INTEGER; 

AnimObPtr; 

BobPtr; 


RECORD 

nextOb 

prevOb 

clock 

anOldY 

anOldX 

anY 

anX 

yVel 

xVel 

yAccel 

xAccel 

ringYTrans 

ringXTrans 

animORoutine 

headComp 

END; 


AnimObPtr; 

AnimObPtr; 

LONGINT; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

PROCEDURE; 

AnimCompPtr; 








120 


KAPITEL 8. SCHNITTSTELLENMODULE 


DBufPacket 


CONST 

borderHit 

topHit 

bottomHit 

leftHit 

rightHit 


= RECORD 
bufY 
bufX 
bufPath 
bufBuffer 
END; 

= 0 ; 

= 1 ; 

= 2 ; 

= 4; 

= 8 ; 


INTEGER; 
INTEGER; 
VSpritePtr; 
ANYPTR; 


TYPE 

CoIITablePtr 

CoIITable 


GelsinfoPtr 
Gelsinfo 


= POINTER TO CoIITable; 

= RECORD 

coIIPtrs : ARRAY [16] OF ANYPTR 


END; 

POINTER TO Gelsinfo; 
RECORD 


SHORTSET; 
SHORTCARD; 


sprRsrvd 
f lags 
gelHead 
gelTail 
nextLine 
lastColor 
collHandler 
leftmost 
rightmost 
topmost 
bottommost 
firstBlissObj 
lastBlissObj 
END; 


VSpritePtr; 

VSpritePtr; 

ANYPTR; 

ANYPTR; 

CoIITablePtr; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

ANYPTR; 

ANYPTR; 


I GfxNodes 

I 

CONST 

ViewExt raType 
viewportExtraType 
specialMonitorType 
monitorSpecType 


NodeType(1) 
NodeType(2) 
NodeType(3) 
NodeType(4) 


TYPE 

ExtendedNodePtr 

ExtendedNode 


= POINTER TO ExtendedNode; 
= RECORD OF Node 


Subsystem 

subtype 

library 

init 

END; 


SHORTCARD; 

SHORTCARD; 
LibraryPtr; 
PROCEDUREO iLONGINT; 
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I Monitor 


TYPE 

SpecialMonitorPtr= POINTER TO SpecialMonitor; 


CONST 

toMonitor = 0; 
fromMonitor = 1; 
standardXoffset = 9; 
standardYoffset = 0; 
requestNtsc = 1; 
requestPal = 2; 
requestSpecial = 4; 
requestA2024 = 8; 


standardMonitorMask= requestNtsc + requestPal; 


defaultMonitorName = 
ntscMonitorName = 
palMonitorName = 
vgaMonitorName = 
vgaYOMonitorName = 


"default.monitor"; 
"ntsc.monitor"; 
"pal.monitor"; 
"vga.monitor"; 
"vga70.monitor"; 


standardNtscRows = 
standardPalRows = 
standardColorclocks= 
standardDeniseMax = 
standardDeniseMin = 
standardNtscBeamcon= 
standardPalBeamcon = 

specialBeamcon = 


minNtscRow 

minPalRow 

st andardViewX 

st andardViewY 

standardHbstrt 

standardHsstrt 

standardHsstop 

standardHbstop 

standardVbstrt 

standardVsstrt 

standardVsstop 

standardVbstop 


262; 

312; 

226; 

455; 

93; 

BeamOFlagSet:{}; 
displayPal; |??? 

BeamOFlagSet:{varVBlank 
csBlank}; 

21 ; 

29; 

$81; 

$2C; 

$06; 

$0B; 

$1C; 

$2C; 

$ 122 ; 

$2A6; 

$3AA; 

$1066; 


loLDis,varVSync,varBeam, 


vgaColorclocks 

vgaTotalRows 

vgaDeniseMin 

minVgaRow 

vgaHbstrt 

vgaHsstrt 

vgaHsstop 


standardColorclocks DIV 2; 
standardNtscRows*2; 

59; 



$0E; 

$1C; 
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vgaHbstop = $1E; 
vgaVbstrt = $000 
vgaVsstrt = $153 
vgaVsstop = $235 
vgaVbstop = $CCD 


vga70Colorclocks 

vgaTOTotalRows 

vga70DeniseMin 

minVga70Row 

vga70Hbstrt 

vga70Hsstrt 

vga70Hsstop 

vga70Hbstop 

vga70Vbstrt 

vga70Vsstrt 

vga70Vsstop 

vga70Vbstop 


= standardColorclocks DIV 2; 
= 449; 

= 59; 

= 35; 

= $08; 

= $0E; 

= $1C; 

= $1E; 

= $000; 

= $2A6; 

= $388; 

= $F73; 


vga70Beamcon 


specialBeamcon/BeamOFlagSet:{vSyncTrue}; 


broadcastHbstrt 

broadcastHsstrt 

broadcastHsstop 

broadcastHbstop 

broadcastVbstrt 

broadcastVsstrt 

broadcastVsstop 

broadcastVbstop 

broadcastBeamcon 

ratioFixedpart 

ratioUnity 


= $01; 

= $06; 

= $17; 

= $27; 

= $000; 

= $2A6; 

= $54C; 

= $1C40; 

= BeamOFlagSet:{loLDis,csBlank}; 

= 4; 

= LDNGCARD(l) SHL ratioFixedpart; 


TYPE 

LongProc = PRGCEDUREO :LONGINT; 


MonitorSpecPtr = POINTER TO MonitorSpec; 

MonitorSpec = RECORD OF ExtendedNode 

f lags 

ratioh 

ratiov 

totalRows 

totalColorclocks 

deniseMaxDisplayColumn 

beamConO 

minRow 

special 

openCount 

transform, 

translate, 

scale 

xoffset 

yoffset 

legalView 

maxoscan 


BITSET; 

LONGINT; 

LONGINT; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

SpecialMonitorPtr; 
CARDINAL; 


LongProc; 
CARDINAL; 
CARDINAL; 
Rectangle; 
LongProc; 
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Videoscan : LongProc; 

deniseMinDisplayColumn : CARDINAL; 

displayCompatible : LONGCARD; 

displayinfoDataBase : List; 

displayinfoDataBaseSemaphore : SignalSemaphore; 
reserved : ARRAY [2] OF LDNGINT; 

END; 

AnalogSignallntervalPtr = POINTER TO AnalogSignallnterval; 
AnaIogSignaIIntervaI=RECORD 

strt, 

stop : CARDINAL; 

END; 


SpecialMonitor 


= RECORD OF ExtendedNode 


f lags 
doMonitor 
reservedl, 
reserved2, 
reservedS 
hblank 
vblank 
hsync 
vsync 
END; 


BITSET; 
LongProc; 


LongProc; 

AnalogSignallnterval; 
AnalogSignallnterval; 
AnalogSignallnterval; 
AnalogSignallnterval; 


I Displayinfo etc. 


TYPE 

DisplayinfoHandle=ANYPTR; 


CONST 

dtagDisp 

dtagDims 

dtagMntr 

dtagName 


= $80000000 
= $80001000 
= $80002000 
= $80003000 


TYPE 

QueryHeaderPtr= POINTER TO QueryHeader; 
QueryHeader = RECORD 

structID : LONGCARD; 

displaylD : LONGCARD; 

skipID : LONGCARD; 

length : LONGCARD; 

END; 


TYPE 

PropertyFlags = (isLace,isDualpf,isPf2pri,isHam,isEcs,isPal,isSprites, 

isGenlock,isWb,isDraggable,isPanelled,isBeamsync, 
isExtrahalfbrite,isl3,isl4,isl5,isl6); 

PropertyFlagSet = SET OF PropertyFlags; 
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CONST 

diAvailNochips = $0001 
diAvailNomonitor = $0002 
diAvailNotwithgenlock = $0004 


TYPE 

PointPtr 

Point 


Displayinfo 


= POINTER TO Point; 

= RECORD 

x,y:INTEGER; 

END; 

= RECORD OF QueryHeader 
notAvailable : 

propertyFlags : 

resolution : 

pixelSpeed : 

numStdSprites : 

paletteRange : 

spriteResolution : 
pad : 

reserved2 : 

END; 


CARDINAL; 
PropertyFlagSet; 

Point; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

Point; 

ARRAY [4] OF SHORTCARD; 
ARRAY [2] OF LONGINT; 


DimensioninfoPtr= POINTER TO Dimensioninfo; 


Dimensioninfo 


RECORD OF QueryHeader 
maxDepth 
minRasterWidth 
minRasterHeight 
maxRasterWidth 
maxRasterHeight 
nominal 
maxOScan 
videoOScan 
txtOScan 
stdOScan 
pad 

reserved 
END; 


CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

Reetangle; 

Reetangle; 

Reetangle; 

Reetangle; 

Reetangle; 

ARRAY [14] OF SHORTCARD; 
ARRAY [2] OF LONGINT; 


CONST 

meompatMixed = 0 
meompatSelf = 1 
meompatNobody =-l 


TYPE 

MonitorinfoPtr 
Monitorinfo 


= POINTER TO Monitorinfo 
= RECORD OF QueryHeader 
mspe : 

viewPosition : 

viewResolution : 
viewPositionRange : 
totalRows : 

totalColorClooks : 
minRow : 


MonitorSpeePtr; 
Point; 

Point; 

Reetangle; 
CARDINAL; 
CARDINAL; 
CARDINAL; 
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compatibility 

pad 

reserved 

END; 


INTEGER; 

ARRAY [36] GF SHORTCARD; 
ARRAY [2] OF LONGINT; 


CONST 

displavNameLen=32; 

TYPE 

NamelnfoPtr = POINTER TO Nameinfo; 

Nameinfo = RECORD 

header : QueryHeader; 

name : ARRAY [displayNameLen] OF CHAR; 

reserved : ARRAY [2] OF LONGINT; 

END; 

CONST 


invalidID 

= 

-1; 

monitorlDmask 

= 

$FFFF1000; 

defaultMonitorID 

= 

$00000000 

ntscMonitorID 

= 

$00011000 

palMonitorID 

= 

$00021000 

vgaMonitorID 

= 

$00031000 

a2024MonitorID 

= 

$00041000 

protoMonitorID 

= 

$00051000 

loresKey 

= 

$00000000 

hiresKey 

= 

$00008000 

superKey 

= 

$00008020 

hamKey 

= 

$00000800 

loreslaceKey 

= 

$00000004 

hireslaceKey 

= 

$00008004 

superlaceKey 

= 

$00008024 

hamlaceKey 

= 

$00000804 

loresdpfKey 

= 

$00000400 

hiresdpfKey 

= 

$00008400 

superdpfKey 

= 

$00008420 

loreslacedpfKey 

= 

$00000404 

hireslacedpfKey 

= 

$00008404 

superlacedpfKey 

= 

$00008424 

loresdpf2Key 

= 

$00000440 

hiresdpf2Key 

= 

$00008440 

superdpf2Key 

= 

$00008460 

loreslacedpf2Key 

= 

$00000444 

hireslacedpf2Key 

= 

$00008444 

superlacedpf2Key 

= 

$00008464 

extrahalfbriteKey 

= 

$00000080 

extrahalfbritelaceKey 

= 

$00000084 

vgaextraloresKey 

= 

$00031004 

vgaloresKey 

= 

$00039004 

vgaproductKey 

= 

$00039024 

vgahamKey 

= 

$00031804 

vgaextraloreslaceKey 

= 

$00031005 
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vgaloreslaceKey 
vgaproductlaceKey 
vgahamlaceKey 
vgaextraloresdpfKey 
vgaloresdpfKey 
vgaproductdpfKey 
vgaextraloreslacedpfKey 
vgaloreslacedpfKey 
vgaproductlacedpfKey 
vgaextraloresdpf2Key 
vgaloresdpf2Key 
vgaproductdpf2Key 
vgaextraloreslacedpf2Key 
vgaloreslacedpf2Key 
vgaproductlacedpf2Key 
vgaextrahalfbriteKey 
vgaextrahalfbritelaceKey 


$00039005 

$00039025 

$00031805 

$00031404 

$00039404 

$00039424 

$00031405 

$00039405 

$00039425 

$00031444 

$00039444 

$00039464 

$00031445 

$00039445 

$00039465 

$00031084 

$00031085 


a2024tenhertzKey 
a2024fifteenhertzKey 


$00041000; 

$00049000; 


I Ints 

I 

CONST 

blitMsgFault=4; 


TYPE 

IsrvstrPtr 

Isrvstr 


I RastPort 

I 

TYPE 

ArealnfoPtr 
Areainfo 


TmpRasPtr 

TmpRas 


= POINTER TO Isrvstr; 

= RECORD OF Node 

iptr : IsrvstrPtr; 

Code : ANYPTR; 

ccode : ANYPTR; 

carg : INTEGER; 

END; 


= POINTER TO Areainfo; 
= RECORD 


vctrTbl 

ANYPTR; 

vctrPtr 

ANYPTR; 

flagTbl 

ANYPTR; 

flagPtr 

ANYPTR; 

count 

INTEGER 

maxCount 

INTEGER 

firstX 

INTEGER 

firstY 

INTEGER 

END; 

POINTER TO TmpRas; 

RECORD 

rasPtr 

ANYPTR; 

size 

LONGINT 


END; 
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DrawModes 

DrawModeSet 

CONST 

jaml 

jam2 

TYPE 

Pen 

PenArrayPtr 

PenArray 

RastPortFlags 


RastPortFlagSet 

RastPort 


= (dmO,complement,inversvid); 
= SET OF DrawModes; 


= DrawModeSet:{}; 

= DrawModeSet:{dmO}; 


= SHORTCARD; | The actual pen variables 

= POINTER TO PenArray; 

= ARRAY OF CARDINAL; | like in Intuition.Drawinfo 

= (firstDot,oneDot,dBuffer,areaOutline,noCrossFill=5, 
rpf8=8); 

= SET OF RastPortFlags; 

= RECORD 


layer 

LayerPtr; 


bitMap 

BitMapPtr 


areaPtrn 

ANYPTR; 


tmpRas 

TmpRasPtr 


arealnfo 

ArealnfoPtr; 

gelsinfo 

GelsinfoPtr; 

mask 

SHORTSET; 

1 used to be SHORTCARD 

f gPen 

SHORTCARD 


bgPen 

SHORTCARD 


aOlPen 

SHORTCARD 

1 areafill outline pen 

drawMode 

DrawModeSet; 

areaPtSz 

SHORTCARD 


linPatCnt 

SHORTCARD 


dummy 

SHORTCARD 


f lags 

RastPortFlagSet; 

linePtrn 

CARDINAL; 


X 

INTEGER; 

1 current position 

y 

INTEGER; 


minterms 

ARRAY [8] 

OF SHORTCARD; 

penWidth 

INTEGER; 


penHeight 

INTEGER; 


f ont 

TextFontPtr; 

algoStyle 

FontStyleSet; 

txFlags 

FontFlagSet; 

txHeight 

CARDINAL; 


txWidth 

CARDINAL; 


txBaseline 

CARDINAL; 


txSpacing 

INTEGER; 


User 

ANYPTR; 


longreserved 

ARRAY [0. 

1] OF LONGINT; 

wordreserved 

ARRAY [0. 

6] OF CARDINAL; 

reserved 

ARRAY [0. 

7] OF SHORTCARD; 


END; 
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I Viewport 

I 

TYPE 

VTags 


VTagList 

ViewModes 


ViewModeSet 
RasinfoPtr 
RasInfo 


= (VTAG_END = 0, 

ChromaKey_Clr = $8000000, 
ChromaKey_Set, 
BitPlaneKey_Clr, 
BitPlaneKey_Set, 
BorderBlank_Clr, 
BorderBlank_Set, 
BorderNotrans_Clr, 
BorderNotrans_Set, 
ChromaPen_Clr, 
ChromaPen_Set, 
ChromaPlane_Set, 
AttachCm_Set, 

NextBufCm, 

BatchCm_Clr, 

BatchCm_Set, 
NormalDisp.Get, 
NorinalDisp_Set, 
CoerceDisp_Get, 
CoerceDisp_Set, 
ViewPortExtra_Get, 
ViewPortExtra_Set, 
ChromaKey_Get, 
BitPlaneKey_Get, 
BorderNotTrans_Get, 
ChromaPen_Get, 
ChromaPlane_Get, 
AttachCm_Get, 

BatchCm_Get, 
Batchltems.Get, 
BatchItems_Set, 
BatchItems_Add, 
VpModeId_Get, 

VpModeId_Set, 
VpModeld.Clr, 

UserClip_Get, 

UserClip_Set, 
UserClip_Clr); 

= ARRAY OF VTags; 


= (vmO,genlocVideo,lace,vm3,vm4,superHires,pfba, 
extraHalfbrite,genlocAudio,vmO,dualpf,ham, 
extendedMode,vpHide,sprites,hires); 

= SET OF ViewModes; 

= POINTER TO Rasinfo; 

= RECORD 


next 
bitMap 
rxOffset 
ryOffset 
END; 


RasinfoPtr; 
BitMapPtr; 
INTEGER; 
INTEGER; 
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ViewPort 


ViewPtr 

View 


ViewExtraPtr 

ViewExtra 


ViewPortExtra 


I GfxBase 

I 

DisplayFlags 

DisplayFlagSet 

ChipRevs 

ChipRevSet 

TYPE 

GfxBasePtr 
GfxBaseType 


= RECORD 


next 

ViewPortPtr; 

colorMap 

ColorMapPtr; 

dsplns 

CopListPtr; 

sprins 

CopListPtr; 

clrlns 

CopListPtr; 

uCopIns 

UCopListPtr; 

dWidth 

INTEGER; 

dHeight 

INTEGER; 

dxOffset 

INTEGER; 

dyOffset 

INTEGER; 

modes 

ViewModeSet; 

spritePriorities 

SHORTCARD; 

extendedModes 

SHORTSET; 

rasInfo 

RasInfoPtr; 

END; 


POINTER TO View; 


RECORD 


viewPort 

ViewPortPtr; 

lofCprList 

CprListPtr; 

shfCprList 

CprListPtr; 

dyOffset 

INTEGER; 

dxOffset 

INTEGER; 

modes 

ViewModeSet; 

END; 


POINTER TO ViewExtra; 



= RECORD OF ExtendedNode 
view : ViewPtr; 

monitor : MonitorSpecPtr; 

END; 

= RECORD OF ExtendedNode 

viewPort : ViewPortPtr; 

displayClip : Rectangle; 

END; 


= (ntsc,genloc,pal,todaSafe,df4,df5,df6,df7, 
df8,df9,dfl0,dfll,dfl2,dfl3,dfl4,dfl5); 

= SET OF DisplayFlags; 

= (hrAgnus,hrDenise,cr2,cr3,cr4,cr5,cr6,cr7); 
= SET OF ChipRevs; 


= POINTER TO GfxBaseType; 

= RECORD OF Library 

actiView : ViewPtr; 

copinit : CopInitPtr; 

cia : ANYPTR; 
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blitter 

loFlist 

shFlist 

blthd 

blttl 

bsblthd 

bsblttl 

vbsrv 

timsrv 

bltsrv 

textFonts 

defaultFont 

modes 

vBlank 

debug 

beamSync 

bplconO 

spriteReserved 

bytereserved 

f lags 

blitLock 

blitNest 

blitWaitQ 

blitOwner 

waitQ 

displayFlags 

simpleSprites 

maxDisplayRow 

maxDisplayColumn 

normalDisplayRows 

normalDisplayColumns 

normalDPMX 

normalDPMY 

lastChanceMemory 

IcMptr 

microsPerLine 

minDisplayColumn 

chipRevBitsO 

reservedPad 

reserved 

monitorid 

hedley 

hedleySprites 

hedleySpritesl 

hedleyCount 

hedleyFlags 

hedleyTmp 

hashTable 

currentTotRows 

currentTotCclks 

hedleyHint 

hedleyHint2 

nreserved 

a2024SyncRaster 

controlDeltaPal 


ANYPTR; 

ANYPTR; 

ANYPTR; 

BltNodePtr; 

BltNodePtr; 

BltNodePtr; 

BltNodePtr; 

Interrupt; 

Interrupt; 

Interrupt; 

List; 

TextFontPtr; 

BITSET; 

SHORTCARD; 

SHORTCARD; 

INTEGER; 

BITSET; 

SHORTCARD; 

SHORTCARD; 

BITSET; 

INTEGER; 

INTEGER; 

List; 

TaskPtr; 

List; 

DisplayFlagSet; 

ANYPTR; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

SignalSemaphorePtr; 
ANYPTR; 

CARDINAL; 

CARDINAL; 

ChipRevSet; 

SHORTCARD; 

ARRAY [4] OF SHORTCARD; 
CARDINAL; 

ARRAY [8] OF ANYPTR; 
ARRAY [8] OF ANYPTR; 
ARRAY [8] OF ANYPTR; 
INTEGER; 

BITSET; 

INTEGER; 

ANYPTR; 

CARDINAL; 

CARDINAL; 

SHORTCARD; 

SHORTCARD; 

ARRAY [4] OF LONGINT; 
ANYPTR; 

INTEGER; 
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controlDeltaNtsc 
currentMonitor 
monitorList 
defaultMonitor 
monitorListSemaphore 
displayinfoDataBase 
actiViewCprSemaphore 
utilityBase 
execBase 
END; 

VAR GfxBase : GfxBasePtr; 

LIBRARY GfxBase BY -156 

PROCEDURE AddAnimObC anOb IN AO : AnimObPtr; 

VAR anKey IN Al : AnimObPtr; 

rp IN A2 : RastPortPtr); 

LIBRARY GfxBase BY -96 

PROCEDURE AddBobC Bob IN AO : BobPtr; 

rp IN Al : RastPortPtr); 

LIBRARY GfxBase BY -480 

PROCEDURE AddFontC textFont IN Al : TextFontPtr ); 

LIBRARY GfxBase BY -102 

PROCEDURE AddVSpriteC vs IN AO : VSpritePtr; 

rp IN Al : RastPortPtr ); 


MonitorSpecPtr; 

List; 

MonitorSpecPtr; 
SignalSemaphorePtr; 
ANYPTR; 

SignalSemaphorePtr; 
LibraryPtr; 
LibrarvPtr: 


LIBRARY GfxBase BY -492 

PROCEDURE AllocRasterC width IN DO : CARDINAL; 

height IN Dl : CARDINAL ): ANYPTR; 


LIBRARY GfxBase BY -504 

PROCEDURE AndRectRegionC region 

rectangle 


LIBRARY GfxBase BY -624 

PROCEDURE AndRegionRegionC regionl 

region2 


IN 

AO : 

: RegionPtr; 

IN 

Al 

: RectanglePtr ); 

IN 

AO ; 

; RegionPtr; 

IN 

Al 

: RegionPtr ): BOOLEAN; 


LIBRARY GfxBase BY -162 

PROCEDURE AnimateC VAR anKey IN AO 

rp IN Al 


AnimObPtr; 
RastPortPtr ); 


LIBRARY GfxBase BY -258 

PROCEDURE AreaDrawC rp IN Al : RastPortPtr; 

X IN DO : INTEGER; 
y IN Dl : INTEGER ): BOOLEAN; 
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LIBRARY GfxBase BY -186 


rp 

IN 

Al 

RastPortPtr; 

cX 

IN 

DO 

INTEGER; 

cY 

IN 

Dl 

INTEGER; 

a 

IN 

D2 

INTEGER; 

b 

IN 

D3 

INTEGER): BOOLEAN 


LIBRARY GfxBase BY -264 

PROCEDURE AreaEndC rp IN Al : 

LIBRARY GfxBase BY -252 

PROCEDURE AreaMoveC rp IN Al 

X IN DO 
y IN Dl 

LIBRARY GfxBase BY -474 
PROCEDURE AskFontC rp 

textAttr 


RastPortPtr ): BOOLEAN; 


RastPortPtr; 
INTEGER; 

INTEGER ): BOOLEAN; 


IN Al : RastPortPtr; 

IN AO : TextAttrPtr ); 


LIBRARY GfxBase BY -84 

PROCEDURE AskSoftStyleC rp IN Al 

LIBRARY GfxBase BY -654 


LIBRARY GfxBase BY -30 


RastPortPtr ): FontStyleSet; 


BOOLEAN; 


LayerRomC 

layer 

IN A5 : LayerPtr ): B 

srcBitMap 

IN 

AO 

: BitMapPtr; 

srcX 

IN 

DO 

: INTEGER; 

srcY 

IN 

Dl 

: INTEGER; 

dstBitMap 

IN 

Al 

: BitMapPtr; 

dstX 

IN 

D2 

: INTEGER; 

dstY 

IN 

D3 

: INTEGER; 

sizeX 

IN 

D4 

: INTEGER; 

sizeY 

IN 

D5 

: INTEGER; 

minterm 

IN 

D6 

: SHORTCARD; 

mask 

IN 

D7 

: SHORTCARD; 

tempA 

IN 

A2 

: ANYPTR ): LONGCARD; 


LIBRARY GfxBase BY -606 


srcbm 

IN 

AO : 

BitMapPtr; 

srcX 

IN 

DO : 

: INTEGER; 

srcY 

IN 

Dl ; 

: INTEGER; 

destRp 

IN 

Al : 

: RastPortPtr 

destX 

IN 

D2 : 

: INTEGER; 

destY 

IN 

D3 ; 

: INTEGER; 

sizeX 

IN 

D4 : 

: INTEGER; 

sizeY 

IN 

D5 ; 

: INTEGER; 

minterm 

IN 

D6 ; 

: SHORTCARD ) 


LIBRARY GfxBase BY -300 

PROCEDURE BltClearC memBlock IN Al : ANYPTR; 

bytecount IN DO : LONGCARD; 
flags IN Dl : LONGSET ); 
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LIBRARY GfxBase BY -636 

PROCEDURE BltMaskBitMapRastPort( 


srcbm 

IN 

AO 

srcX 

IN 

DO 

srcY 

IN 

Dl 

destRp 

IN 

Al 

destX 

IN 

D2 

destY 

IN 

D3 

sizeX 

IN 

D4 

sizeY 

IN 

D5 

minterm 

IN 

D6 

bltmask 

IN 

A2 


BitMapPtr; 

INTEGER; 

INTEGER; 

RastPortPtr 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

SHORTCARD; 

ANYPTR ); 


LIBRARY GfxBase BY -312 

PROCEDURE BltPatternC rp IN Al 

mask IN AO 

xl IN DO 

yl IN Dl 

maxX IN D2 

maxY IN D3 

bytecnt IN D4 


RastPortPtr; 

ANYPTR; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER ); 


LIBRARY GfxBase BY -36 

PROCEDURE BltTemplate( srcTemplate IN AO : ANYPTR; 

srcX IN DO : INTEGER; 

srcMod IN Dl : INTEGER; 

rp IN Al : RastPortPtr; 

dstX IN D2 : INTEGER; 

dstY IN D3 : INTEGER; 

sizeX IN D4 : INTEGER; 

sizeY IN D5 : INTEGER ); 


LIBRARY GfxBase BY -366 

PROCEDURE CBumpC c IN Al : UCopListPtr ); 


LIBRARY GfxBase BY -420 

PROCEDURE ChangeSprite( vp IN AO : ViewPortPtr; 

s IN Al : SimpleSpritePtr; 

newdata IN A2 : ANYPTR ); 


LIBRARY GfxBase BY -42 

PROCEDURE ClearE0L( rp IN Al : RastPortPtr ); 

LIBRARY GfxBase BY -522 

PROCEDURE ClearRectRegionC region IN AO : RegionPtr; 

rectangle IN Al : RectanglePtr ): 

LIBRARY GfxBase BY -528 

PROCEDURE ClearRegionC region IN AO : RegionPtr ); 

LIBRARY GfxBase BY -48 

PROCEDURE ClearScreen(rp IN Al : RastPortPtr); 


BOOLEAN; 
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LIBRARY GfxBase BY -552 


src 

IN 

AO 

RastPortPtr; 

srcX 

IN 

DO 

INTEGER; 

srcY 

IN 

Dl 

INTEGER; 

dest 

IN 

Al 

RastPortPtr; 

destX 

IN 

D2 

INTEGER; 

destY 

IN 

D3 

INTEGER; 

xSize 

IN 

D4 

INTEGER; 

ySize 

IN 

D5 

INTEGER; 

minterm 

IN 

D6 

SHORTCARD ); 


LIBRARY GfxBase BY -78 

PROCEDURE CloseFontC font IN Al : TextFontPtr ); 


LIBRARY GfxBase BY -372 

PROCEDURE CMoveC c IN Al : UCopListPtr; 

a IN DO : ANYPTR; 

V IN Dl : INTEGER ); 


LIBRARY GfxBase BY -450 

PROCEDURE CopySBitMapC layer IN AO : LayerPtr ); 

LIBRARY GfxBase BY -378 

PROCEDURE CWaitC c IN Al : UCopListPtr; 

V IN DO : INTEGER; 
h IN Dl : INTEGER ); 

LIBRARY GfxBase BY -462 
PROCEDURE DisownBlitter(); 

LIBRARY GfxBase BY -534 

PROCEDURE DisposeRegionC region IN AO : RegionPtr ); 
LIBRARY GfxBase BY -108 

PROCEDURE DoCollisionC rp IN Al : RastPortPtr ); 

LIBRARY GfxBase BY -246 

PROCEDURE Draw( rp IN Al : RastPortPtr; 

X IN DO : INTEGER; 
y IN Dl : INTEGER ); 


LIBRARY GfxBase BY -180 

PROCEDURE DrawEllipseC rp IN Al 

cX IN DO 
cY IN Dl 
a IN D2 
b IN D3 


RastPortPtr; 
INTEGER; 
INTEGER; 
INTEGER; 
INTEGER ); 


LIBRARY GfxBase BY -114 

PROCEDURE DrawGListC rp IN Al 

vp IN AO 


RastPortPtr; 
ViewPortPtr ); 
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LIBRARY GfxBase BY -330 

PROCEDURE Flood( rp IN Al : RastPortPtr; 

mode IN D2 : LONGCARD; 

X IN DO : INTEGER; 
y IN Dl : INTEGER ): BOOLEAN; 

LIBRARY GfxBase BY -576 

PROCEDURE FreeColorMapC colorMap IN AO : CoIorMapPtr ); 
LIBRARY GfxBase BY -546 

PROCEDURE FreeCopListC coplist IN AO : CopListPtr ); 
LIBRARY GfxBase BY -564 

PROCEDURE FreeCprListC cprlist IN AO : CprListPtr ); 
LIBRARY GfxBase BY -600 

PROCEDURE FreeGBuffers( anOb IN AO : AnimObPtr; 

rp IN Al : RastPortPtr; 
db IN DO : BOOLEAN ); 

LIBRARY GfxBase BY -498 

PROCEDURE FreeRasterC p IN AO : ANYPTR; 

width IN DO : CARDINAL; 
height IN Dl : CARDINAL ); 

LIBRARY GfxBase BY -414 

PROCEDURE FreeSpriteC pick IN DO : INTEGER ); 

LIBRARY GfxBase BY -540 

PROCEDURE FreeVPortCopLists( vp IN AO : ViewPortPtr ); 


LIBRARY GfxBase BY -570 

PROCEDURE GetColorMapC entries IN DO 

LIBRARY GfxBase BY -168 

PROCEDURE GetGBuffersC anOb IN AO 

rp IN Al 

db IN DO 

LIBRARY GfxBase BY -582 

PROCEDURE GetRGB4( colorMap IN AO 

entry IN DO 

LIBRARY GfxBase BY -408 

PROCEDURE GetSpriteC sprite IN AO 

pick IN DO 


LONGINT ): CoIorMapPtr; 


AnimObPtr; 
RastPortPtr; 

BOOLEAN ): BOOLEAN; 


CoIorMapPtr; 

LONGINT ): LONGINT; 


SimpleSpritePtr; 
INTEGER ): INTEGER; 


LIBRARY GfxBase BY -282 

PROCEDURE InitAreaC VAR areainfo IN AO 

buffer IN Al 
maxvectors IN DO 


Areainfo; 
ANYPTR; 
INTEGER ); 
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LIBRARY GfxBase BY -390 

PROCEDURE InitBitMapC VAR bm IN AO : BitMap; 

depth IN DO : INTEGER; 

width IN Dl : INTEGER; 

height IN D2 : INTEGER ); 

LIBRARY GfxBase BY -120 

PROCEDURE InitGelsC head IN AO : VSpritePtr; 

tail IN Al : VSpritePtr; 
ginfo IN A2 : GelsInfoPtr ); 

LIBRARY GfxBase BY -174 

PROCEDURE InitGMasks( anOb IN AO : AnimObPtr ); 

LIBRARY GfxBase BY -126 

PROCEDURE InitMasksC vs IN AO : VSpritePtr ); 

LIBRARY GfxBase BY -198 

PROCEDURE InitRastPort( VAR rp IN Al : RastPort ); 
LIBRARY GfxBase BY -468 

PROCEDURE InitTmpRas( VAR tmpras IN AO : TmpRas; 

buffer IN Al : ANYPTR; 
size IN DO : LONGINT ); 

LIBRARY GfxBase BY -360 

PROCEDURE InitViewC VAR view IN Al : View ); 

LIBRARY GfxBase BY -204 

PROCEDURE InitVPort( VAR vp IN AO : ViewPort ); 
LIBRARY GfxBase BY -192 

PROCEDURE LoadRGB4( vp IN AO : ViewPortPtr; 

colors IN Al : ANYPTR; 
count IN DO : INTEGER ) ; 

LIBRARY GfxBase BY -222 

PROCEDURE LoadViewC view IN Al : ViewPtr ); 

LIBRARY GfxBase BY -432 

PROCEDURE LockLayerRomC layer IN A5 : LayerPtr ); 

LIBRARY GfxBase BY -216 

PROCEDURE MakeVPortC view IN AO : ViewPtr; 

viewport IN Al : ViewPortPtr ); 


LIBRARY GfxBase BY -240 

PROCEDURE Move( rp IN Al : RastPortPtr; 

X IN DO : INTEGER; 
y IN Dl : INTEGER ); 
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LIBRARY GfxBase BY -426 

PROCEDURE MoveSpriteC vp IN AO 

Sprite IN Al 

X IN DO 

y IN Dl 


ViewPortPtr; 
SimpleSpritePtr; 
INTEGER; 

INTEGER ); 


LIBRARY GfxBase BY -210 

PROCEDURE MrgCopC view IN Al : ViewPtr ); 


LIBRARY GfxBase BY -516 

PROCEDURE NewRegionO : RegionPtr; 

LIBRARY GfxBase BY -72 

PROCEDURE OpenFontC textAttr IN AO : TextAttrPtr ): TextFontPtr; 

LIBRARY GfxBase BY -510 

PROCEDURE OrRectRegionC region 

rectangle 

LIBRARY GfxBase BY -612 

PROCEDURE OrRegionRegionC regionl 

region2 

LIBRARY GfxBase BY -456 
PROCEDURE OwnBlitter0; 

LIBRARY GfxBase BY -336 

PROCEDURE PolyDrawC rp IN Al : 

count IN DO : 

array IN AO : 

LIBRARY GfxBase BY -276 

PROCEDURE QBlitC bp IN Al : BltNodePtr ); 

LIBRARY GfxBase BY -294 

PROCEDURE QBSBlitC bsp IN Al : BltNodePtr ); 


IN 

AO ; 

: RegionPtr; 

IN 

Al 

: RectanglePtr): BOOLEAN 

IN 

AO : 

: RegionPtr; 

IN 

Al 

: RegionPtr ): BOOLEAN; 


RastPortPtr; 
INTEGER; 
ANYPTR ); 


LIBRARY GfxBase BY -318 

PROCEDURE ReadPixeK rp IN Al : RastPortPtr; 

X IN DO : INTEGER; 
y IN Dl : INTEGER ): LONGINT; 

LIBRARY GfxBase BY -306 

PROCEDURE RectFilK rp IN Al : RastPortPtr; 

xMin IN DO : INTEGER; 
yMin IN Dl : INTEGER; 
xMax IN D2 : INTEGER; 
yMax IN D3 : INTEGER ); 


LIBRARY GfxBase BY -486 

PROCEDURE RemFontC textFont IN Al : TextFontPtr ); 
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LIBRARY GfxBase BY -132 

PROCEDURE RemIBobC bob IN AO : BobPtr; 

rp IN Al : RastPortPtr; 
vp IN A2 : ViewPortPtr ); 

LIBRARY GfxBase BY -138 

PROCEDURE RemVSpriteC vs IN AO : VSpritePtr ); 

LIBRARY GfxBase BY -396 


PROCEDURE 

ScrollRaster( 

rp 

IN 

Al 

RastPortPtr 



dx 

IN 

DO 

INTEGER; 



dy 

IN 

Dl 

INTEGER; 



xMin 

IN 

D2 

INTEGER; 



yMin 

IN 

D3 

INTEGER; 



xMax 

IN 

D4 

INTEGER; 



yMax 

IN 

D5 

INTEGER ); 

LIBRARY GfxBase BY -588 





PROCEDURE 

ScrollVPort( 

vp IN 

AO 

: ViewPortPtr ); 


LIBRARY GfxBase BY -342 

PROCEDURE SetAPenC rp IN Al : RastPortPtr; 

pen IN DO : CARDINAL ); 

LIBRARY GfxBase BY -348 

PROCEDURE SetBPenC rp IN Al : RastPortPtr; 

pen IN DO : CARDINAL ); 

LIBRARY GfxBase BY -144 


PROCEDURE SetCollisionC 

num 

IN DO : LONGCARD; 


routine 

IN AO : PROC; 


ginf o 

IN Al : GelsInfoPtr 

LIBRARY GfxBase BY -354 

PROCEDURE SetDrMdC rp 

IN Al : 

RastPortPtr; 

mode 

IN DO : 

DrawModeSet ); 

LIBRARY GfxBase BY -66 

PROCEDURE SetFontC rp 

IN Al : 

RastPortPtr; 

f ont 

IN AO : 

TextFontPtr ); 


LIBRARY GfxBase BY -234 

PROCEDURE SetRastC rp IN Al : RastPortPtr; 

pen IN DO : CARDINAL ); 


LIBRARY GfxBase BY -288 


PROCEDURE SetRGB4( vp 

IN AO 

ViewPortPtr; 

n 

IN DO 

CARDINAL; 

r 

IN Dl 

CARDINAL; 

g 

IN D2 

CARDINAL; 

b 

IN D3 

CARDINAL ) ; 
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LIBRARY GfxBase BY -630 


PROCEDURE SetRGB4CM( 

cm 

IN 

AO 

: ColorMapPtr; 


n 

IN 

DO 

: CARDINAL; 


r 

IN 

Dl 

: CARDINAL; 


g 

IN 

D2 

: CARDINAL; 


b 

IN 

D3 

: CARDINAL ); 

LIBRARY GfxBase BY -90 





PROCEDURE SetSoftSty] 

e( 

rp 


IN Al : RastPortPtr 


style IN DO : FontStyleSet; 

enable IN Dl : FontStyleSet ): FontStyleSet; 

LIBRARY GfxBase BY -150 

PROCEDURE SortGListC rp IN Al : RastPortPtr ); 

LIBRARY GfxBase BY -444 

PROCEDURE SyncSBitMapC layer IN AO : LayerPtr ); 

LIBRARY GfxBase BY -60 

PROCEDURE Text( rp IN Al : RastPortPtr; 

String IN AO : ANYPTR; 
count IN DO : LONGINT ); 


LIBRARY GfxBase BY -60 

PROCEDURE TextStrC rp IN Al : RastPortPtr; 

REF String IN AO : STRING; 


count 

LIBRARY GfxBase BY -54 
PROCEDURE TextLengthC rp 

String 

count 

LIBRARY GfxBase BY -54 
PROCEDURE TextLengthStr( 

REF 


IN DO : LONGINT 


IN Al : RastPortPtr; 

IN AO : ANYPTR; 

IN DO : INTEGER ): INTEGER; 


rp IN Al : RastPortPtr; 

String IN AO : STRING; 

count IN DO : INTEGER ): INTEGER; 


LIBRARY GfxBase BY -594 

PROCEDURE UCopperListlnit( copperList IN AO 

num IN DO 


UCopListPtr; 

LONGINT ): UCopListPtr; 


LIBRARY GfxBase BY -438 

PROCEDURE UnlockLayerRomC layer IN A5 : LayerPtr ); 

LIBRARY GfxBase BY -384 

PROCEDURE VBeamPosO: LONGINT; 

LIBRARY GfxBase BY -228 
PROCEDURE WaitBlitO; 

LIBRARY GfxBase BY -402 

PROCEDURE WaitBOVPC vp IN AO : ViewPortPtr ); 
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LIBRARY GfxBase BY -270 
PROCEDURE WaitTOFO; 


LIBRARY GfxBase BY -324 

PROCEDURE WritePixeK rp IN Al : RastPortPtr; 

X IN DO : INTEGER; 
y IN Dl : INTEGER ): BOOLEAN; 


LIBRARY GfxBase BY -558 

PROCEDURE XorRectRegionC region 

rectangle 

LIBRARY GfxBase BY -618 

PROCEDURE XorRegionRegionC regionl 

region2 


IN 

AO ; 

: RegionPtr; 


IN 

Al 

: RectanglePtr 

): BOOLEAN 

IN 

AO ; 

: RegionPtr; 


IN 

Al 

: RegionPtr ): 

BOOLEAN; 


LIBRARY GfxBase BY -660 

PROCEDURE GfxNewC gfxNodeType IN DO : LONGINT ): ANYPTR; 
LIBRARY GfxBase BY -666 

PROCEDURE GfxFreeC gfxNodePtr IN AO : ANYPTR ); 

LIBRARY GfxBase BY -672 

PROCEDURE GfxAssociate( associateNode IN AO : ANYPTR; 

gfxNodePtr IN Al : ANYPTR); 


LIBRARY GfxBase BY -678 

PROCEDURE BitMapScaleC VAR bitScaleArgs IN AO : BitScaleArgs ); 
LIBRARY GfxBase BY -684 

PROCEDURE ScalerDivC factor IN DO : CARDINAL; 

numerator IN Dl : CARDINAL; 
denominator IN D2 : CARDINAL ): CARDINAL; 


LIBRARY GfxBase BY -690 

PROCEDURE TextExtentC rp IN Al : RastPortPtr; 

String IN AO : ANYPTR; 

count IN DO : INTEGER; 

VAR textExtent IN A2 : TextExtention ); 


LIBRARY GfxBase BY -690 
PROCEDURE TextExtentStr( 



rp 

IN 

Al 

: RastPortPtr; 

REF 

String 

IN 

AO : 

STRING; 


count 

IN 

DO : 

INTEGER; 

VAR 

textExtent 

IN 

A2 : 

TextExtention 
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LIBRARY GfxBase BY -696 


PROCEDURE TextFitC rp 

IN Al : 

RastPortPtr; 

String 

IN AO : 

ANYPTR; 

strLen 

IN DO : 

CARDINAL; 

VAR textExtent 

IN A2 : 

TextExtention; 

constrainingExtent 

IN A3 : 

TextExtentPtr; 

strDirection 

IN Dl : 

INTEGER; 

constrainingBitWidth 

IN D2 : 

CARDINAL; 

constrainingBitHeight 

IN D3 : 

CARDINAL):LONGCARD; 

LIBRARY GfxBase BY -696 



PROCEDURE TextFitStrC rp 

IN Al 

: RastPortPtr; 

REF String 

IN AO 

: STRING; 

StrLen 

IN DO 

: CARDINAL; 

VAR textExtent 

IN A2 

: TextExtention; 

constrainingExtent 

IN A3 

: TextExtentPtr; 

StrDirection 

IN Dl 

: INTEGER; 

constrainingBitWidth IN D2 

: CARDINAL; 

constrainingBitHeight IN D3 

: CARDINAL):LONGCARD; 

LIBRARY GfxBase BY -702 



PROCEDURE GfxLookUpC associateNode IN AO : ANYPTR ): 

ANYPTR; 


LIBRARY GfxBase BY -708 

PROCEDURE VideoControl( VAR colorMap IN AO : ColorMap; 

tagarray IN Al : VTagListPtr ): BOOLEAN; 


LIBRARY GfxBase BY -714 

PROCEDURE DpenMonitorC VAR monitorName IN Al : STRING; 

displaylD IN DO : LONGCARD): MonitorSpecPtr; 

LIBRARY GfxBase BY -720 

PROCEDURE CloseMonitor( monitorSpec IN AO : MonitorSpecPtr ): BOOLEAN; 
LIBRARY GfxBase BY -726 

PROCEDURE FindDisplaylnfo(displaylD IN DO : LONGCARD):DisplayInfoHandle; 
LIBRARY GfxBase BY -732 

PROCEDURE NextDisplaylnfoC displaylD IN DO : LONGCARD ): LONGCARD; 


LIBRARY GfxBase BY -756 

PROCEDURE GetDisplayInfoData( handle 

buf 

size 

tagID 

displaylD 


IN AO : DisplayinfoHandle; 

IN Al : ANYPTR; 

IN DO : LONGCARD; 

IN Dl : LONGCARD; 

IN D2 : LONGCARD ): LONGCARD; 


LIBRARY GfxBase BY -762 

PROCEDURE FontExtentC font IN AO : TextFontPtr; 

VAR fontExtent IN Al : TextExtention ); 
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LIBRARY GfxBase BY -768 


LIBRARY GfxBase BY -774 
PROCEDURE WritePixelLineS( 


rp 

IN 

AO : 

RastPortPtr; 

xstart 

IN 

DO : 

CARDINAL; 

ystart 

IN 

Dl : 

CARDINAL; 

width 

IN 

D2 : 

CARDINAL; 

array 

IN 

A2 : 

ANYPTR; 

tempRP 

IN 

Al : 

RastPortPtr ) 

rp 

IN AO 

: RastPortPtr; 


xstart IN DO 
ystart IN Dl 
width IN D2 
array IN A2 
tempRP IN Al 


CARDINAL; 

CARDINAL; 

CARDINAL; 

ANYPTR; 

RastPortPtr ): LDNGINT; 


LIBRARY GfxBase BY -780 

PROCEDURE ReadPixelArray8( rp IN AO : RastPortPtr; 

xstart IN DO : CARDINAL; 

ystart IN Dl : CARDINAL; 

xstop IN D2 : CARDINAL; 

ystop IN D3 : CARDINAL; 

array IN A2 : ANYPTR; 

temprp IN Al : RastPortPtr ): LDNGINT; 


LIBRARY GfxBase BY -786 

PROCEDURE WritePixelArray8( rp IN AO : RastPortPtr; 

xstart IN DO : CARDINAL; 

ystart IN Dl : CARDINAL; 

xstop IN D2 : CARDINAL; 

ystop IN D3 : CARDINAL; 

array IN A2 : ANYPTR; 

temprp IN Al : RastPortPtr ): LDNGINT; 


LIBRARY GfxBase BY -792 

PROCEDURE GetVPModelDC vp IN AO : ViewPortPtr ): LONGCARD; 

LIBRARY GfxBase BY -798 

PROCEDURE ModeNotAvailableC modelD IN DO : LONGCARD ): LONGCARD; 

LIBRARY GfxBase BY -804 

PROCEDURE WeighTAMatchC reqTextAttr IN AO : TextAttrPtr; 

targetTextAttr IN Al : TextAttrPtr; 
targetTags IN A2 : FontTagListPtr):CARDINAL 

LIBRARY GfxBase BY -810 

PROCEDURE EraseRectC rp IN Al : RastPortPtr; 

xMin IN DO : INTEGER; 
yMin IN Dl : INTEGER; 
xMax IN D2 : INTEGER; 
yMax IN D3 : INTEGER ); 

LIBRARY GfxBase BY -816 

PROCEDURE ExtendFontC font IN AO : TextFontPtr; 

fontTags IN Al : FontTagListPtr ): LONGCARD; 
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LIBRARY GfxBase BY -822 


PROCEDURE 

GROUP 

StripFontC font IN AO : 

TextFontPtr ); 


ViewGrp 

= RasInfo, 

RasinfoPtr, 

View, 

ViewModes, 

ViewPtr; 

ViewModeSet, 

ViewPort, 


RasterGrp 

= BitMap, 

RastPort, 

RastPortFlagi 


RastPortFIagSet, 

RastPortPtr, 



AllocRaster, 
InitRastPort; 

FreeRaster, 

InitBitMap, 

DrMdGrp 

= RasterGrp, 




jaml. 

jam2. 



DrawModes, 

DrawModeSet, 



SetAPen, 

SetRast; 

SetBPen, 

SetDrMd, 


1 SetDrPt 

SetWrMsk, 


DrawGrp 

= RastPortPtr, 




ClearEOL, 

ClearScreen, 

Draw, 


DrawEllipse, 

Move, 

PolyDraw, 


ReadPixel, 

ScrollRaster, 

Text, 


TextLength, 
WritePixel; 

TextLengthStr, 

TextStr, 


1DrawCircIe, 

1TestPixel, 


AreaGrp 

= Areainfo, 

ArealnfoPtr, 

RastPortPtr, 

TmpRas, 

TmpRasPtr, 



AreaDraw, 

AreaElIipse, 



AreaEnd, 

AreaMove, 

(*BndryOff,* 


Flood, 

RectFill; 

InitArea, 

InitTmpRas, 


1SetAfPt, 

SetDPen, 

AreaCircIe; 

ColorGrp 

= ColorMap, 

ColorMapPtr, 

Pen, 


PenArray, 

PenArrayPtr, 

ViewPortPtr, 


FreeCoIorMap, 

GetColorMap, 

GetRGB4, 


LoadRGB4, 

SetRGB4, 

SetRGB4CM; 

BltGrp 

= BitMapPtr, 

LONGSET, 

RastPortPtr, 


SHDRTSET, 

BltBitMap, 

BItBitMapRastPort, 

BItClear, 


BltCIear, 

BltTemplate, 

ClipBlit, 


DisownBlitter, 

OwnBlitter, 

QBlit, 


QBSBIit, 

WaitBlit; 


CopGrp 

= ViewGrp, 




lof, 

move, 

next, 


sht, 

wait, 



Coplnit, 

CopInitPtr, 

Coplns, 


CopInsPtr, 

CopList, 

CopListPtr, 


CprList, 

CprListPtr, 

UCopList, 


UCopListPtr, 

ViewPortPtr, 

ViewPtr, 
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LayerGrp 


FontGrp 


GelGrp 


GfxBasicGrp 


All 


CBump, 

CMove, 

CWait, 

FreeCopList, 

FreeVPortCopLists, 

InitView, 

InitVPort, 

LoadView, 

MakeVPort, 

MrgCop, 

ScrollRaster, 

UCopList, 

UCopperListlnit, 
WaitTOF; 

VBeamPos, 

WaitBOVP, 

1 CEnd 



= ClipRect, 

Isrvstr, 

IsrvstrPtr, 

Bayer, 

LayerFlags, 

LayerFlagSet, 

Layerinfo, 

LayerPtr, 

Rectangle, 

RectanglePtr, 
RegionRectangle, 

Region, 

RegionPtr, 

AndRectRegion, 

AndRegionRegion, 


AttemptLockLayerRom, 


ClearRectRegion, 

ClearRegion, 

CopySBitMap, 

DisposeRegion, 

LockLayerRom, 

NewRegion, 

OrRectRegion, 

OrRegionRegion, 

SyncSBitMap, 

Unlo ckLayerRom, 

XorRectRegion, 

XorRegionRegion 

= AddF ont, 

AskFont, 

AskSoftStyle, 

CloseFont, 

OpenFont, 

RemFont, 

SetFont, 

SetSoftStyle, 

TextFont, 

FontStyles, 

FontStyleSet, 

FontFlags, 

FontFlagSet, 

normalFont, 

TextAttrPtr, 

TextAttr, 

TextFontPtr; 


= AddAnimOb, 

AnimOb, 

RastPortPtr, 

AddBob, 

Bob, 

AddVSprite, 

Animate, 

ChangeSprite, 

SimpleSprite, 

ViewPortPtr, 

DoCollision, 

DrawGList, 

FreeGBuffers, 

FreeSprite, 

GetGBuffers, 

GetSprite, 

1InitAnimate, 

InitGels, 

InitGMasks, 

InitMasks, 

VSprite, 

VSpritePtr, 

MoveSprite, 

1RemBob, 

RemlBob, 

RemVSprite, 

SetCollision, 

PROC, 

GelslnfoPtr, 

SortGList, 

DBufPacketPtr, 

DBufPacket, 

BobPtr, 

AnimObPtr, 

AnimCompPtr, 

AnimComp, 

BobFlags, 

BobFlagSe t, 

VSpriteFlags, 

VSpriteFlagSet, 

SimpleSpritePtr, 

CollTablePtr, 

CollTable, 

Gelslnfo; 


= DrMdGrp, 

DrawGrp, 

AreaGrp, 

ColorGrp; 



= ViewGrp, 

RasterGrp, 

DrMdGrp, 

DrawGrp, 

AreaGrp, 

ColorGrp, 

BltGrp, 

CopGrp, 

LayerGrp, 

FontGrp, 

GelGrp, 

DisplayFlags, 

DisplayFlagSet, 

GfxBase; 

GfxBasePtr, 

GfxBaseType, 


END Graphics. 
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8.20 HardBlock 


DEFINITION MODULE HardBlocks; 
(* $A- *) 

FROM System IMPORT LONGSET; 
FROM Dos IMPORT DosEnvec; 


TYPE 

IdField 

CONST 

locationLimit 

nil 

badBlock 
fileSysHeader 
loadSeg 
partition 
rigidDisk 

TYPE 

HardBlock 


B adB 1 o ckEnt r y 


BadBlockBlock 


= ARRAY [0..3] OF CHAR; 


= $10; 

= $FFFFFFFF; 

= IdField:("B","A 
= IdField:("F","S 
= IdField:("L","S 
= IdField:("P","A 
= IdField:("R","D 


= RECORD 
id 

summedLongs 
chkSum 
hostid 
END; 

= RECORD 

badBlock, 
goodBlock : LONGCARD 
END; 

= RECORD OF HardBlock; 

next : LONGCARD; 

reserved : LONGCARD; 

blockPairs : ARRAY [61] OF BadBlockEntry 
END; 


,"D","B") 
,"H","D") 
,"E","G") 
,"R","T") 
,"S","K") 


IdField; 

LONGCARD; 

LONGINT; 

LONGCARD; 


FileSysHeaderBlock 


= RECORD OF HardBlock; 


next 

LONGCARD; 

f lags 

LONGSET; 

reservedl 

ARRAY [2] OF LONGCARD; 

dosType, 

Version : 

LONGCARD; 

patchFlags : 

LONGSET; 

type, 

task, 

lock, 

handler, 

stackSize : 

LONGCARD; 

priority, 
startup, 
segListBlocks, 
globalVec : 

LONGINT; 
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LoadSegBlock 


PartitionFlags 

PartitionFlagSet 

PartitionBlock 


RigidDiskFlags 

RigidDiskFlagSet 

RigidDiskBlock 


reserved2 : ARRAY [23] OF LONGCARD; 

reservedS : ARRAY [21] OF LONGCARD 

END; 


= RECORD OF HardBlock; 

next : LONGCARD; 

loadData : ARRAY [123] OF LONGCARD; 

END; 


= (bootable, noMount, makeMeLong = 31); 
= SET OF PartitionFlags; 


= RECORD OF HardBlock; 


next 

f lags 

reservedl 

DevFlags 

driveName 

reserved2 


LONGCARD; 
PartitionFlagSet; 

ARRAY [2] OF LONGCARD; 
LONGSET; 

ARRAY [32] OF CHAR; 
ARRAY [15] OF LONGCARD; 


enviroment 

ereserved 

reserved256 


DosEnvec; 

ARRAY [15] OF LONGCARD; 
ARRAY [256] OF SHORTCARD; 


END; 


= (last, lastLun, 

diskid, ctrlrld, 

makeMeLong = 31); 

= SET OF RigidDiskFlags; 

= RECORD OF HardBlock; 
blockBytes : 

flags : 

badBlockList, 
partitionList, 
fileSysHeaderList, 
drivelnit : 

reservedl : 

cylinders, 
sectors, 
heads, 
interleave, 
park : 

reserved2 : 

writePreComp, 
reducedWrite, 
stepRate : 

reservedS : 

blocksLo, 
blocksHi, 
loCylinder, 
hiCylinder, 
cylBlocks, 

autoParkSeconds : 
reserved4 : 

diskVendor : 


lastTId, noReselect, 


LONGCARD; 
RigidDiskFlagSet; 


LONGCARD; 

ARRAY [6] OF LONGCARD; 


LONGCARD; 

ARRAY [3] OF LONGCARD; 


LONGCARD; 

ARRAY [5] OF LONGCARD; 


LONGCARD; 

ARRAY [2] OF LONGCARD; 

ARRAY [8] OF CHAR; 
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diskProduct 

ARRAY 

[16] 

OF 

CHAR; 

diskRevision 

ARRAY 

[4] 

OF 

CHAR; 

controllerVendor 

ARRAY 

[8] 

OF 

CHAR; 

controllerProduct 

ARRAY 

[16] 

OF 

CHAR; 

controllerRevision 

ARRAY 

[4] 

OF 

CHAR; 

reservedB 

ARRAY 

[10] 

OF 

LONGCARD; 

reserved512 

ARRAY 

[256] 

OF 

SHORTCARD 


END; 


GROUP 



All 

= 


(*!*) 

LONGSET, 


(*T*) 

BadBlockBlock, 

BadBlockEntry, 


IdField, 

LoadSegBlock, 


PartitionBlock, 

PartitionFlags, 


RigidDiskBlock, 
RigidDiskFlagSet, 

RigidDiskBlock, 

(*C*) 

badBlock, 

fileSysHeader, 


locationLimit, 
rigidDisk; 

nil, 


FileSysHeaderBlock, 
PartitionBlock, 
PartitionFlagSet, 
RigidDiskFlags, 

loadSeg, 

partition. 


END HardBlocks. 
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8.21 Hardware 


DEFINITION MODULE Hardware; 

(* $A- *) 

FROM System IMPORT BITSET,PROC,SHORTSET; 


TYPE 

AdkFIags 

AdkFIagSet 


= (useOvl,uselv2,use2v3,use3vn,use0pl,uselp2,use2p3 jUseSpn, 
fast,msbSync,wordSync,uartBrk,mfmPrec,preCompO, 
preCompl,adkSet); 

= SET OF AdkFIags; 


CONST 

preOOOns 
pre140ns 
pre280ns 
pre560ns 


= AdkFIagSet:{}; 

= AdkFIagSet:{preCompO}; 

= AdkFIagSet:{preCompl}; 

= AdkFIagSet:{preCompO,preCompl}; 


TYPE 

DmaFlags 

DmaFlagSet 


= (audO,audl,aud2,aud3,disk,sprite,blitter,copper, 

raster,master,blithog,df11,df12,bltnzero,bltdone,dmaSet); 
= SET OF DmaFlags; 


CONST 

DmaAll = DmaFlagSet:{audO..raster}; 


TYPE 

IntFlags 


IntFlagSet = 
CONST 

hSizeBits = 
vSizeBits = 
hSizeMask = 
vSizeMask = 
maxBytesPerRow= 


(tbe, dskblk, 

blit, audOi, 

disksync, exter, 
SET OF IntFlags; 


6 ; 

16-hSizeBits; 
7,0000000000111111; 
7,0000001111111111; 
128; 


softint, ports, 
audli, aud2i, 
inten, intSet 


coper, 
audSi, 


vertb, 
rbf, 


TYPE 

BCOFlags 

BCOFlagSet 

BCOFlagSetLow 


(nanbnc,nanbc,nabnc,nabe,anbne,anbe,abne,abc, 
dest,srcC,srcB,srcA,ashl,ash2,ash4,ash8); 

SET OF BCOFlags; 

SET OF [nanbnc..abc]; 


CONST 

aORb 

aORc 

aXORc 

aTOd 


= BCOFlagSet:{nabnc,nabe,anbne,anbe,abne,abc}; 
= BCOFlagSet:{nanbc,nabe,anbne,anbe,abne,abc}; 
= BCOFlagSet:{nabe,abne,nanbc,anbne}; 

= BCOFlagSet:{abc,anbe,abne,anbne}; 
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TYPE 

BClFlags 

= (lineMode,desc,fillCarryln,fillOr,fillXor,ovFlag,signFlag, 
bf7,bf8,bf9,bfl0,bfll,bshl,bsh2,bsh4,bsh8); 

BClFlagSet 

= SET OF BClFlags; 

CONST 

OneDot 

blitReverse 

aul 

sul 

sud 

octantl 

octant2 

octantS 

octant4 

octantB 

octantB 

octant? 

octantS 

= desc; 

= desc; 

= BClFlagSet:{fillCarryln}; 

= BClFlagSet:{fillOr}; 

= BClFlagSet:{fillXor}; 

= sud; 

= BClFlagSet:}}; 

= sul; 

= aul+sud; 

= aul+sul+sud; 

= aul+sul; 

= aul; 

= sul+sud; 

TYPE 

BltNodePtr 

BltNode 

= POINTER TO BltNode; 

= RECORD 

next : BltNodePtr; 

function : PROC; 
stat : SHORTINT; 

blitSize : INTEGER; 
beamSync : INTEGER; 
cleanUp : PROC 

END; 

CONST 

cleanup 

= $40; 

TYPE 

BPOFlags 

= (useBPS,ersy,bplace,Ipen,bp04,bp05,bp06,bp07,gaud, 
color,dbplf,homod,bpuO,bpul,bpu2,bphires); 

BPOFlagSet 

BPlFlags 

BPlFlagSet 

BP2Flags 

= SET OF BPOFlags; 

= (plhO,plhl,plh2,plh3,p2h0,p2hl,p2h2,p2h3,bpl8); 

= SET OF BPlFlags; 

= (pfIpO,pfIpl,pflp2,pf2p0,pf2pl,pf2p2,pf2pri,bp27, 

bp28,bp29,zdCten,zdBPen,zdBPSelO,zdBPSel1,zdBPSel2); 

BP2FlagSet 

BPSFlags 

BPSFlagSet 

= SET OF BP2Flags; 

= (extBlnkEn,extBlkZD,zdClkEn,bp33,brdNTran,brdNBlnk); 

= SET OF BPSFlags; 

BeamOFlags 

= (hSyncTrue,vSyncTrue,CSyncTrue,csBlank, 
varCSync,displayPal,displayDual,varBeam, 
varHSync,varVSync,cscBlankEn,loLDis, 
varVBlank); 

BeamOFlagSet 

= SET OF BeamOFlags; 

CXDFlags 

= (plp2,pls01,pls23,pls45,pls67,p2s01,p2s23,p2s45,p2s67, 
s01s23,s01s45,s01s67,s23s45,s23s67,s45s67); 

CXDFlagSet 

= SET OF CXDFlags; 
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CXCFlags 

CXCFlagSet 


= (mvbpl ,mvbp2 ,invbp3 ,mvbp4 ,mvbp5 ,mvbp6, enbpl, enbp2, 
enbp3,enbp4,enbpB,enbp6,enspl,ensp3,enspB,ensp7); 
= SET OF CXCFlags; 


PotFlags 

PotFlagSet 


= (Start,pf1,pf 2,pf 3,pf 4,pf B,pf 6,pf 7,datalx,outIx, 
dataly,outly,datarx,outrx,datary,outry); 

= SET OF PotFlags; 


SpriteControlFlags = (sho,ev8,sv8,sct3,sct4,sctB,sct6,att); 

SpriteControlFlagSet = SET OF SpriteControlFlags; 

SpriteControlInfo = RECORD 

ev : SHORTCARD; 

flags : SpriteControlFlagSet; 

END; 

Spritelnfo = RECORD 

pos : CARDINAL; 

ctl : SpriteControlInfo; 

data : LONGCARD; 

END; 

Sprites = ARRAY [0..7] OF Spritelnfo; 


SerialFlags = (d8,stop,sf2,rxd,tsre,tbes,rbfs,ovrun); 

SerialFlagSet = SET OF SerialFlags; 

Seriallnfo = RECORD 

flags : SerialFlagSet; 
data : CHAR 
END; 


DiskFlags 

DiskFlagSet 

Diskinfo 


Coord 


CustomPtr 


= (dfO,df1,df2,df3,wordEqual,diskWrite,dma0n,dskByte); 
= SET OF DiskFlags; 

= RECORD 

flags : DiskFlagSet; 
data : SHORTCARD 
END; 

= RECORD 

v,h : SHORTINT 
END; 


= POINTER TO 
RECORD 
bltddat 
dmaconr 
vposr 
dskdatr 
joyOdat, 
joyldat 
clxdat 
adkconr 
potOdat, 
potldat 
potgor 
serdatr 
dskbytr 
intenar, 
intreqr 


BITSET; 
DmaFlagSet; 
LONGCARD; 
CARDINAL; 

Coord; 
CXDFlagSet; 
AdkFlagSet; 

Coord; 
PotFlagSet; 
Seriallnfo; 
Diskinfo; 

IntFlagSet; 
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dskpt 

ANYPTR; 




dsklen 

CARDINAL 




dskdat 

CARDINAL 




refptr 

CARDINAL 




vpos 

LDNGCARD 




copcon 

BDOLEAN; 




serdat 

Serialinfo; 



serper 

CARDINAL; 



potgo 

PotFIagSet; 



joytest 

Coord; 




strequ 

CARDINAL 




strvbl 

CARDINAL 




strhor 

CARDINAL 




strlong 

CARDINAL 




bltconO 

BCOFIagSet; 



bltconl 

BClFIagSet; 



bltafwm, 

bltalwm 

BITSET; 




bltcpt, 
bltbpt, 
bltapt, 
bltdpt 

ANYPTR; 




bltsize 

CARDINAL 




pad2d 

SHORTCARD; 



bltconOl 

BCOFIagSetLow; 


bltsizv, 

bltsizh 

bltcmod, 

bltbmod, 

bltamod. 

CARDINAL 




bltdmod 

CARDINAL; 



unused2 

ARRAY [0 

.3] 

OF 

CARDINAL 

bltcdat, 
bltbdat, 
bltadat 

BITSET; 




unusedS 

ARRAY [0 

.2] 

OF 

CARDINAL 

deniseid 

CARDINAL 




dsksync 

BITSET; 




copllc, 
cop21c 

ANYPTR; 




copjmpl, 

copjmp2 

INTEGER; 




copins 

CARDINAL; 



diwstrt, 
diwstop, 
ddfstrt, 
ddfstop 

Coord; 




dmacon 

DmaFIagSet; 



clxcon 

CXCFIagSet; 



intena, 





intreq 

IntFIagSet; 



adkcon 

AdkFIagSet; 



aud 

ARRAY [0 

.3] 

OF 



RECORD 





audic 

: ANYPTR; 
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bplpt 

bplconO 

bplconl 

bplcon2 

bplconS 

bpllmod, 

bpl2mod 

unusedB 

bpldat 

sprpt 

spr 

colors 

htotal 

hsstop 

hbstrt 

hbstop 

vtotal 

vsstop 

vbstrt 

vbstop 

sprhstrt 

sprhstop 

bplhstrt 

bplhstop 

hhposw 

hhposr 

beamconO 

hsstrt 

vsstrt 

hcenter 

diwhigh 

END; 


audlen 

audper 

audvol 

auddat 

unused 

END; 

ARRAY [0..7] 

BPOFlagSet; 

BPlFlagSet; 

BP2FlagSet; 

BPSFlagSet; 


CARDINAL; 

CARDINAL; 

CARDINAL; 

INTEGER; 

LONGINT 

OF ANYPTR; 


CARDINAL; 

LONGINT; 

ARRAY [0..7] OF CARDINAL; 
ARRAY [0..7] OF ANYPTR; 
Sprites; 

ARRAY [0..31] OF CARDINAL; 
CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

BeamOFIagSet; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 


CONST 

Custom 

TYPE 

CialcrFIags 

CialcrFIagSet 

CONST 

ir 


CustomPtr($DFF000) ; 

(ta,tb,alrm,so,flg,if5,if6,setCIr); 
SET OF CialcrFIags; 

setCIr; 


TYPE 

CiaCraFIags 

CiaCraFIagSet 


(craStart,craPbon,craOutmode,craRunmode,craLoad, 
cralnmode,craSpmode,craTodin); 

SET OF CiaCraFIags; 
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CiaCrbFlags = 
CiaCrbFlagSet = 


(crbStart,crbPbon,crbOutmode,crbRunmode,crbLoad, 
crblnmodeO,crblnmodel,crbAlarm); 

SET OF CiaCrbFlags; 


CiaaPraFlags = 

CiaaPraFlagSet= 
CiaaPrbFlags = 
CiaaPrbFlagSet= 


(overlay,ledjdskChange,dskPrt,dskTrackO,dskRdy, 
gamePortO,gamePortl); 

SET OF CiaaPraFlags; 

[0..7]; 

SET OF CiaaPrbFlags; 


CiabPraFlags = 

CiabPraFlagSet= 
CiabPrbFlags = 

CiabPrbFlagSet= 


(prtrBusy,prtrPOut,prtrSel,comDSR,comCTS,comCD,comRTS, 
comDTR); 

SET OF CiabPraFlags; 

(dskStep,dskDirec,dskSide,dskSelO,dskSel1,dskSel2, 
dskSelSjdskMotor); 

SET OF CiabPrbFlags; 


Pad 


= ARRAY [2..255] OF SHORTINT; 


CIAAPtr 


= POINTER TO 
RECORD 
pra 
prb 
ddra 
ddrb 
talo 
tahi 
tblo 
tbhi 
todlo 
todmid 
todhi 
unused 
sdr 
icr 
cra 
erb 
END; 


CiaaPraFlagSet; 
CiaaPrbFlagSet; 
CiaaPraFlagSet; 
CiaaPrbFlagSet; 
SHORTCARD; 
SHORTCARD; 
SHORTCARD; 
SHORTCARD; 
SHORTCARD; 
SHORTCARD; 
SHORTCARD; 
SHORTCARD; 
SHORTSET; 
CialcrFlagSet; 
CiaCraFlagSet; 
CiaCrbFlagSet; 


padO : Pad; 
padl : Pad; 
pad2 : Pad; 
padS : Pad; 
pad4 : Pad; 
pad5 : Pad; 
pad6 : Pad; 
pad7 : Pad; 
padS : Pad; 
pad9 : Pad; 
padlO : Pad; 
padll : Pad; 
padl2 : Pad; 
padlS : Pad; 
padl4 : Pad; 
padl5 : Pad; 
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CIABPtr = POINTER TO 

RECORD 

pra 

prb 

ddra 

ddrb 

talo 

tahi 

tblo 

tbhi 

todlo 

todmid 

todhi 

unused 

sdr 

icr 

cra 

erb 

END; 


CiabPraFlagSet; 

padO 

Pad 

CiabPrbFlagSet; 

padl 

Pad 

CiabPraFlagSet; 

pad2 

Pad 

CiabPrbFlagSet; 

pad3 

Pad 

SHORTCARD; 

pad4 

Pad 

SHORTCARD; 

pad5 

Pad 

SHORTCARD; 

pad6 

Pad 

SHORTCARD; 

pad7 

Pad 

SHORTCARD; 

padS 

Pad 

SHORTCARD; 

pad9 

Pad 

SHORTCARD; 

padlO 

Pad 

SHORTCARD; 

padll 

Pad 

SHORTSET; 

padl 2 

Pad 

CialcrFlagSet; 

padl 3 

Pad 

CiaCraFlagSet; 

padl4 

Pad 

CiaCrbFlagSet; 

padl 5 

Pad 


CONST 

CIAA = CIAAPtr($BFE001); 

CIAB = CIABPtr($BFD000); 

END Hardware. 
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8.22 Icon 


DEFINITION MODULE Icon; 

(* $A- *) 

FROM Exec IMPORT LibraryPtr; 

FROM Workbench IMPORT FreeListPtr,DiskObiectPtr,ToolTypeArrayPtr, 

WBObjectType; 

FROM System IMPORT SysStringPtr,Regs; 

VAR 

IconBase : LibraryPtr; 

I-Funktions for Icons- 

LIBRARY IconBase BY -42 


PROCEDURE 

GetIcon(VAR Name 

IN 

AO 

: STRING; 


icon 

IN 

Al 

: DiskObjectPtr; 

f 

LIBRARY IconBase BY -48 

IN 

A2 

: FreeListPtr):LONGINT; 

PROCEDURE 

PutIcon(VAR Name 

IN 

AO 

: STRING; 


Obj 

IN 

Al 

: DiskObjectPtr)iBOOLEAN; 


GROUP 

IconGrp = Geticon,DiskObjectPtr,FreeListPtr,Puticon; 

I-Funktions for Disks-Objects- 

LIBRARY IconBase BY -78 

PROCEDURE GetDiskObject(REF Name IN AO : STRING):DiskObjectPtr; 
LIBRARY IconBase BY -84 

PROCEDURE PutDiskObjectCVAR Name IN AO : STRING; 

Obj IN Al : DiskObjectPtr):B00LEAN; 


LIBRARY IconBase BY -90 

PROCEDURE FreeDiskObject(Obj IN AO : DiskObjectPtr); 

LIBRARY IconBase BY -120 

PROCEDURE GetDefDiskObject(type IN DO : WBObjectType):DiskObjectPtr; 
LIBRARY IconBase BY -126 

PROCEDURE PutDefDiskObject(obj IN AO : DiskObjectPtr); 

LIBRARY IconBase BY -132 

PROCEDURE GetDiskObjectNew(REF name IN AO : STRING):DiskObjectPtr; 
LIBRARY IconBase BY -138 

PROCEDURE DeleteDiskObject(REF name IN AO : STRING)rBOOLEAN; 
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GROUP 

DiskObjectGrp = GetDiskObject,DiskObjectPtr,PutDiskObject, 

FreeDiskObj ect,GetDefDiskObj ect,PutDefDiskObj ect, 
GetDiskObj ectNew,DeleteDiskObj ect; 

I-Funktions for FreeLists- 

LIBRARY IconBase BY -72 

PROCEDURE AddFreeList(Free IN AO : FreeListPtr; 

mem IN Al : ANYPTR; 

len IN A2 : LONGINT):B00LEAN; 


LIBRARY IconBase BY -54 

PROCEDURE FreeFreeList(Free IN AO : FreeListPtr); 


GROUP 

FreeListGrp = AddFreeList,FreeFreeList.FreeListPtr; 


Help-Funktions 


LIBRARY IconBase BY -108 

PROCEDURE BumpRevision(New IN AO 

Old IN Al 


ANYPTR; 
ANYPTR); 


LIBRARY IconBase BY -96 

PROCEDURE FindToolType(ToolTypes 

TypeName 


IN AO : ToolTypeArrayPtr; 

IN Al : SysStringPtr):SysStringPtr; 


LIBRARY IconBase BY -102 

PROCEDURE MatchToolValue(TypeString IN AO : SysStringPtr; 

Val IN Al : SysStringPtr):B00LEAN; 


GROUP 

ToolTypeGrp = BumpRevision,FindToolType,MatchToolValue,SysStringPtr; 
All = IconGrp,DiskObjectGrp,FreeListGrp,ToolTypeGrp,IconBase; 

END Icon. 
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8.23 IFFParse 


(* $A- *) 

DEFINITION MODULE IFFParse; 

FROM Exec IMPORT MinNode,LibraryPtr,MsgPort; 

FROM System IMPORT Regs,SysStringPtr; 

FROM Utility IMPORT HookPtr; 

FROM Clipboard IMPORT lOClipboardPtr; 

TYPE 

I 

I IFF return codes. Most functions return either zero for success or 
I one of these codes. The exceptions are the read/write functions which 
I return positive values for number of bytes or records read or written 
I or a negative error code. Some of these codes are not errors per sae, 

I but valid conditions such as EOF or EOC (End of Chunk). 


IFFErr = (normalReturn = -12, noHook, notlFF, syntax, mangled, seek, 
write,read, noMem, noScope, eoc, eof, ok); 


I eof 

I eoc 

I noScope 

I noMem 

I read 

I write 

I seek 

I mangled 

I syntax 

1 notlFF 

I noHook 

I normalReturn 


Reached logical end of file 

About to leave context 

No valid scope for property 

Internal memory alloc failed 

Stream read error 

Stream write error 

Stream seek error 

Data in file is corrupt 

IFF syntax error 

Not an IFF file 

No call-back hook provided 

Client handler normal return 


I Universal IFF identifiers. 
CONST 


IDFORM 

= $464F524D; 

1 "FORM 

IDLIST 

= $4C495354; 

1 "LIST 

IDCAT 

= $43415420; 

1 "CAT 

IDPROP 

= $50524F50; 

1 "PROP 

IDNULL 

= $20202020; 

1 "NULL 


I Ident Codes for universally recognized local context items. 


IFFLCIPROP 

= $70726F70; 

1 "prop" 

IFFLCICOLLECTION 

= $636F6C6C; 

1 "coli" 

IFFLCIENTRYHANDLER 

= $656E6864; 

1 "enhd" 

IFFLCIEXITHANDLER 

= $65786864; 

1 "exhd" 
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TYPE 

I 

I Control modes for ParselFFO function. 

ParselFFMode = (scan, Step, rawStep, dummy = 31); 

I 

I Control modes for StoreLocalltemO . 

StoreLocalltemMode = (root = 1, top, prop, dummy = 31); 


I "Flag" for writing functions. If you pass this value in as a size 
I to PushChunkO when writing a file, the parser will figure out the 
I size of the chunk for you. (Chunk sizes >= 2**31 are forbidden by the 
I IFF specification, so this works.) 

CONST IFFSizeUnknown = -1; 


TYPE 

I 

I Possible call-back command values. (Using 0 as the value for 1FFCMD_INIT 
I was, in retrospect, probably a bad idea.) 

IFFCmd = (init, cleanup, read, write, seek, entry, exit, purgeLCI); 


init 

cleanup 

read 

write 

seek 

entry 

exit 

purgeLCI 


Prepare the stream for a session 
Terminate stream session 
Read bytes from stream 
Write bytes to stream 
Seek on stream 

You just entered a new context 
You’re about to leave a context 
Purge a LocalContextItem 


I Struct associated with an active IFF stream. 

I "iff_Stream" is a value used by the dient’s read/write/seek functions 
I it will not be accessed by the library itself and can have any value 
I (could even be a pointer or a BPTR). 


I Bit masks for "iff_Flags" field. 


IFFFlags = (read, write, fseek, rseek, 

reservedl = 16,reservedl6 = 31); 
IFFFlagSet = SET OF IFFFlags; 


IFFHandlePtr 

IFFHandle 


= POINTER TO IFFHandle; 

= RECORD 

stream : ANYPTR; 

flags : IFFFlagSet; 

depth : LONGINT; 

END; 


Depth of context stack. 
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I When the library calls your stream handler, you’ll be passed a pointer 
I to this structure as the "message packet". 

IFFStreamCmdPtr = POINTER TO IFFStreamCmd; 

IFFStreamCmd = RECORD 

command : IFFCmd; | Operation to be performed 

buf : ANYPTR; 1 Pointer to data buffer 

nBytes : LONGINT; 1 Number of bytes to be affected 

END; 


A node associated with a context on the iff_Stack. Each node 
represents a chunk, the stack representing the current nesting 
of chunks in the open IFF file. Each context node has associated 
local context items in the (private) Localltems list. The ID, type, 
size and scan values describe the chunk associated with this node. 


ContextNodePtr= POINTER TO ContextNode; 
ContextNode = RECORD 


node 

: MinNode; 




iD 

: LONGINT; 




type 

: LONGINT; 




size 

: LONGINT; 

Size 

of this 

chunk 

Scan 

: LONGINT; 

# of 

bytes re 

ad/written 


I Local context items live in the ContextNode’s. Each dass is identified 
I by its lci_Ident code and has a (private) purge vector for when the 
I parent context node is popped. 


LocalContextItemPtr = POINTER TO LocalContextItem; 
LocalContextItem = RECORD 

node : MinNode; 

iD, 

type, 

ident : LONGCARD; 

END; 


I StoredProperty: a local context item containing the data stored 
I from a previously encountered property chunk. 

StoredPropertyPtr = POINTER TO StoredProperty; 

StoredProperty = RECORD 

size : LONGINT; 

data : ANYPTR; 

END; 
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I Collection Item: the actual node in the collection list at which 
I dient will look. The next pointers cross context boundaries so 
I that the complete list is accessable. 

CollectionItemPtr = POINTER TO Collectionitem; 

Collectionitem = RECORD 

next : CollectionItemPtr; 

size : LONGINT; 

data : ANYPTR; 

END; 


I Structure returned by OpenClipboardO . You may do CMD_P0STs and such 
I using this structure. However, once you call OpenIFFO, you may not 
I do any more of your own I/O to the clipboard until you call CloselFFO. 

ClipboardHandlePtr = POINTER TO ClipboardHandle; 

ClipboardHandle = RECORD 

req : lOClipboardPtr; 

cBPort : MsgPort; 

satisfyPort : MsgPort; 

END; 

VAR 

IFFParseBase : LibraryPtr; 


LIBRARY IFFParseBase BY -30 

PROCEDURE AllocIFFO : IFFHandlePtr; 

LIBRARY IFFParseBase BY -36 

PROCEDURE OpenIFFCiff IN AO: IFFHandlePtr; 

rwMode IN DO: IFFFlagSet): IFFErr; 

LIBRARY IFFParseBase BY -42 

PROCEDURE ParselFFCiff IN AO: IFFHandlePtr; 

control IN DO: ParselFFMode): IFFErr; 

LIBRARY IFFParseBase BY -48 

PROCEDURE CloselFFCiff IN AO: IFFHandlePtr); 

LIBRARY IFFParseBase BY -54 

PROCEDURE FreelFFCiff IN AO: IFFHandlePtr); 

LIBRARY IFFParseBase BY -60 

PROCEDURE ReadChunkBytesCiff IN AO: IFFHandlePtr; 

buf IN Al: ANYPTR; 

size IN DO: LONGINT): LONGINT; 

LIBRARY IFFParseBase BY -66 

PROCEDURE WriteChunkBytesCiff IN AO: IFFHandlePtr; 

buf IN Al: ANYPTR; 

size IN DO: LONGINT): IFFErr; 
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LIBRARY IFFParseBase BY -72 

PROCEDURE ReadChunkRecordsCiff IN AO: IFFHandlePtr; 

buf IN Al: ANYPTR; 

bytesPerRecord IN DO: LONGINT; 

nRecords IN Dl: LONGINT): LONGINT; 


LIBRARY IFFParseBase BY -78 

PROCEDURE WriteChunkRecordsCiff IN AO: 

buf IN Al: 

bytesPerRecord IN DO: 

nRecords IN Dl: 


IFFHandlePtr; 
ANYPTR; 

LONGINT; 

LONGINT): IFFErr; 


LIBRARY IFFParseBase BY -84 

PROCEDURE PushChunkCiff IN AO: 

type IN DO: 
id IN Dl: 
size IN D2: 


IFFHandlePtr; 
LONGINT; 

LONGINT; 

LONGINT): IFFErr; 


LIBRARY IFFParseBase BY -90 

PROCEDURE PopChunkCiff IN AO: IFFHandlePtr): IFFErr; 


LIBRARY IFFParseBase BY -102 


(iff 

IN 

AO 

IFFHandlePtr; 

type 

IN 

DO 

LONGINT; 

id 

IN 

Dl 

LONGINT; 

Position 

IN 

D2 

LONGINT; 

handler 

IN 

Al 

HookPtr; 

Object 

IN 

A2 

ANYPTR): IFFErr; 

-108 

iff IN AO: 

IFFHandlePtr; 

type 

IN 

DO 

LONGINT; 

id 

IN 

Dl 

LONGINT; 

Position 

IN 

D2 

LONGINT; 

handler 

IN 

Al 

HookPtr; 

Object 

IN 

A2 

ANYPTR): IFFErr; 


LIBRARY IFFParseBase BY -114 
PROCEDURE PropChunkCiff IN AO: 

type IN DO: 
id IN Dl: 


IFFHandlePtr; 
LONGINT; 

LONGINT): IFFErr; 


LIBRARY IFFParseBase BY -120 

PROCEDURE PropChunksC iff IN AO: 

VAR propArray IN Al: 
nProps IN DO: 


IFFHandlePtr; 
ARRAY OF LONGINT; 
LONGINT): IFFErr; 


LIBRARY IFFParseBase BY -126 

PROCEDURE StopChunkCiff IN AO: IFFHandlePtr; 

type IN DO: LONGINT; 

id IN Dl: LONGINT): IFFErr; 
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LIBRARY IFFParseBase BY -132 

PROCEDURE StopChunksC iff IN AO: 

VAR propArray IN Al: 
nProps IN DO: 


IFFHandlePtr; 
ARRAY OF LONGINT; 
LDNGINT): IFFErr; 


LIBRARY IFFParseBase BY -138 

PROCEDURE CollectionChunkCiff IN AO: 

type IN DO: 


id IN Dl: 


IFFHandlePtr; 
LONGINT; 

LONGINT): IFFErr; 


LIBRARY IFFParseBase BY -144 

PROCEDURE CollectionChunksC iff IN AO: 

VAR propArray IN Al: 
nProps IN DO: 


IFFHandlePtr; 
ARRAY OF LONGINT; 
LONGINT): IFFErr; 


LIBRARY IFFParseBase BY -150 

PROCEDURE StopOnExitCiff IN AO: IFFHandlePtr; 

type IN DO: LONGINT; 

id IN Dl: LONGINT): IFFErr; 


LIBRARY IFFParseBase BY -156 

PROCEDURE FindPropCiff IN AO: IFFHandlePtr; 

type IN DO: LONGINT; 

id IN Dl: LONGINT): StoredPropertyPtr; 


LIBRARY IFFParseBase BY -162 

PROCEDURE FindCollectionCiff IN AO: 

type IN DO: 


id IN Dl: 


IFFHandlePtr; 

LONGINT; 

LONGINT): CollectionItemPtr; 


LIBRARY IFFParseBase BY -168 

PROCEDURE FindPropContext(iff IN AO: IFFHandlePtr): ContextNodePtr; 


LIBRARY IFFParseBase BY -174 

PROCEDURE CurrentChunk(iff IN AO: IFFHandlePtr): ContextNodePtr; 

LIBRARY IFFParseBase BY -180 

PROCEDURE ParentChunk(contextNode IN AO: ContextNodePtr): ContextNodePtr; 

LIBRARY IFFParseBase BY -186 

PROCEDURE AllocLocalItem(type IN DO: 

id IN Dl: 

ident IN D2: 


dataSize IN D3: 


LONGINT 

LONGINT 

LONGINT 

LONGINT) 


LocalContextItemPtr; 


LIBRARY IFFParseBase BY -192 

PROCEDURE LocalltemDatadocalltem IN AO: LocalContextItemPtr): ANYPTR; 
LIBRARY IFFParseBase BY -198 

PROCEDURE SetLocalltemPurge(localltem IN AO: LocalContextItemPtr; 

purgeHook IN Al: HookPtr); 

LIBRARY IFFParseBase BY -204 

PROCEDURE FreeLocalltemdocalltem IN AO: LocalContextItemPtr); 
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LIBRARY IFFParseBase BY -210 

PROCEDURE FindLocalltemCiff IN AO: 

type IN DO: 
id IN Dl: 
ident IN D2: 


IFFHandlePtr; 

LONGINT; 

LONGINT; 

LONGINT): LocalContextItemPtr; 


LIBRARY IFFParseBase BY -216 

PROCEDURE StoreLocalltemCiff IN AO: IFFHandlePtr; 

localltem IN Al: LocalContextItemPtr; 

Position IN DO: StoreLocalltemMode): IFFErr; 


LIBRARY IFFParseBase BY -222 

PROCEDURE StoreltemInContext(iff IN AO: IFFHandlePtr; 

localltem IN Al: LocalContextItemPtr; 
contextNode IN A2: ContextNodePtr); 

LIBRARY IFFParseBase BY -228 

PROCEDURE InitlFFCiff IN AO: IFFHandlePtr; 

flags IN DO: LONGINT; 

streamHook IN Al: HookPtr); 


LIBRARY IFFParseBase BY -234 

PROCEDURE InitlFFasDOSCiff IN AO: IFFHandlePtr); 


LIBRARY IFFParseBase BY -240 

PROCEDURE InitlFFasClipCiff IN AO: IFFHandlePtr); 

LIBRARY IFFParseBase BY -246 

PROCEDURE OpenClipboard(unitNum IN DO: LONGINT): ClipboardHandlePtr; 
LIBRARY IFFParseBase BY -252 

PROCEDURE CloseClipboard(clipboard IN AO: ClipboardHandlePtr); 

LIBRARY IFFParseBase BY -258 

PROCEDURE GoodlDCid IN DO: LONGINT): LONGINT; 

LIBRARY IFFParseBase BY -264 

PROCEDURE GoodTypeCtype IN DO: LONGINT): LONGINT; 

LIBRARY IFFParseBase BY -270 

PROCEDURE IDtoStrC id IN DO: LONGINT; 

VAR buf IN AO: STRING): SysStringPtr; 


END IFFParse. 
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8.24 Input 


DEFINITION MODULE Input; 
(* $A- *) 


FROM Resources IMPORT ContextPtr; 

FROM Timer IMPORT TimeVal; 

FROM T_Exec IMPORT nonstdVAL,lOCommand,lOStdReq; 


TYPE 

lOInputPtr = POINTER TO lOInput; 

lOInput = RECORD OF lOStdReq END; 

ScreenPtr = DEFERRED POINTER Intuition.ScreenPtr; 


Class 


(null, 
event, 
timer, 
requester, 
sizewindow, 
diskremoved, 
inactivewindow, 
Changewindow ); 


rawkey, 
pointerpos, 
gadgetdown, 
menulist, 
refreshwindow, 
diskinserted, 
newpointerpos, 


rawmouse, 
cl5, 

gadgetup, 
closewindow, 
newprefs, 
activewindow, 
menuhelp, 


CONST 

classMax = CARDINAL( Class’MAX ); 


TYPE 

SubClass 


(compatible, pixel, 


Coord = RECORD 

X, y : INTEGER; 
END; 


I pointed to by InputEvent.eventAddress. 

I the key is in InputEvent.subClass. 
lEObjectPtr = POINTER TO lEObject; 
lEObject = RECORD 

IF KEY : SubClass 
OF Pixel THEN 

screen : ScreenPtr; 
Position : Coord; 

OF tablet THEN 


ränge, 

value : Coord; 

pressure : INTEGER; 
END 
END; 


tablet ); 
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CONST 


I rawkey 


commCodeFirst 

= 

$78; 


commCodeLast 

= 

$7F; 


keyCodeFirst 

= 

$00; 


keyCodeLast 

= 

$77; 


upPrefix 

= 

$80; 


1 ansi 

ascüDel 

= 

$7F; 


ascüFirst 

= 

$A0; 


ascüLast 

= 

$7E; 


cOFirst 

= 

$00; 


cOLast 

= 

$1F; 


clFirst 

= 

$80; 


clLast 

= 

$9F; 


latinlFirst 

= 

$A0; 


latinlLast 

= 

$FF; 


1 rawmouse 

IButton 

= 

$68; 


mButton 

= 

$6A; 


noButton 

= 

$FF; 


rButton 

= 

$69; 


1 event 

newActive 

= 

$01; 


newSize 

= 

$02; 


refresh 

= 

$03; 


1 requester 

reqClear 

= 

$00; 


reqSet 

= 

$01; 


TYPE 

Qualifiers 

= 

(IShift, 

rShift, 

QualifierSet 


control, 

ICommand, 
repeat, 
midButton, 
relativeMouse ); 

SET OF Qualifiers; 

lAlt, 
rCommand, 
interrupt, 
rightButton 

KeyQualSet 

= 

SET OF [IShift..rCommand]; 


capsLock, 
rAlt, 

numericPad, 
multiBroadcast, 
leftButton, 
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InputEventPtr = POINTER TO InputEvent; 

InputEvent = RECORD 

nextEvent : InputEventPtr; 
dass : Class; 

subClass : SubClass; 

Code : CARDINAL; 

qualifier : QualifierSet; 

IF KEY : Class 

OF newpointerpos THEN event : lEObjectPtr; 

OF rawkey THEN prevlDownCode : SHORTCARD; 

prevlDownQual : KeyQualSet; 

prev2DownCode : SHORTCARD; 

prev2DownQual : KeyQualSet; 

OF pointerpos THEN x,y : INTEGER 

END; 

timeStamp : TimeVal; 

END; 


CONST 

addHandler 

remHandler 

writeEvent 

setTresh 

setPeriod 

setMPort 

setMType 

setMTrig 


= lOCommandC 
= lOCommandC 
= lOCommandC 
= lOCommandC 
= lOCommandC 
= lOCommandC 
= lOCommandC 
= lOCommandC 


nonstdVAL + 0 ) 
nonstdVAL + 1 ) 
nonstdVAL + 2 ) 
nonstdVAL + 3 ) 
nonstdVAL + 4 ) 
nonstdVAL + 5 ) 
nonstdVAL + 6 ) 
nonstdVAL + 7 ) 


PROCEDURE OpenlnputC context : ContextPtr:=NIL ): lOInputPtr; 
PROCEDURE CloselnputC VAR request : lOInputPtr ); 


GROUP 


EventGrp 

= Class, 

Qualifiers, 
lEObjectPtr, 

classMax, 

QualifierSet, 
InputEventPtr, 

SubClass, 
lEObject, 
InputEvent; 

CommandGrp 

= addHandler, 
setTresh, 
setMType, 

remHandler, 

setPeriod, 

setMTrig; 

writeEvent, 
setMPort, 

FuncGrp 

= lOInputPtr, 

Openlnput, 

Closelnput; 

All 

= CommandGrp, 
EventGrp; 

FuncGrp, 

T_Exec.ExecIOGrp, 


END Input. 
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8.25 Intuition 


DEFINITION MODULE Intuition; 
(* $A- *) 


FROM Exec 

IMPORT Interrupt, 

List, 

Message, 

Node, 

TaskSignals; 

lOStdReq, 

ListPtr, 

MinNode, 

SignalSemaphore, 

Library, 
MemReqSet, 
MsgPortPtr, 
TaskPtr, 

FROM Graphics 

IMPORT BitMap, 

DisplayinfoPtr, 
DrawModeSet, 
Layerinfo, 
RastPortPtr, 
RegionRectanglePtr, 
TextAttrPtr, 

View, 

ViewPort, 

BitMapPtr, 
PenArrayPtr, 

GfxBasePtr, 
LayerPtr, 
RectanglePtr, 
SimpleSpritePtr, 
TextFontPtr, 
ViewModeSet, 
ViewPortPtr, 

ClipRect, 

jam2, 
RastPort, 
RegionPtr, 
TextAttr, 
TmpRas, 
ViewModes, 
ViewPtr; 

FROM Timer 

IMPORT lOTimer, 

TimeVal; 


FROM System 

IMPORT BITSET, 

Regs, 

LONGSET, 
SysStringPtr; 

PROC, 

FROM Input 

IMPORT InputEvent, 

IButton, 

rButton, 

InputEventPtr, 
Qualifiers, 
upPrefix; 

QualifierSet 

FROM Resources 

IMPORT ResHandles; 



FROM Utility 

IMPORT Hook, 

tagUser, 

HookPtr, 
TagArrayPtr; 

StdTags, 

CONST 

wTB 

sTB 

= tagUser + 99; 

= tagUser + 32; 

1 $80000063 WindowTags base 

1 $80000020 ScreenTags base 


TYPE 


BorderPtr 

= 

POINTER 

TO 

Border; 

GadgetPtr 

= 

POINTER 

TO 

Gadget; 

IBoxPtr 

= 

POINTER 

TO 

IBox; 

ImagePtr 

= 

POINTER 

TO 

Image; 

IntuiMessagePtr 

= 

POINTER 

TO 

IntuiMessage; 

IntuiTextPtr 

= 

POINTER 

TO 

IntuiText; 

MenuItemPtr 

= 

POINTER 

TO 

Menuitem; 

PreferencesPtr 

= 

POINTER 

TO 

Preferences; 

PropinfoPtr 

= 

POINTER 

TO 

Propinfo; 

RememberPtr 

= 

POINTER 

TO 

Remember; 

RequesterPtr 

= 

POINTER 

TO 

Requester; 

ScreenPtr 

= 

POINTER 

TO 

Screen; 

StringinfoPtr 

= 

POINTER 

TO 

Stringinfo; 

UindowPtr 

= 

POINTER 

TO 

Window; 
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DEFINITION MODULE WinRes = Resources.ResHandles(WindowPtr); 
DEFINITION MODULE ScreenRes = Resources.ResHandles(ScreenPtr); 


TYPE 

MenuFlags = ( menuEnabled, 

miDrawn = 8); 
MenuFlagSet = SET OF MenuFlags; 


r/w this menu is enabled 
r/o items are being drawn 


MenuPtr 

Menu 


POINTER TO Menu; 
RECORD 


nextMenu 
leftEdge 
topEdge 
width 
height 
f lags 
menuName 
firstitem 
jazzx 
jazzy 
beatx 
beaty 
END; 


MenuPtr; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

MenuFlagSet; 

SysStringPtr; 

MenuItemPtr; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 


MenuItemFlags = ( 

checkit, 

itemText, 

commSeq, 

menuToggle, 

itemEnabled, 

mif 5, 

highComp, 

highBox, 

checked, 

mif 9, 

mif10, 

mif11, 

isDrawn, 

highltem, 

menuToggled ); 


checkmarkable item 

textual item, FALSE if graphical item 
command sequence 

toggling checks (eise mut. exclude) 
this item is enabled 

highlight by complementing the selectbox 
highlight by "boxing" the selectbox 
state of the checkmark 


this item’s subs are currently drawn 
this item is currently highlighted 
this item was already toggled 


MenuItemFlagSet 


SET OF MenuItemFlags; 


CONST 

highNone 

checkWidth 

commUidth 

lowCheckWidth 

lowCommWidth 


= MenuItemFlagSet:{highBox,highComp}; 
= 19; 

= 27; 

= 13; 

= 16; 
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TYPE 


Menultem = RECORD 

nextitem 
leftEdge 
topEdge 
width 
height 
f lags 

mutualExclude 

itemFill 

selectFill 

command 

subltem 

nextSelect 

END; 


MenuItemPtr; 
INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

MenuItemFIagSet; 
LONGSET; 

ANYPTR; 

ANYPTR; 

CHAR; 

MenuItemPtr; 
CARDINAL; 


RequesterFlags = ( 

pointRel, 


preDrawn, 
noisReg, 
rf 3, 

simpleReq, 
userEqlmage, 


noReqBackFill, 

rf7, 

rfS, 

rf9, 

rflO, 

rfll. 


reqOffWindow, 
reqActive, 
sysRequest, 
deferRefresh ); 


TopLeft is relative to pointer for 
DMRequester, relative to window 
Center for Request() 

imageBMap -> predrawn Requester imagery 
requester does not filter input 

to use SIMPLEREFRESH layer (recommended) 
render-order BackFill, image, gadgets, 
text don’t fill requester with 
backFill pen 


r/o part of the Gadgets was offwindow 
r/o this requester is active 
(unused) this requester caused by System 
this Requester stops a Refresh broadcast 


RequesterFlagSet= SET OF RequesterFlags; 


Requester= RECORD 


olderRequest 

RequesterPtr; 

leftEdge 

INTEGER; 

topEdge 

INTEGER; 

width 

INTEGER; 

height 

INTEGER; 

relLeft 

INTEGER; 

relTop 

INTEGER; 

gadgets 

GadgetPtr; 

border 

BorderPtr; 

text 

IntuiTextPtr; 

f lags 

RequesterFlagSet; 

backFill 

SHORTCARD; 

layer 

LayerPtr; 


background pen 
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padl 

imageBMap 

rWindow 

image 

reqPad2 

END; 


ARRAY [0..31] OF SHORTINT; 

BitMapPtr; | if predrawn 

WindowPtr; | our owner 

ImagePtr; | if userEqlmage 

ARRAY [0..31] GF SHORTINT; 


GadgetFlags = (gadgHBox,gadgHImage,gadglmage,gRelBottoin,gRelRight, 

gRelWidth,gRelHeight,selected,gadgDisabled, 
tabCycle,stringExtend,ggf11,labelString,labellmage) 

GadgetFlagSet = SET OF GadgetFlags; 

ActivationFlags = (relVerify.gadglmmediate,endGadget,followMouse, 

rightBorder,leftBorger,topBorder,bottomBorder, 
toggleSelect,stringCenter,stringRight,longint, 
altKeyMap,extended,activeGadget,bordersniff); 

ActivationFlagSet = SET OF ActivationFlags; 


CONST 

gadgHighbits 

gadgHNone 

gadgHComp 

labellText 

labelMask 

stringLeft 


GadgetFlagSet:{gadgHBox,gadgHImage}; 
GadgetFlagSet:{gadgHBox,gadgHImage}; 
GadgetFlagSet:{}; 

GadgetFlagSet:{}; 

GadgetFlagSet:{labelString,labellmage}; 
ActivationFlagSet:{}; 


TYPE 

GadgetTypeBits = (gtbO,gtbl,gtb2,gtb3, 

gtb4,gtb5,gtb6,gtb7, 
gtbS,gtb9,gbtA,gtbB, 

reqGadget,gzzGadget,scrGadget,sysGadget); 
GadgetType = SET OF GadgetTypeBits; 


CONST 

boolGadget 

propGadget 

strGadget 

customGadget 


= GadgetType:{gtbO} ; 

= GadgetType:{gtbO,gtbl}; 
= GadgetType:{gtb2}; 

= GadgetType:{gtbO,gtb2}; 


wSizing 

wDragging 

sDragging 

wUpFront 

sUpFront 

wDownBack 

sDownBack 

wClose 


= GadgetType:{gtb4}; 

= GadgetType:{gtb5}; 

= GadgetType:{gtb4,gtbS}; 

= GadgetType:{gtb6}; 

= GadgetType:{gtb4,gtb6}; 

= GadgetType:{gtb5,gtb6}; 

= GadgetType:{gtb4,gtb5,gtb6}; 
= GadgetType:{gtb7}; 


TYPE 

GadglnfoPtr = POINTER TO Gadglnfo; 
Gadglnfo = RECORD END; 
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Gadget = RECORD 


nextGadget 

GadgetPtr; 

leftEdge 

INTEGER; 

topEdge 

INTEGER; 

width 

INTEGER; 

height 

INTEGER; 

flags 

GadgetFlagSet; 

activation 

ActivationFlagSet; 

gadgetType 

GadgetType; 

gadgetRender 

ANYPTR; 

selectRender 

ANYPTR; 

gadgetText 

IntuiTextPtr; 

mutualExclude 

LONGSET; 

specialinfo 

GadginfoPtr; 

gadgetID 

INTEGER; 

userData 

ANYPTR; 


END; 


CONST 

boolMask = 1; 

TYPE 

Boollnfo = RECORD OF Gadglnfo 

flags : BITSET; 

mask : ANYPTR; 

reserved : LONGCARD; 

END; 

PropinfoFlags = (autoKnob,freeHoriz,freeVert,propBorderless, 

propNewLook,pf 5,pf 6,pf7,knobHit); 

PropinfoFlagSet = SET OF PropinfoFlags; 

CONST 

knobVmin 
knobHmin 
maxBody 
maxPot 

TYPE 

Propinfo 


4; 

6 ; 

$FFFF; 
$FFFF; 


= RECORD OF Gadglnfo 


flags 
horizPot 
vertPot 
horizBody 
vertBody 
cWidth 
cHeight 
hPotRes 
vPotRes 
leftBorder 
topBorder 
END; 


PropinfoFlagSet; 
CARDINAL; 
CARDINAL 
CARDINAL 
CARDINAL 
CARDINAL 
CARDINAL 
CARDINAL 
CARDINAL 
CARDINAL 
CARDINAL 
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StringExtFlags = (replace,fixedField,noFilter,noChange, 

noWorkBuffer,control,longint,exitHelp, 
makeMeLong = 31); 

StringExtFlagSet = SET OF StringExtFlags; 


StringExtendPtr 

StringExtend 


= POINTER TO StringExtend; 


RECORD 
f ont 
pens 

activePens 
initModes 
editHook 
buffer 
reserved 
END; 


TextFontPtr; 

ARRAY [2] OF SHORTCARD; 
ARRAY [2] OF SHORTCARD; 
StringExtFlagSet; 
HookPtr; 

SysStringPtr; 

ARRAY [4] OF LONGINT; 


Stringinfo = RECORD OF Gadglnfo 


buffer 

ANYPTR; 

undoBuffer 

ANYPTR; 

bufferPos 

INTEGER 


maxChars 

INTEGER 


dispPos 

INTEGER 


undoPos 

INTEGER 


numChars 

INTEGER 


dispcount 

INTEGER 


cLeft 

INTEGER 


cTop 

INTEGER 


extension 

StringExtendPtr; 

longint 

LONGINT; 

altKeyMap 

ANYPTR; 


END; 


CONST 

autoFrontPen 

autoBackPen 

autoDrawMode 

autoLeftEdge 

autoTopEdge 

autoITextFont 

autoNextText 


= 0 ; 

= 1 ; 

= jam2; 
= 6 ; 

= 3; 

= NIL; 

= NIL; 


TYPE 

IntuiText 


RECORD 
frontPen 
backPen 
drawMode 
leftEdge 
topEdge 
iTextFont 
iText 
nextText 
END; 


SHORTCARD; 
SHORTCARD; 
DrawModeSet; 
INTEGER; 
INTEGER; 
TextAttrPtr; 
SysStringPtr; 
IntuiTextPtr; 
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GROUP 

IntuiTextGrp = IntuiText,IntuiTextPtr,DrawModeSet, 

Graphics.DrawModes,autoFrontPen,autoBackPen,autoDrawMode, 
autoLeftEdge,autoTopEdge,autoITextFont,autoNextText; 


TYPE 

BorderList 

Border 


= ARRAY OF RECORD x,y : INTEGER END; 
= RECORD 


leftEdge, 

topEdge 

frontPen, 

backPen 

drawMode 

count 

xy 

nextBorder 


INTEGER; 

SHORTCARD; 

DrawModeSet; 

SHORTCARD; 

POINTER TO BorderList; 
BorderPtr; 


END; 


GROUP 

BorderGrp = BorderPtr,Border,DrawModeSet, 
Graphics.DrawModes; 


TYPE 

Image 


= RECORD 

leftEdge, 
topEdge, 
width, 
height, 
depth 
imageData 
planePick, 
planeOnOff 
nextImage 
END; 


INTEGER; 

ANYPTR; 

SHORTCARD; 
ImagePtr; 


TYPE 

IDCMPFlags = 


IDCMPFlagSet 


sizeVerify, 

mouseButtons, 

gadgetUp, 

closeWindow, 

reqClear, 

disklnserted, 

activeWindow, 

vanillaKey, 

menuHelp, 

c27, 

c30, 

SET OF IDCMPFlags; 


newSize, 
mouseMove, 
reqSet, 
rawKey, 
menuVerify, 
diskRemoved, 
inactiveWindow, 
intuiTicks, 
changeWindow, 
c28, 

lonelyMessage ) ; 


IDCMPFlagSetPtr = POINTER TO IDCMPFlagSet; 


refreshWindow, 
gadgetDown, 
menuPick, 
reqVerify, 
newPrefs, 
wbenchMessage, 
deltaMove, 
idcmpUpdate, 
c26, 
c29, 
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CONST 


selectUp 

= 

IButton+upPrefix; 

selectDown 

= 

IButton; 


menuUp 

= 

rButton+upPrefix; 

menuDown 

= 

rButton; 


menuNull 

= 

$FFFF; 


noMenu 

= 

$1F; 


noltem 

= 

$3F; 


noSub 

= 

$1F; 


keyCodeQ 

= 

$10; 


keyCodeX 

= 

$32; 


keyCodeV 

= 

$34; 


keyCodeB 

= 

$35; 


keyCodeN 

= 

$36; 


keyCodeM 

= 

$37; 


cursorUp 

= 

$4C; 


cursorDown 

= 

$4D; 


cursorRight 

= 

$4E; 


cursorLeft 

= 

$4F; 


menuHot 

= 

1; 


menuCancel 

= 

2; 


menuWaiting 

= 

3; 


okOk 

= 

menuHot; 


okAbort 

= 

4; 


okCancel 

= 

menuCancel; 


wbenchOpen 

= 

1; 


wbenchClose 

= 

2; 


altLeft 

= 

QualifierSet:{lAlt} ; 

altRight 

= 

QualifierSet:{rAlt}; 

amigaLeft 

= 

QualifierSet:{iCommand}; 

amigaRight 

= 

QualifierSet:{rCommand}; 

amigaKeys 

= 

amigaLeft+amigaRight; 

TYPE 




IntuiMessage 

= 

RECORD OF Message 



dass 

IDCMPFlagSet; 



Code 

CARDINAL; 



qualifier 

QualifierSet; 



iAddress 

ANYPTR; 



mouseX, 
mouseY 
seconds, 

INTEGER; 



micros 

LONGCARD; 



idcmpWindow 

WindowPtr; 



specialLink 

IntuiMessagePtr 



END; 



GROUP 

IDCMPGrp 

= IDCMPFlags, 

IDCMPFlagSet, 



selectUp, 

selectDown, 

menuUp, 


menuDown, 

menuNull, 

noMenu, 


noltem, 

noSub, 

keyCodeQ 


keyCodeX, 

keyCodeV, 

keyCodeB 
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keyCodeN, 
cursorDown, 
menuHot, 
okOk, 

wbenchOpen, 
altRight, 
amigaKeys, 


keyCodeM, 
cursorRight, 
menuCancel, 
okAbort, 
wbenchClose, 
amigaLeft, 
IntuiMessage, 


cursorUp, 
cursorLeft, 
menuWaiting, 
okCancel, 
altLeft, 
amigaRight, 
IntuiMessagePtr; 


TYPE 

WindowFlags = (windowSizing,windowDrag,windowDepth,windowClose, 
sizeBRight,sizeBBottom,simpleRefresh,superBitMap, 
backDrop,reportMouse,gimmeZeroZero,borderless, 
activate, windowActive, inRequest ,inenuState ,rmbTrap, 
noCareRefresh,nw_Extended,wf19,wf20,wf21,wf22,wf23, 
windowRefresh,wbenchWindow,windowTicked,visitor,zoomed, 
hasZoom,wf30,wf31); 

WindowFlagSet = SET OF WindowFlags; 

ScreenFlags = (wbenchScreen,publicScreen,sf2,sf3,showTitle,beeping, 
customBitMap,screenBehind,screenQuiet,screenHiRes, 
sf10,sf11,nsExtended,sf13,autoScroll); 

ScreenFlagSet = SET OF ScreenFlags; 


CONST 


defaultMouseQueue =5; I the default for WindowTags.mouseQueue 


otherRefresh 
refreshBits 
stdScreenHeight 
stdScreenWidth 
customScreen 


= WindowFlagSet:{simpleRefresh,superBitMap}; 
= OtherRefresh; 

= - 1 ; 

= - 1 ; 

= ScreenFlagSet:{wbenchScreen..sf3}; 


TYPE 

NewWindowPtr = POINTER TO NewWindow; 


NewWindow 

= RECORD 

leftEdge, 
topEdge, 
width, 



height 

detailPen, 

INTEGER; 


blockPen 

SHORTINT; 


idcmpFlags 

IDCMPFlagSet; 


f lags 

WindowFlagSet; 


firstGadget 

GadgetPtr; 


checkMark 

ImagePtr; 


title 

SysStringPtr; 


screen 

ScreenPtr; 


bitMap 
minWidth, 
minHeight, 
maxWidth, 

BitMapPtr; 


maxHeight 

INTEGER; 


type 

END; 

ScreenFlagSet; 
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ColorSpecPtr = POINTER TO ColorSpec; 

ColorSpec = RECORD 

colorIndex : INTEGER; 

red, 

green, 

blue : CARDINAL; 

END; 

ColorSpecs = ARRAY OF ColorSpec; 

ColorPtr = POINTER TO ColorSpecs; 


EasyStructPtr = POINTER TO EasyStruct; 
EasyStruct = RECORD 

structSize : LONGCARD; 
flags : LONGCARD; 

title, 
textFormat, 

gadgetFormat: SysStringPtr; 
END; 


WindowTags = 

TAGS OF StdTags 
left 
top 
width 
height 
detailPen 
blockPen 
IDCMP 
flags 
gadgets 
checkmark 
title 

screenTitle 

customScreen 

superBitMap 

minWidth 

minHeight 

maxWidth 

maxHeight 

innerWidth 

innerHeight 


wTB+$01 

wTB+$02 

wTB+$03 

wTB+$04 

wTB+$05 

wTB+$06 

wTB+$07 

wTB+$08 

wTB+$09 

wTB+$0A 

wTB+$0B 

wTB+$0C 

wTB+$0D 

wTB+$0E 

wTB+$0F 

wTB+$10 

wTB+$ll 

wTB+$12 

wTB+$13 

wTB+$14 


LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 
LONGCARD; 

1 SHORTCARD 

LONGCARD; 

1 SHORTCARD 

IDCMPFlagSet; 
WindowFlagSet; 
GadgetPtr; 
ImagePtr; 
SysStringPtr; 
SysStringPtr; 
ScreenPtr; 


BitMapPtr; 

LONGINT; 

1 INTEGER 

LONGINT; 

1 INTEGER 

LONGCARD; 

1 CARDINAL 

LONGCARD; 
LONGINT; 

LONGINT; 

1 CARDINAL 


pubScreenName 

= wTB+$15 

pubScreen 

= wTB+$16 

pubScreenFallBack 

= wTB+$17 

windowName 

= wTB+$18 

colors 

= wTB+$19 

Zoom 

= wTB+$lA 

mouseQueue 

= wTB+$lB 

backFill 

= wTB+$lC 

RPTQueue 

= wTB+$lD 


SysStringPtr; 
ScreenPtr; 


LONGBOOL; 

SysStringPtr; 

ColorPtr; | may not ever be implemented 


IBoxPtr; 
LONGCARD; 
HookPtr; 
LONGINT; 


I def. defaultMouseQueue 
I see Layers.InstallLayerHook 
I queue for events (see RKM) 


sizeGadget 

dragBar 


= wTB+$lE : LONGBOOL; 
= wTB+$lF : LONGBOOL; 
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depthGadget 
closeGadget 
backDrop 
reportMouse 
noCareRefresh 
borderless 
activate 
RMBTrap 
wBenchWindow 
simpleRefresh 
smartRefresh 
sizeBRight 
sizeBBottom 
autoAdjust 
gimmeZeroZero 
menuHelp 
END; 


= wTB+$20 

LONGBOOL 

= wTB+$21 

LONGBOOL 

= wTB+$22 

LONGBOOL 

= wTB+$23 

LONGBOOL 

= wTB+$24 

LONGBOOL 

= wTB+$25 

LONGBOOL 

= wTB+$26 

LONGBOOL 

= wTB+$27 

LONGBOOL 

= wTB+$28 

LONGBOOL 

= wTB+$29 

LONGBOOL 

= wTB+$2A 

LONGBOOL 

= wTB+$2B 

LONGBOOL 

= wTB+$2C 

LONGBOOL 

= wTB+$2D 

LONGBOOL 

= wTB+$2E 

LONGBOOL 

= wTB+$2F 

LONGBOOL 


I SizeGadget in right border 
I SizeGadget in bottom Border 


I see IDCMP.menuHelp 


WindowTagListPtr = POINTER TO WindowTagList; 
WindowTagList = ARRAY OF WindowTags; 

ExtNewWindowPtr = POINTER TO ExtNewWindow; 
ExtNewWindow = RECORD OF NewWindow; 

extension : WindowTagListPtr; 
END; 


NewScreenPtr 

NewScreen 


POINTER TO NewScreen; 


RECORD 
leftEdge 
topEdge 
width 
height 
depth 
detailPen 
blockPen 
viewModes 
type 
f ont 

defaultTitle 
gadgets 
customBitMap 
END; 


INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

SHORTINT; 

SHORTINT; 

ViewModeSet; 

ScreenFlagSet; 

TextAttrPtr; 

ANYPTR; 

GadgetPtr; 

BitMapPtr; 


I Types for ScreenTags 


ErrorTypePtr 

ErrorType 


FontPrefs 


OScanType 


= POINTER TO ErrorType; 

= ( noMonitor, noChips, noMem, 

noChipMem, pubNotUnique, unknownMode, 

mmlong = $10000 ); 

= ( oldDefaultFont, | The old fixed-width default 

wbScreenFont, | be font sensitive !!! 

mmlong = $10000 ); 

= ( text,Standard,max,Video ); 
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ScreenTags 

TAGS OF StdTags 


left 

= 

sTB 

+ 

$01 

LONGINT; 


top 

= 

sTB 

+ 

$02 

LONGINT; 


width 

= 

sTB 

+ 

$03 

LONGINT; 


height 

= 

sTB 

+ 

$04 

LONGINT; 


depth 

= 

sTB 

+ 

$05 

LONGINT; 


detailPen 

= 

sTB 

+ 

$06 

LONGCARD; 

SHORTCARD 

blockPen 

= 

sTB 

+ 

$07 

LONGCARD; 

SHORTCARD 

title 

= 

sTB 

+ 

$08 

SysStringPtr; 


colors 


sTB 

+ 

$09 

ColorPtr; 

initial Palette. Finish 
with -1. 

errorCode 

= 

sTB 

+ 

$0A 

ErrorTypePtr; 


f ont 

= 

sTB 

+ 

$0B 

TextAttrPtr; 


sysFont 

= 

sTB 

+ 

$0C 

FontPrefs; 


type 

= 

sTB 

+ 

$0D 

ScreenFlagSet; 


bitMap 

= 

sTB 

+ 

$0E 

BitMapPtr; 

1 custom bitmap 

pubName 


sTB 

+ 

$0F 

SysStringPtr; 

1 state before the two 

1 below 

pubSig 

= 

sTB 

+ 

$10 

LONGINT; 

1 Signal for pubTask 

pubTask 

= 

sTB 

+ 

$11 

TaskPtr; 

1 the pubscreen task 

displaylD 

= 

sTB 

+ 

$12 

LONGINT; 

1 a custom Display 

dClip 

= 

sTB 

+ 

$13 

RectanglePtr; 

1 better use overScan 

overScan 

= 

sTB 

+ 

$14 

OScanType; 


obsoletel 

= 

sTB 

+ 

$15 

SysStringPtr; 

1 used to be Monitorname 

showTitle 

= 

sTB 

+ 

$16 

LONGBOOL; 


behind 

= 

sTB 

+ 

$17 

LONGBOOL; 


quiet 

= 

sTB 

+ 

$18 

LONGBOOL; 


autoScroll 

= 

sTB 

+ 

$19 

LONGBOOL; 


pens 

= 

sTB 

+ 

$1A 

PenArrayPtr; | 

init screen.drawinfo.pens 

fullPalette 

END; 


sTB 

+ 

$1B 

LONGBOOL; | 

init all preferences colors 


ScreenTagListPtr = POINTER TO ScreenTagList; 
ScreenTagList = ARRAY OF ScreenTags; 

ExtNewScreenPtr = POINTER TO ExtNewScreen; 
ExtNewScreen = RECORD OF NewScreen; 

extension : ScreenTagListPtr; 
END; 


Window 


RECORD OF WinRes.ResHandle 


nextWindow 

leftEdge 

topEdge 

width 

height 

mouseY 

mouseX 

minWidth 

minHeight 

maxWidth 

maxHeight 

f lags 


WindowPtr; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

WindowFlagSet; 
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Screen 


menuStrip 

title 

firstRequest 

dmRequest 

reqCount 

wScreen 

rPort 

borderLeft 
borderTop 
borderRight 
borderBottom 
borderRPort 
firstGadget 
parent 
descendant 
pointer 
ptrHeight 
ptrWidth 
xOffset 
yOffset 
idcmpFlags 
userPort 
windowPort 
messageKey 
detailPen 
blockPen 
checkMark 
screenTitle 
gzzMouseX 
gzzMouseY 
gzzWidth 
gzzHeight 
extData 
userData 
wLayer 
iFont 
END; 


MenuPtr; 
SysStringPtr; 
RequesterPtr; 
RequesterPtr; 
INTEGER; 
ScreenPtr; 
RastPortPtr; 
SHORTINT; 
SHORTINT; 
SHORTINT; 
SHORTINT; 
RastPortPtr; 
GadgetPtr; 
WindowPtr; 
WindowPtr; 
ANYPTR; 

SHORTINT; 

[ 0 .. 16 ]; 
SHORTINT; 
SHORTINT; 
IDCMPFlagSet; 
MsgPortPtr; 
MsgPortPtr; 
IntuiMessagePtr; 
SHORTCARD; 
SHORTCARD; 
ImagePtr; 
SysStringPtr; 
INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

ANYPTR; 

ANYPTR; 

LayerPtr; 
TextFontPtr; 


= RECORD OF ScreenRes.ResHandle 


nextScreen 

firstWindow 

leftEdge 

topEdge 

width 

height 

mouseY 

mouseX 

f lags 

title 

defaultTitle 

barHeight 

barVBorder 

barHBorder 

menuVBorder 

menuHBorder 


ScreenPtr; 

WindowPtr; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

ScreenFlagSet; 

SysStringPtr; 

SysStringPtr; 

SHORTINT; 

SHORTINT; 

SHORTINT; 

SHORTINT; 

SHORTINT; 
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wBorTop 
wBorLeft 
wBorRight 
wBorBottom 
f ont 

viewPort 
rastPort 
bitMap 
layerinfo 
firstGadget 
detailPen 
blockPen 
saveColorO 
barLayer 
extData 
userData 
END; 


SHORTINT; 
SHORTINT; 
SHORTINT; 
SHORTINT; 
TextAttrPtr; 
ViewPort; 
RastPort; 
BitMap; 
Layerinfo; 
GadgetPtr; 
SHORTCARD; 
SHORTCARD; 
CARDINAL; 
LayerPtr; 
ANYPTR; 
ANYPTR; 


CONST 

private = 1; 

maxPubScreenName = 139; (* names no longer *) 


TYPE 

PBNFIags = ( Shanghai, popPubScreen, makeMeWord = 15 ); 

PBNFlagSet = SET OF PBNFIags; 


PubScreenNode = RECORD OF Node; 

screen 
f lags 
size 

visitorCount 

sigTask 

sigBit 

END; 


ScreenPtr; 
PBNFlagSet; 
INTEGER; 
INTEGER; 
TaskPtr; 
TaskSignals; 


CONST 


filenameSize 

= 30; 

pointerSize 

= (1+: 

topazEighty 

= 8; 

topazSixty 

= 9; 

TYPE 

PrinterPort 

= (pa: 

(* PrinterTypes 

*) 

CONST 

CustomName 

= 0; 

AlphaPlOl 

= 1; 

BrotherlBXL 

= 2; 

CbmMpslOOO 

= 3; 

Diab630 

= 4; 

DiabAdvD25 

= 5; 


= (parallelPrinter,serialPrinter); 
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DiabClSO = 6; 

Epson = 7; 

EpsonJXSO = 8; 

0kimate20 = 9; 

QiiineLP20 = 10; 

HpLaserjet = 11; 

HpLaserjetPlus = 12; 


TYPE 

SerParShk =(shakeXon,shakeRts,shakeNone,sps3,parityNone,parityEven, 

parityOdd); 


SerParShkSet = SET OF SerParShk; 


Print =(ignoreDimensions,correctRed,correctGreen,correctBlue, 

centerlmage jboundedDimensions,absoluteDimensions, 
pixelDimensions,mulitplyDimensions,integerScaling, 
halftoneDithering,floydDithering,antiAlias,greyScale2); 

PrintFlags = SET OF Print; 


CONST 

orderedDithering = 
correctRgbMask = 
dimensionsMask = 
ditheringMask = 


ignoreDimensions; 

PrintFlags :{correctRed..correctBlue}; 

PrintFlags :{boundedDimensions..pixelDimensions}; 
PrintFlags :{halftoneDithering,floydDithering}; 


TYPE 


PaperType = ( fanfold = $0, 

single = $080 ); 


Preferences = RECORD 

fontHeight 

printerPort 

baudRate 

keyRptSpeed 

keyRptDelay 

doubleClick 

pointerMatrix 

xOffset 

yOffset 

colorlT 

colorl8 

colorl9 

pointerTicks 

colorO 

colorl 

color2 

colorS 

viewXOffset 

viewYOffset 

viewInitX 

viewInitY 


SHORTCARD; 

PrinterPort; 

CARDINAL; 

TimeVal; 

TimeVal; 

TimeVal; 

ARRAY [0..pointerSize-1] OF CARDINAL 
SHORTINT; 

SHORTINT; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

SHORTINT; 

SHORTINT; 

INTEGER; 

INTEGER; 
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enableCLI 
printerType 
printerFilename 
printPitch 
printQuality 
printSpacing 
printLeftMargin 
printRightMargin 
printlmage 
printAspect 
printShade 
printTreshhold 
paperSize 
paperLength 
paperType 
serRWBits 
serStopBuf 
serParShk 
laceWB 
workName 
padding 
END; 


BDOLEAN; 

CARDINAL; 

ARRAY [0. 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

CARDINAL; 

INTEGER; 

CARDINAL; 

CARDINAL; 

PaperType 

SHORTCARD 

SHORTCARD 


fiIenameSize-1] 


OF CHAR; 


SerParShkSet; 

BDOLEAN; 

ARRAY [0..fiIenameSize-1] OF CHAR; 
ARRAY [0..15] OF SHORTINT; 


CONST 


baudllO 

= 

0 


baudSOO 

= 

1 


baudl200 

= 

2 


baud2400 

= 

3 


baud4800 

= 

4 


baud9600 

= 

5 


baudl9200 

= 

6 


baudMidi 

= 

7 


pica 

= 

$0; 

eilte 

= 

$0400; 

fine 

= 

$0800; 

draft 

= 

$0; 

letter 

= 

$0100; 

sixLPI 

= 

$0; 

eightLPI 

= 

$0200; 

imagePositive 

= 

0 


imageNegative 

= 

1 


aspectHoriz 

= 

0 


aspectVert 

= 

1 


shadeBW 

= 

0 


shadeGreyscaIe= 

1 


shadeCoIor 

= 

2 


usLetter 

= 

$0; 

usLegal 

= 

$010; 

nTractor 

= 

$020; 

wTractor 

= 

$030; 

custom 

= 

$040; 

readBits 

= 

$0F0; 

writeBits 

= 

$0F; 
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stopBits 

= 

$0F0; 


bufSizeBits 

= 

$0F; 


buf512 

= 

0; 


buf1024 

= 

1; 


buf2048 

= 

2; 


buf4096 

= 

3; 


bufSOOO 

= 

4; 


bufieOOO 

= 

5; 


TYPE 




Remember 

= 

RECORD 




nextRemember 

RememberPtr; 



rememberSize 

LONGCARD; 



memory 

ANYPTR; 



END; 


CONST 




deadendAlert 

= 

$80000000; 


recoveryAlert 

= 

0; 



TYPE 

DisplayMode 

CONST 

dMountCode 

eventMax 

TYPE 

Res 

CONST 

resCount 

TYPE 

Gadgets 


CONST 

gadgetCount 

TYPE 

ILocks 


CONST 

numlLocks 


= (hiresPick,lowresPick); 

= LONGINT(DisplayMode’MAX)+1; 

= 10 ; 

= (hiresGadget,lowresGadget); 
= LONGINT(Res’MAX)+l; 


= (upFrontGadget jdownBackGadget,sizeGadget, 
closeGadget,dragGadget, 

sUpFrontGadget,sDownBackGadget,sDragGadget); 


= LONGINT(Gadgets’MAX)+1; 


= (iStateLock,layerinfoLock,gadgetsLock,layerRomLock, 
viewLock,iBaseLock,rpLock); 


= LONGINT(ILocks’MAX)+l; 


TYPE 

FatlntuiMessagePtr = POINTER TO FatlntuiMessage; 
FatlntuiMessage = RECORD OF IntuiMessage 

prevKeys : LONGCARD; 
END; 




184 


KAPITEL 8. SCHNITTSTELLENMODULE 


IBox 

= RECORD 



lef t : 

INTEGER; 


top : 

INTEGER; 


width : 

INTEGER; 


height : 

END; 

INTEGER; 

PointPtr 

= POINTER TO Point; 


Point 

= RECORD 



X : 

INTEGER; 


y : 

END; 

INTEGER; 

PenPair 

= RECORD 



detailPen : 

SHORTCARD; 


blockPen : 

END; 

SHORTCARD; 


CoordinatesPtr = POINTER TO Coordinates; 
Coordinates = RECORD 

X, 

y : CARDINAL; 

END; 


DrawinfoFIags = (newLook,makeMeLong=31); 

DrawinfoFIagSet = SET OF DrawinfoFlags; 


DrawinfoPenss 


DrawinfoPtr 
Drawinfo 


= (detailPen, 
blockPen, 
textPen, 
shinePen, 
shadowPen, 
fillPen, 
fillTextPen, 
backgroundPen, 
highlightTextPen); 


= POINTER TO Drawinfo; 
= RECORD 


Version 
numPens 
pens 
f ont 
depth 

resolution 
f lags 
reserved 
END; 


CARDINAL; 

CARDINAL; 

ANYPTR; | Pointer to Pen-Array 
TextFontPtr; 

CARDINAL; 

Coordinates; 

DrawinfoFlagSet; 

ARRAY [0..6] OF LONGCARD; 


?? 
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(* 

* Package of information passed to custom and ’boopsi’ 

* gadget "hook" functions. This structure is READ DNLY. 
*) 


GadgetInfoPtr = POINTER TO GadgetInfo; 

GadgetInfo = RECORD 

screen : ScreenPtr; 
window : WindowPtr; 
requester : RequesterPtr; 

I 

I rendering information: 

I don’t use these without cloning/Iocking. 
1 Official way is to call ObtainRPort() 


rastPort : RastPortPtr; 
layer : LayerPtr; 


copy of dimensions of screen/window/gOO/req(/group) 
that gadget resides in. Left/Top of this box is 
Offset from window mouse Coordinates to gadget 


Coordinates 

screen gadgets 
window gadgets (no gOO) 
gzzGadget (borderlayer) 
gzz innerlayer gadget 
Requester gadgets 


0,0 (from screen coords) 

0,0 

0,0 

borderleft, bordertop 
reqleft, reqtop 


domain : IBox; 

pens : PenPair; 

I 

I the Detail and Block pens in drinfo.pens are 
I for the screen. Use the above for window-sensitive 
I colors. 


drinfo : Drawinfo; 

I 

I reserved space: this structure is extensible anyway, 
I but using these saves some recompilation 
I (orig. CBM comment). 

I 

reserved : ARRAY [0..5] OF LONGCARD; 

END; 


CONST 

niimlEvents = 4; 


RECORD 

Container : IBox; 

newKnob : IBox; 

END; 


TYPE 

PGX 





186 


KAPITEL 8. SCHNITTSTELLENMODULE 


SGActionFlags = (use,end,beep,reuese,redisplay, 

nextActive,prevActive,makeMeLong=31); 

SGActionFlagSet = SET OF SGActionFlags; 

EditOperation = (null,noOp,delBackward,delForward, 

moveCursor,enter,reset,replaceChar, 
insertChar jbadFormat,bigChange,undo, 
clear,special, 
makeMeWord = $1000); 


SGWorkPtr 

SGWork 


= POINTER TO SGWork; 
= RECORD 


gadget 

GadgetPtr; 

strinfo 

StringinfoPtr; 

workBuffer, 


prevBuffer 

SysStringPtr; 

modes 

StringExtFlagSet; 

iEvent 

InputEventPtr; 

Code 

CARDINAL; 

bufferPos, 


numChars 

INTEGER; 

actions 

SGActionFlagSet; 

longint 

LONGINT; 

inf o 

GadgetInfoPtr; 

editOp 

EditOperation; 


END; 


IClassPtr = POINTER TO IClass; 
ObjectPtr = POINTER TO Object; 
Object = RECORD OF MinNode; 

dass : IClassPtr; 
END; 


Dispatched method ID’s 

NOTE: Applications should use Intuition entry points, not direct 
DoMethodO calls, for NewObject, DisposeObject, SetAttrs, 
SetGadgetAttrs, and GetAttr. 

the following enum is for clean access for magic string values in 
variant RECORD Classid just below. 


MethodID 


(dummy = $100, 
new, 

dispose, 
set, 
get, 

addTail, 
remove, 
notify, 
update, 
addMember, 
remMember, 

Idummy = $10000); 


to Start US off 

’object’ Parameter is "true dass" 
delete seif (no parameters) 
set attributes (in tag list) 
return single attribute value 
add seif to a List (let root do it) 
remove seif from list 
send to seif: notify dependents 
notification message from somebody 
used by various classes with lists 
used by various classes with lists 
dummy to make the enum a long value 
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Classid = SysStringPtr; 


I you can use this type to point to a "generic" message, 

I in the object-oriented programming parlance. Based on 
I the value of ’MethodID', you dispatch to processing 
I for the various message types. The meaningful parameter 
I packet structure definitions are defined below. 

I 

Msg = POINTER TO MsgRoot; 

MsgRoot = RECORD 

methodid : MethodID; 

I method-specific data follows, some examples below 
END; 

CONST 

RootClass 
ImageClass 
FramelClass 
SysIClass 
FillRectClass 
GadgetClass 
PropGClass 
StrGClass 
ButtonGClass 
FRButtonGClass 
GroupGClass 
ICClass 
ModelClass 

TYPE 

I 

I new and set: 

I 

OpSetPtr = POINTER TO OpSet; 

OpSet = RECORD OF MsgRoot 

attrList : ANYPTR; | Taglist of any tags 

ginfo : GadgetinfoPtr; | always there for gadgets, 

END; I when SetGadgetAttrs() is used, 

I but will be NULL for new 


= "rootclass"; 

= "imageclass"; 

= "frameiclass"; 

= "sysiclass"; 

= "fillrectclass"; 
= "gadgetclass"; 

= "propgclass"; 

= "strgclass"; 

= "buttongclass"; 

= "frbuttonclass"; 
= "groupgclass"; 

= "icclass"; 

= "modelclass"; 


I notify and update: 

I 

I this flag (interim) means that the update message is being issued 
I from something like an active gadget, a la followMouse. 

I When the gadget goes inactive, 

I it will issue a final update message with this bit cleared 
I Examples of use are for followMouse equivalents for propgadclass, and 
I repeat strobes for buttons. 

I 

OpuFlags = ( interim, opufmax = 31 ); 





188 


KAPITEL 8. SCHNITTSTELLENMODULE 


OpuFlagSet = SET OF OpuFlags; 

I 

I Message for notify or update Methods 

I 

OpUpdatePtr = POINTER TO OpUpdate; 

OpUpdate = RECORD OF MsgRoot 

attrList : ANYPTR; | TagList of new attributes 

ginfo : GadgetPtr; | non-NULL when SetGadgetAttrs or 

I notification resultingfrom gadget 
I input occurs. 

flags : OpuFlagSet; 

END; 


I Message for Method ’get’ 

I 

OpGetPtr = POINTER TO OpGet; 

OpGet = RECORD OF MsgRoot 

attrid : LONGCARD; 

storage : ANYPTR; 1 

I 

END; 


may be other types, but 
"int" , types are all LONGCARD 


I ’addTail’ Message 

I 

OpAddTailPtr = POINTER TO OpAddTail; 
OpAddTail = RECORD OF MsgRoot 

list : ListPtr; 

END; 


I addMember and remMember Message 

I 

OpMemberPtr = POINTER TO OpMember; 
OpMember = RECORD OF MsgRoot 

Object : ObjectPtr; 
END; 


IClassFlags = ( inPublicList, icfmax=31 ); 
IClassFlagSet = SET OF IClassFlags; 


IClass = RECORD 


dispatcher 

Hook; 

reserved 

LONGCARD; 

super 

IClassPtr 

id 

ClassId; 

instOffset 

CARDINAL; 

instSize 

CARDINAL; 

userData 

LONGCARD; 

subClassCount 

LONGCARD; 

objectCount 

LONGCARD; 

flags 

LONGCARD; 


END; 
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Class = IClass; 


I GadgetClass 


CONST 


I Tag Offsets 


gaTB 

= tagUser 

+ 

$30000 

pgaTB 

= gaTB 

+ 

$01000 

strgTB 

= gaTB 

+ 

$02000 

layoTB 

= gaTB 

+ 

$08000 


defaultMaxChars = 128; 


I OffSet GadgetClass attributeTags 
1 Offset PropGClass attributeTags 
1 Offset STRGClass attributeTags 
I Offset Gadget layout attributeTags 


TYPE 

GadgetTags = 

TAGS OF StdTags 

dummy = tagUser + $30000 
lef t 


relRight 

top 

relBottom 

width 

relWidth 

height 

relHeight 

text 

image 

border 

selectRender 

highLight 

disabled 

gzzGadget 

id 

userData 
specialinfo 
selected 
endGadget 
immediate 
relVerify 
followMouse 
rightBorder 
leftBorder 
topBorder 
bottomBorder 
toggleSelect 


LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

SysStringPtr; 

ImagePtr; 

BorderPtr; 

ANYPTR; 

LONGINT; | ???? 
LONGBOOL; 
LONGBOOL; 
LONGINT; 

ANYPTR; 

GadginfoPtr; 

LONGBOOL; 

LONGBOOL; 

LONGBOOL; 

LONGBOOL; 

LONGBOOL; 

LONGBOOL; 

LONGBOOL; 

LONGBOOL; 

LONGBOOL; 

LONGBOOL; 
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sysGadget 

sysGType 

previous 

next 

drawinfo 

intuiText 

labellmage 

tabCycle 

END; 

GadgetTagListPtr = 
GadgetTagList = 

OrientationFlags 

OrientationFlagSet 

PropGTags = 


LDNGBODL; 

bool, sets GTYP.SYSGADGET field in type 
GadgetType; | internal use only 

e.g., wUpFront , ... 

GadgetPtr; 

previous gadget (or GadgetPtrPtr) in linked list 
This attribute CANNOT be used to link new gadgets 
to an open window or requester. Use AddGList(). 

GadgetPtr; | not implemented 

DrawinfoPtr; 

some fancy gadgets need to see a Drawinfo 
when created or for layout 

IntuiTextPtr; 

use at most ONE of text, intuiText, or labellmage 
ImagePtr; 

an Image object used in place of GadgetText 
LDNGBODL; 

indicates that this gadget is to participate in 
cycling activation with Tab or Shift-Tab. 


POINTER TO GadgetTagList; 
ARRAY OF GadgetTags; 


= (horizontal,vertical,makeMeLong = 31); 
= SET OF OrientationFlags; 

TAGS OF GadgetTags 

dummy = tagUser + $31000; 


freedom 

borderless 

horizPot 

horizBody 

vertPot 

vertBody 

total 

visible 

top 

newLook 

END; 


OrientationFlagSet; 
LONGCARD; 

LONGCARD; 

LONGCARD; 

LONGCARD; 

LONGCARD; 

LONGCARD; 

LONGCARD; 

LONGCARD; 

LONGBOOL; 
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TagStrgPtr 

StringTags 


POINTER TO StringTags; 

TAGS OF GadgetTags 

dummy = tagUser + $32000; 


maxChars 
buffer 
undoBuffer 
workBuffer 
bufferPos 
dispPos 
altKeyMap 
f ont 
pens 

activePens 

editHook 

editModes 

replaceMode 
fixedFieldMode 
noFilterMode 

justification 

longVal 

textVal 

exitHelp 

END; 


: LONGINT; 

: SysStringPtr; 

: SysStringPtr; 

: SysStringPtr; 

: SysStringPtr; 

: LONGINT; 

: ANYPTR; 

: LONGINT; 

: LONGINT; 

: LONGINT; 

: LONGINT; 

: LONGINT; 

: BOOLEAN; 

: BOOLEAN; 

: BOOLEAN; 

: GadgetFlagSet; 

: LONGINT; 

: SysStringPtr; 

: LONGBOOL; 


StringTagListPtr 

StringTagList 


= POINTER TO StringTagList; 
= ARRAY OF StringTags; 


TagLayoutPtr 

LayoutTags 


= POINTER TO LayoutTags; 

= TAGS OF GadgetTags 

dummy = tagUser + $38000; 

layoutObj : LONGINT; 

spacing : LONGINT; 

Orientation : OrientationFIagSet; 

END; 


LayoutTagListPtr = POINTER TO LayoutTagList; 
LayoutTagList = ARRAY OF LayoutTags; 


CONST 

hitTest = MethodlD(O); 

render = MethodlD(l); 

goActive = MethodID(2); 
handlelnput = MethodID(3); 
golnactive = MethodID(4); 


return ’gadgetHit’ if you are clicked on 
(whether or not you are disabled). 
draw yourself, in the appropriate state 
you are now going to be fed input 
handle that input 

whether or not by choice, you are done 


I HitTest-Return Value : 
gadgetNotHit = 0; 

gadgetHit = 4; 
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TYPE 

I 

I Parameter "Messages" passed to gadget dass methods 

I 

I ’hitTest’ Message: 

I 

HitTest = RECORD OF MsgRoot; 

ginfo : Gadglnfo; 

mouse : Point; 

END; 

I values for Render.redraw 

I 

RedrawType = (toggle,reDraw,update,makemelong = 1000000 ); 


I ’render’ message: 

I 

Render = RECORD OF MsgRoot; 

ginfo : Gadglnfo; 

rPort : RastPort; 

redraw : RedrawType; 

END; 

TYPE 

I 

I ’goActive’ and ’handlelnput’ messages: 

I 

GPInput = RECORD OF MsgRoot; 

ginfo : Gadglnfo; 

iEvent : InputEvent; 

termination : POINTER TO LONGINT; 

mouse : Point; 

END; 


InputGoActiveCodeFIags = (igaO,noReUse,reUse,verify,nextActive, 

prevActive); 

IGoActFIagSet = SET OF InputGoActiveCodeFIags; 


I ’golnactive’ message: 

I 

Golnactive = RECORD OF MsgRoot; 

ginfo : Gadglnfo; 

abort : LONGBOOL; 

END; 
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(* IcClass Starts here : *) 


CONST 

ioCdummy 

setLoop 

clearLoop 

checkLoop 


= MethodID($0401); | used for nothing 
= MethodID($0402); | set/increment loop counter 
= MethodID($0403); | clear/decrement loop counter 
= MethodID($0404); 1 set/increment loop 


icaTB = tagUser + $40000; 

icTargetlDCMP = -1; (* ? *) 


TYPE 


I InterConnection Attribute Tags 

I 

ICATags = TAGS OF StdTags 

dummy = tagUser + $40000; 
target : LOMGIMT; 
map : LOMGIMT; 

Code : LOMGIMT; 

EMD; 

ICATagListPtr = POIMTER TO ICATagList; 
ICATagList = ARRAY OF ICATags; 


COMST 

customImageDepth 

= -1; 

TYPE 

SYSIAWichValues 

= (depthlmage=0,zoomImage,sizelmage,closelmage, 
sDepthImage=5,leftImage=$A,uplmage,rightImage, 
downimage,checklmage,mxlmage); 

SYSIASizeValues 

= (medRes=0,lowRes,hiRes); 

ImageMessageld 

= (draw=$202, 

hitTest, 1 return TRUE if dick hits image 

erase, | erase yourself 

move, 1 draw new and erase old, smoothly 

drawFrame, | draw with specified dimensions 
frameBox, | get recommended frame around some box 
hitFrame, | hittest with dimensions 
eraseFrame | hittest with dimensions 
); 
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(* image draw States or styles, for IM_DRAW *) 


ImageDrawSt at e s 


(normal=0, 
selected, 
disabled, 
busy, 

indeterminant, 
inactiveNormal, 
inactiveSelected, 
inactiveDisabled 
); 


for selected gadgets 

for disabled gadgets 

for future functionality 

for future functionality 

normal, in inactive window border 

selected, in inactive border 

disabled, in inactive border 


TaglmagePtr 

ImageTags 


POINTER TO ImageTags; 

TAGS OF StdTags 

dummy = tagUser + $20000; 


lef t 
top 
width 
height 
f gPen 
bgPen 
data 

lineWidth 
sysIAShadowPen 


LONGINT; 
LONGINT; 
LONGINT; 
LONGINT; 
LONGINT; 
LONGINT; 
LONGINT; 
LONGINT; 

: LONGINT; 


sysIAHighLightPen : LONGINT; 


size 

sysIADepth 

sysIAWich 

pens 

resolution 
aPattern 
aPatSize 
mode 
f ont 
outLine 
recessed 
doubleEmboss 
edgesOnly 
sysIADrawInfo 
END; 


SYSIASizeValues; 

LONGINT; 

SYSIAWichValues; 

ANYPTR; (* ? Pointer to Pens[] 
LONGCARD; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

LONGINT; 

: LONGINT; 


*) 


ImageTagListPtr 

ImageTagList 


= POINTER TO ImageTagList; 
= ARRAY OF ImageTags; 


ImpFrameBox 


= RECORD OF MsgRoot 
contentsBox : 

frameBox : 

drinfo : 

frameFlags : 

END; 


IBoxPtr; | 

I 

IBoxPtr; | 

I 

Drawinfo; 
LONGCARD; 


input: relative box 
of Contents 
output: rel. box of 
encl frame 
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(* es folgen seltsame Macros.... ? *) 


DimensionRec = RECORD 

width 


ImpDraw 


: INTEGER; 
height : INTEGER; 
END; 


= RECORD 

methodid 
rPort 
Offset 
state 
drinfo 


LONGCARD; 

RastPort; 

Point; 

LONGCARD; 

Drawinfo; 

(=t= this Parameters only valid in DRAWFRAME *) 
dimensions : DimensionRec; 

END; 


(* IM_ERASE, IM_ERASEFRAME *) 

(* NOTE: This is a subset of impDraw *) 

ImpErase = RECORD 

methodid : LONGCARD; 

rPort : RastPort; 

Offset : Point; 

(* this Parameters only valid in ERASEFRAME *) 
dimensions : DimensionRec; 

END; 

ImpHitTest = RECORD 

methodid : LONGCARD; 

point : Point; 

(=t= this Parameters only valid in HITFRAME *) 
dimensions : DimensionRec; 

END; 


(* Procedures 


TYPE 


IntuitionBasePtr = POINTER TO IntuitionBaseType 

IntuitionBaseType = RECORD OF Library 

viewLord 

View; 

activeWindow 

WindowPtr; 

activeScreen 

ScreenPtr; 

firstScreen 

ScreenPtr; 

f lags 

LONGSET; 

mousey 

INTEGER; 

mousex 

INTEGER; 

seconds 

LONGCARD; 

micros 

LONGCARD; 

END; 










196 


KAPITEL 8. SCHNITTSTELLENMODULE 


VAR 

IntuitionBase : IntuitionBasePtr; 

LIBRARY IntuitionBase BY -30 
PROCEDURE OpenlntuitionO ; 

LIBRARY IntuitionBase BY -36 

PROCEDURE IntuitionC iEvent IN AO: InputEventPtr ); 

LIBRARY IntuitionBase BY -42 

PROCEDURE AddGadgetC window IN AO: WindowPtr; 

gadget IN Al: GadgetPtr; 

Position IN DO: LONGCARD ): LONGCARD; 

LIBRARY IntuitionBase BY -48 

PROCEDURE ClearDMRequest( window IN AO: WindowPtr ): LONGBOOL; 

LIBRARY IntuitionBase BY -54 

PROCEDURE ClearMenuStripC window IN AO: WindowPtr ); 

LIBRARY IntuitionBase BY -60 

PROCEDURE ClearPointer( window IN AO: WindowPtr ); 


LIBRARY IntuitionBase BY -66 

PROCEDURE CloseScreenC screen IN AO: ScreenPtr ): LONGBOOL; 

LIBRARY IntuitionBase BY -72 

PROCEDURE CloseWindowC window IN AO: WindowPtr ); 


LIBRARY IntuitionBase BY -78 

PROCEDURE CloseWorkbenchO: LONGBOOL; 

LIBRARY IntuitionBase BY -78 

PROCEDURE CloseWorkBenchO: LONGBOOL; 

LIBRARY IntuitionBase BY -84 

PROCEDURE CurrentTimeC VAR seconds IN AO: LONGCARD; 

VAR micros IN Al: LONGCARD ); 


LIBRARY IntuitionBase BY -90 

PROCEDURE DisplayAIert( alertNumber IN DO: 

REF String IN AO: 

height IN Dl: 


LONGCARD; 

STRING; 

LONGINT ): LONGBOOL; 


LIBRARY IntuitionBase BY 
PROCEDURE DisplayBeepC 


-96 

screen IN AO: 


ScreenPtr 


); 


LIBRARY IntuitionBase BY -102 

PROCEDURE Doubleclick( sSeconds IN DO 

sMicros IN Dl 

cSeconds IN D2 

cMicros IN D3 


LONGCARD; 

LONGCARD; 

LONGCARD; 

LONGCARD ): LONGBOOL; 


©1992/93 by StoneWare 




8.25. INTUITION 


197 


LIBRARY IntuitionBase BY -108 

PROCEDURE DrawBorderC rp IN AO: 

border IN Al: 
leftOffset IN DO: 
topOffset IN Dl: 


RastPortPtr; 
BorderPtr; 
LONGINT; 
LONGINT ); 


LIBRARY IntuitionBase 

BY -114 


PROCEDURE DrawImageC 

rp 

IN 


Image 

IN 


leftOffset 

IN 


topOffset 

IN 


AO: RastPortPtr; 
Al: ImagePtr; 

DO: LONGINT; 

Dl: LONGINT ); 


LIBRARY IntuitionBase BY -120 

PROCEDURE EndRequest( requester IN AO: 

window IN Al: 


RequesterPtr; 
WindowPtr ); 


LIBRARY IntuitionBase BY -126 

PROCEDURE GetDefPrefsC preferences 

size 


IN AO: PreferencesPtr; 

IN DO: LONGINT ): PreferencesPtr; 


LIBRARY IntuitionBase BY -132 

PROCEDURE GetPrefsC preferences IN AO: PreferencesPtr; 

size IN DO: LONGINT ): PreferencesPtr; 

LIBRARY IntuitionBase BY -138 

PROCEDURE InitRequester( requester IN AO: RequesterPtr ); 


LIBRARY IntuitionBase BY -144 

PROCEDURE ItemAddress( menuStrip IN AO: MenuPtr; 

menuNumber IN DO: LONGCARD ): MenuItemPtr; 

LIBRARY IntuitionBase BY -150 

PROCEDURE ModifylDCMPC window IN AO: WindowPtr; 

flags INDO: IDCMPFlagSet ): LONGBOOL; 

LIBRARY IntuitionBase BY -156 


PROCEDURE 

ModifyPropC 

gadget 


IN 

AO: 

GadgetPtr; 




window 


IN 

Al: 

WindowPtr; 




requester 

IN 

A2: 

RequesterPtr; 




flags 


IN 

DO: 

LONGCARD; 




horizPot 

IN 

Dl: 

LONGCARD; 




vertPot 

IN 

D2: 

LONGCARD; 




horizBody 

IN 

D3: 

LONGCARD; 




vertBody 

IN 

D4: 

LONGCARD ); 

LIBRARY 

IntuitionBase BY -162 





PROCEDURE 

MoveScreenC 

screen 

IN 

AO 

ScreenPtr; 




dx 

IN 

DO 

LONGINT; 




dy 

IN 

Dl 

LONGINT ); 

LIBRARY 

IntuitionBase BY -168 





PROCEDURE 

MoveWindowC 

window 

IN 

AO 

WindowPtr; 




dx 

IN 

DO 

LONGINT; 




dy 

IN 

Dl 

LONGINT ); 
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LIBRARY IntuitionBase BY -174 

PROCEDURE OffGadgetC gadget IN AO: GadgetPtr; 

window IM Al: WindowPtr; 

requester IN A2: RequesterPtr ); 

LIBRARY IntuitionBase BY -180 

PROCEDURE OffMenuC window IN AO: WindowPtr; 

menuNumber IN DO: LDNGCARD ); 


LIBRARY IntuitionBase BY -186 

PROCEDURE OnGadgetC gadget IN AO: GadgetPtr; 

window IN Al: WindowPtr; 

requester IN A2: RequesterPtr ); 

LIBRARY IntuitionBase BY -192 

PROCEDURE OnMenuC window IN AO: WindowPtr; 

menuNumber IN DO: LONGCARD ); 


LIBRARY IntuitionBase BY -198 

PROCEDURE OpenScreenC REF newScreen IN AO: NewScreen ): ScreenPtr; 
LIBRARY IntuitionBase BY -204 

PROCEDURE OpenWindowC REF newWindow IN AO: NewWindow ): WindowPtr; 

LIBRARY IntuitionBase BY -210 

PROCEDURE OpenWorkbenchO: LONGCARD; 

LIBRARY IntuitionBase BY -210 

PROCEDURE OpenWorkBenchO: LONGCARD; 


LIBRARY IntuitionBase BY -216 
PROCEDURE PrintITextC rp 


IN AO: RastPortPtr; 

IntuiTextPtr; 
LONGIMT; 
top IN Dl: LONGIMT ); 


iText IN Al: 
left IN DO: 


LIBRARY IntuitionBase BY -222 

PROCEDURE RefreshGadgets( gadgets IN AO: GadgetPtr; 

window IN Al: WindowPtr; 

requester IN A2: RequesterPtr ); 

LIBRARY IntuitionBase BY -228 

PROCEDURE RemoveGadget( window IM AO: WindowPtr; 

gadget IN Al: GadgetPtr ): LONGCARD; 

LIBRARY IntuitionBase BY -234 

PROCEDURE ReportMouseC flag IN DO: LOMGBOOL; 

window IN AO: WindowPtr ); 


LIBRARY IntuitionBase BY -240 

PROCEDURE Request( requester IN AO: RequesterPtr; 

window IN Al: WindowPtr ): LONGBOOL; 
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LIBRARY IntuitionBase BY -246 

PROCEDURE ScreenToBackC screen IN AO: ScreenPtr ); 

LIBRARY IntuitionBase BY -252 

PROCEDURE ScreenToFront( screen IN AO: ScreenPtr ); 


LIBRARY IntuitionBase BY -258 

PROCEDURE SetDMRequest( window IN AO: WindowPtr; 

requester IN Al: RequesterPtr ): LONGBOOL; 


LIBRARY IntuitionBase BY -264 

PROCEDURE SetMenuStripC window IN AO: WindowPtr; 

menu IN Al: MenuPtr ): LONGBOOL; 


LIBRARY IntuitionBase BY -270 
PROCEDURE SetPointerC window 

pointer 
height 
width 
xOffset 
yOffset 


IN AO: WindowPtr; 
IN Al: ANYPTR; 

IN DO: LONGINT; 

IN Dl: LONGINT; 

IN D2: LONGINT; 

IN D3: LONGINT ); 


LIBRARY IntuitionBase BY -276 

PROCEDURE SetWindowTitles( window IN AO: 

VAR windowTitle IN Al: 

VAR screenTitle IN A2: 


WindowPtr; 
SHORTCARD; 
SHORTCARD ); 


LIBRARY IntuitionBase BY -282 

PROCEDURE ShowTitleC screen IN AO: ScreenPtr; 

showlt IN DO: LONGBOOL ); 


LIBRARY IntuitionBase BY -288 

PROCEDURE SizeWindowC window IN AO: WindowPtr; 

dx IN DO: LONGINT; 

dy IN Dl: LONGINT ); 

LIBRARY IntuitionBase BY -294 

PROCEDURE ViewAddress0: ViewPtr; 

LIBRARY IntuitionBase BY -300 

PROCEDURE ViewPortAddress( window IN AO: WindowPtr ): ViewPortPtr; 


LIBRARY IntuitionBase BY -306 

PROCEDURE WindowToBackC window IN AO: WindowPtr ); 

LIBRARY IntuitionBase BY -312 

PROCEDURE WindowToFront( window IN AO: WindowPtr ); 


LIBRARY IntuitionBase BY -318 

PROCEDURE WindowLimits( window IN AO: WindowPtr; 

widthMin IN DO: LONGINT; 
heightMin IN Dl: LONGINT; 
widthMax IN D2: LONGCARD; 
heightMax IN D3: LONGCARD ): LONGBOOL; 
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LIBRARY IntuitionBase BY -324 

PROCEDURE SetPrefsC preferences IN AO: PreferencesPtr; 

size IN DO: LONGINT; 

inform IN Dl: LONGBOOL ): PreferencesPtr; 


LIBRARY IntuitionBase BY -330 

PROCEDURE IntuiTextLengthC iText IN AO: IntuiTextPtr ): LONGINT; 

LIBRARY IntuitionBase BY -336 

PROCEDURE WBenchToBackO: LONGBOOL; 


LIBRARY IntuitionBase BY -342 

PROCEDURE WBenchToFrontO : LONGBOOL; 

LIBRARY IntuitionBase BY -348 


LIBRARY IntuitionBase BY 


window 

IN 

AO: 

WindowPtr; 

body 

IN 

Al: 

IntuiTextPtr; 

posText 

IN 

A2: 

IntuiTextPtr; 

negText 

IN 

A3: 

IntuiTextPtr; 

pF lag 

IN 

DO: 

LONGCARD; 

nF lag 

IN 

Dl: 

LONGCARD; 

width 

IN 

D2: 

LONGINT; 

height 

IN 

D3: 

LONGINT ): LONGBOOL; 

-354 

O 

•H 

> 

IN 

AO: 

WindowPtr ); 


LIBRARY IntuitionBase BY -360 

PROCEDURE BuildSysRequest( window 

body 
posText IN A2: 
negText IN A3: 
flags IN DO: 
width IN Dl: 
height IN D2: 


IN AO: UindowPtr; 

IN Al: IntuiTextPtr; 

IntuiTextPtr; 
IntuiTextPtr; 
LONGCARD; 

LONGINT; 

LONGINT ): WindowPtr; 


LIBRARY IntuitionBase BY -366 

PROCEDURE EndRefreshC window IN AO: WindowPtr; 

complete IN DO: LONGBOOL ); 

LIBRARY IntuitionBase BY -372 

PROCEDURE FreeSysRequest( window IN AO: WindowPtr ); 

LIBRARY IntuitionBase BY -378 

PROCEDURE MakeScreenC screen IN AO: ScreenPtr ); 


LIBRARY IntuitionBase BY -384 
PROCEDURE RemakeDisplay(); 

LIBRARY IntuitionBase BY -390 
PROCEDURE RethinkDisplay0; 
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LIBRARY IntuitionBase BY -396 


PROCEDURE AllocRemember( VAR rememberKey 

IN 

AO: 

RememberPtr; 

size 

IN 

DO: 

LONGCARD; 

f lags 

IN 

Dl: 

LONGCARD ): ANYPTR; 

LIBRARY IntuitionBase BY -408 




PROCEDURE FreeRemember( VAR rememberKey 

IN 

AO: 

RememberPtr; 

reallyForget 

IN 

DO: 

LONGBOOL ); 


LIBRARY IntuitionBase BY -414 

PROCEDURE LocklBaseC dontknow IN DO: LONGCARD ): LONGCARD; 

LIBRARY IntuitionBase BY -420 

PROCEDURE UnlocklBaseC ibLock IN AO: LONGCARD ); 

LIBRARY IntuitionBase BY -426 

PROCEDURE GetScreenDataC buffer IN AO: ANYPTR; 

size IN DO: LONGCARD; 
type IN Dl: LONGCARD; 
screen IN Al: ScreenPtr ): LONGBOOL; 


LIBRARY IntuitionBase BY -432 

PROCEDURE RefreshGList( gadgets IN 

window IN 
requester IN 
numGad IN 

LIBRARY IntuitionBase BY -438 

PROCEDURE AddGListC window IN AO: 

gadget IN Al: 
Position IN DO: 
numGad IN Dl: 
requester IN A2: 

LIBRARY IntuitionBase BY -444 

PROCEDURE RemoveGListC window IN AO: 

gadget IN Al: 
numGad IN DO: 


AO: GadgetPtr; 

Al: WindowPtr; 

A2: RequesterPtr; 
DO: LONGINT ); 


WindowPtr; 

GadgetPtr; 

LONGCARD; 

LONGINT; 

RequesterPtr ): LONGCARD; 


WindowPtr; 

GadgetPtr; 

LONGINT ): LONGCARD; 


LIBRARY IntuitionBase BY -450 

PROCEDURE ActivateWindowC window IN AO: WindowPtr ): LONGINT; 


LIBRARY IntuitionBase BY -456 

PROCEDURE RefreshWindowFrame( window IN AO: WindowPtr ); 


LIBRARY IntuitionBase BY -462 

PROCEDURE ActivateGadget( gadgets IN AO: GadgetPtr; 

window IN Al: WindowPtr; 

requester IN A2: RequesterPtr ): LONGBOOL; 
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LIBRARY IntuitionBase BY -468 


PROCEDURE NewModifyPropC 

gadget 

IN 

AO: 

GadgetPtr; 


window 

IN 

Al: 

WindowPtr; 


requester 

IN 

A2: 

RequesterPtr; 


f lags 

IN 

DO: 

LONGCARD; 


horizPot 

IN 

Dl: 

LONGCARD; 


vertPot 

IN 

D2: 

LONGCARD; 


horizBody 

IN 

D3: 

LONGCARD; 


vertBody 

IN 

D4: 

LONGCARD; 


numGad 

IN 

D5: 

LONGINT ); 

LIBRARY IntuitionBase BY -■ 

474 




PROCEDURE QueryOverscanC 

displaylD 

IN 

AO: 

LONGCARD; 


rect 

IN 

Al: 

RectanglePtr; 


oScanType 

IN 

DO: 

LONGINT ): LONGINT; 


LIBRARY IntuitionBase BY -480 

PROCEDURE MoveWindowInFrontOf( window IN AO: WindowPtr; 

behindWindow IN Al: WindowPtr ); 


LIBRARY IntuitionBase BY -486 

PROCEDURE ChangeWindowBoxC window IN AO: 

left IN DO: 
top IN Dl: 
width IN D2: 
height IN D3: 


WindowPtr; 
LONGINT; 
LONGINT; 
LONGINT; 
LONGINT ); 


LIBRARY IntuitionBase BY -492 

PROCEDURE SetEditHookC hook IN AO: HookPtr ): HookPtr; 


LIBRARY IntuitionBase BY -498 

PROCEDURE SetMouseQueue( window IN AO: WindowPtr; 

queueLength IN DO: LONGCARD ): LONGINT; 

LIBRARY IntuitionBase BY -504 

PROCEDURE ZipWindowC window IN AO: WindowPtr ); 

LIBRARY IntuitionBase BY -510 

PROCEDURE LockPubScreenC name IN AO: SysStringPtr ): ScreenPtr; 

LIBRARY IntuitionBase BY -516 

PROCEDURE UnlockPubScreenC name IN AO: SysStringPtr; 

screen IN Al: ScreenPtr ); 


LIBRARY IntuitionBase BY -522 

PROCEDURE LockPubScreenList0: ListPtr; 

LIBRARY IntuitionBase BY -528 
PROCEDURE UnlockPubScreenList0; 

LIBRARY IntuitionBase BY -534 

PROCEDURE NextPubScreenC screen IN AO: ScreenPtr; 

namebuf IN Al: SysStringPtr ): SysStringPtr; 
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LIBRARY IntuitionBase BY -540 

PROCEDURE SetDefaultPubScreenC name IN AO: SysStringPtr ); 

LIBRARY IntuitionBase BY -546 

PROCEDURE SetPubScreenModesC modes IN DO: LONGCARD ): LONGCARD; 

LIBRARY IntuitionBase BY -552 

PROCEDURE PubScreenStatus( screen IN AO: ScreenPtr; 

statusFlags IN DO: LONGCARD ): LONGCARD; 


LIBRARY IntuitionBase BY -558 

PROCEDURE ObtainGIRPort( ginfo IN AO: GadgetinfoPtr ): RastPortPtr; 

LIBRARY IntuitionBase BY -564 

PROCEDURE ReleaseGIRPort( rp IN AO: RastPortPtr ); 

LIBRARY IntuitionBase BY -570 

PROCEDURE GadgetMouseC gadget IN AO: GadgetPtr; 

ginfo IN Al: GadgetinfoPtr; 

mousePoint IN A2: Point ); 


(* private 

LIBRARY IntuitionBase BY -576 

PROCEDURE SetlPrefsC ptr IN AO: PreferencesPtr; 

size IN DO: LONGINT; 

type IN Dl: LONGBOOL ): PreferencesPtr; 

****) 

(* public *) 

LIBRARY IntuitionBase BY -582 

PROCEDURE GetDefaultPubScreenC nameBuffer IN AO: SysStringPtr ); 


LIBRARY IntuitionBase BY -588 

PROCEDURE EasyRequestC window IN AO: WindowPtr; 

easyStruct IN Al: EasyStructPtr; 

idcmpPtr IN A2: IDCMPFlagSetPtr; 

args IN A3: LIST OF LONGINT ): LONGINT; 


LIBRARY IntuitionBase BY -594 

PROCEDURE BuildEasyRequestArgs( window IN 

easyStruct IN 
idcmp IN 

args IN 

LIBRARY IntuitionBase BY -594 

PROCEDURE BuildEasyRequest( window IN AO: 

easyStruct IN Al: 

idcmp IN DO: 

args IN A3: 


AO: WindowPtr; 

Al: EasyStructPtr; 

DO: IDCMPFlagSet; 

A3: ANYPTR ): WindowPtr; 

WindowPtr; 

EasyStructPtr; 

IDCMPFlagSet; 

LIST OF LONGINT):WindowPtr; 


LIBRARY IntuitionBase BY -600 

PROCEDURE SysReqHandler( window IN AO: 

idcmpPtr IN Al: 
waitlnput IN DO: 


WindowPtr; 
IDCMPFlagSetPtr; 
LONGBOOL ): LONGINT; 
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LIBRARY IntuitionBase BY -606 

PROCEDURE OpenWindowTags( newWindow IN AO: NewWindowPtr; 

tagList IN Al: LIST OF WindowTags):WindowPtr; 
LIBRARY IntuitionBase BY -606 

PROCEDURE OpenWindowTagList(newWindow IN AO: NewWindowPtr; 

tagList IN Al: WindowTagListPtr):WindowPtr; 

LIBRARY IntuitionBase BY -612 

PROCEDURE OpenScreenTags( newScreen IN AO: NewScreenPtr; 

tagList IN Al: LIST OF ScreenTags):ScreenPtr; 
LIBRARY IntuitionBase BY -612 


PROCEDURE OpenScreenTagList(newScreen IN AO: NewScreenPtr; 

tagList IN Al: ScreenTagListPtr):ScreenPtr; 


LIBRARY IntuitionBase BY -618 
PROCEDURE DrawImageState( rp 

Image 

leftOffset 


topOffset 
state 
drawinfo 


IN AO: RastPortPtr; 
IN Al: ImagePtr; 

IN DO: LONGINT; 

IN Dl: LONGINT; 

IN D2: LONGCARD; 

IN A2: DrawinfoPtr 


LIBRARY IntuitionBase BY -624 

PROCEDURE Pointlnimage( point IN DO: 

image IN AO: 


Point; 

ImagePtr ): LONGBOOL; 


LIBRARY IntuitionBase BY -630 
PROCEDURE Eraselmage( rp 

image 

leftOffset 
topOffset 


IN AO: RastPortPtr; 
IN Al: ImagePtr; 

IN DO: LONGINT; 

IN Dl: LONGINT ); 


LIBRARY IntuitionBase BY -636 

PROCEDURE NewObjectA( dass IN AO: ICIassPtr; 

classID IN Al: Classid; (* SysStringPtr *) 
tagList IN A2: TagArrayPtr ): ANYPTR; 


LIBRARY IntuitionBase BY -642 

PROCEDURE DisposeObject( object IN AO: ANYPTR ); 


LIBRARY IntuitionBase BY -648 

PROCEDURE SetAttrs( object IN AO: ANYPTR; 

tagList IN Al: LIST OF StdTags ): LONGCARD; 


LIBRARY IntuitionBase BY -648 

PROCEDURE SetAttrsA( object IN AO: ANYPTR; 

tagList IN Al: TagArrayPtr ): LONGCARD; 


LIBRARY IntuitionBase BY -654 

PROCEDURE GetAttr( attrID IN DO: 

object IN AO: 
storagePtr IN Al: 


LONGCARD; 

ANYPTR; 

ANYPTR ): LONGCARD; 


(* ? *) 
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LIBRARY IntuitionBase BY -660 

PROCEDURE SetGadgetAttrs( gadget IN AO: 

window IN Al: 

requester IN A2: 

tagList IN A3: 

LIBRARY IntuitionBase BY -660 


GadgetPtr; 

WindowPtr; 

RequesterPtr; 

LIST OF GadgetTags):L0NGCARD; 


PROCEDURE SetGadgetAttrsA( gadget IN AO: GadgetPtr; 

window IN Al: WindowPtr; 

requester IN A2: RequesterPtr; 

tagList IN A3: GadgetTagListPtr): LDNGCARD; 


LIBRARY IntuitionBase BY -666 

PROCEDURE NextObjectC objectPtrPtr IN AO: ANYPTR ): ANYPTR; 


I ***!(! 5(! 

I private 

I 

I LIBRARY IntuitionBase BY -672 PROCEDURE FindClass( classID IN AO: #) ; 


LIBRARY IntuitionBase BY -678 

PROCEDURE MakeClassC classID IN AO: 

superClassID IN Al: 
superClassPtr IN A2: 
instanceSize IN DO: 
flags IN Dl: 


SysStringPtr; 
SysStringPtr; 
IClassPtr; 
LONGCARD; 
IClassFlagSet 


): IClassPtr; 


LIBRARY IntuitionBase BY -684 

PROCEDURE AddClassC dass IN AO: IClassPtr ); 


LIBRARY IntuitionBase BY -690 

PROCEDURE GetScreenDrawInfo( screen IN AO: ScreenPtr ): DrawInfoPtr; 


LIBRARY IntuitionBase BY -696 

PROCEDURE FreeScreenDrawInfo( screen IN AO: ScreenPtr; 

drawinfo IN Al: DrawInfoPtr ); 


LIBRARY IntuitionBase BY -702 

PROCEDURE ResetMenuStripC window IN AO: WindowPtr; 

menu IN Al: MenuPtr ): LONGBOOL; 

LIBRARY IntuitionBase BY -708 

PROCEDURE RemoveClass( classPtr IN AO: IClassPtr ); 

LIBRARY IntuitionBase BY -714 

PROCEDURE FreeClassC classPtr IN AO: IClassPtr ): LONGBOOL; 


(* private *) 

LIBRARY IntuitionBase BY -720 
PROCEDURE LockPubClassO ; 

LIBRARY IntuitionBase BY -726 
PROCEDURE UnlockPubClassO ; 
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GROUP 


WindowGrp = 

(* I *) IDCMPGrp, 
(* T *) 



ExtNewWindow, 

ExtNewWindowPtr, 

NewWindow, 


NewWindowPtr, 

RastPort , 

RastPortPtr, 


Window, 

WindowPtr, 

WindowFlags, 

WindowFIagSet, 

(* C *) 

otherRefresh , 

refreshBits, 


(* p *) 

ActivateWindow, 

CloseWindow, 

ClearMenuStrip, 


ModifylDCMP, 
OpenWindowTagList, 
RefreshWindowFrame, 

MoveWindow, 
OpenWindowTags, 

OpenWindow, 


ResetMenuStrip, 

SetMenuStrip, 

SetWindowTitles, 


SizeWindow, 
WindowToFront; 

WindowLimits, 

WindowToBack, 

GadgetProcGrp = 

(* p *) 

ActivateGadget, 

AddGadget, 

AddGList, 


ModifyProp, 

NewModifyProp, 

OffGadget, 

ImageGrp = 

OnGadget, 
RemoveGadget, 

ImagePtr, Image; 

RefreshGadgets, 
RemoveGList; 

RefreshGList, 

GadgetGrp = 

(* I *) 

GadgetProcGrp, 




GadgetPtr, 

PropinfoPtr, 

StringinfoPtr, 


GadgetFlags, 

GadgetFlagSet, 

ActivationFlags, 


ActivationFlagSet, 

gadgHighbits, 

gadgHNone, 


gadgHComp, 

GadgetType, 

GadginfoPtr, 


Gadginfo, 

Gadget, 

boolMask, 


Boolinfo, 

PropinfoFlags, 

PropinfoFlagSet, 


knobVmin, 

knobHmin, 

maxBody, 


maxPot, 

Propinfo, 

BITSET, 


Stringinfo, 
IntuiTextGrp; 

BorderGrp, 

ImageGrp, 

MenuGrp = 

(* I *) 

BITSET, 

LONGSET, 


(* T *) 

Menu, 

Menuitem, 

MenuItemFlags, 


MenuItemFlagSet, 

MenuItemPtr, 

MenuPtr, 

(* C *) 

checkWidth, 

commWidth, 

highNone, 


lowCheckWidth, 
miDrawn, 

lowCommWidth, 

menuEnabled, 

(* p ♦) 

ClearMenuStrip, 
OnMenu; 

ItemAddress, 

OffMenu, 

ReqGrp = 

(* p *) 

AutoRequest, 

BuildSysRequest, 

ClearDMRequest, 


DisplayAlert, 

EndRequest, 

FreeSysRequest, 


InitRequester, 
Requester, 

Request, 
RequesterFIags, 

SetDMRequest, 
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(* 


*) 

RequesterFlagSet, 

RequesterPtr, 



C 

deadendAlert, 

recoveryAlert; 


ScreenGrp 


= 





(* 

I 

*) 

ViewModeSet, 

ViewModes, 



(* 

T 

*) 

BitMap, 

BitMapPtr, 

ExtNewScreen, 





ExtNewScreenPtr, 

NewScreen, 

NewScreenPtr, 





RastPortPtr, 

Screen, 

ScreenFlags, 





ScreenFlagSet, 

ScreenPtr, 

ViewPortPtr, 


(* 

C 

*) 

stdScreenHeight, 

customScreen, 



(* 

P 

*) 

CloseScreen, 

CloseWorkbench, 

CloseWorkBench 





DisplayBeep, 

GetScreenData, 

LockPubScreen, 





LockPubScreenList 

9 






MakeScreen, 

NextPubScreen, 






MoveScreen, 

OpenScreen, 






OpenScreenTagList 

9 






OpenScreenTags, 

OpenWorkbench, 






OpenWorkBench, 

ScreenToBack, 

ScreenToFront, 





ShowTitle, 

UnlockPubScreen, 






UnlockPubScreenList, 






WBenchToBack, 
WBenchToFront; 



GfxGrp 

(* 


= 





I 

*) 

IntuiTextGrp, 

BorderGrp, 

ImageGrp, 


(* 

P 

*) 

ClearPointer, 

DrawBorder, 

DrawImage, 





IntuiTextLength, 

PrintIText, 

SetPointer; 

MemGrp 

(* 


= 





I 

*) 

Exec.MemReqSet, 

Exec.MemReqs, 



(* 

T 

*) 

Remember, 

RememberPtr, 



(* 

P 

*) 

AllocRemember, 

FreeRemember; 


RefreshGrp 


= 





(* 

P 

*) 

BeginRefresh, 
RethinkDisplay; 

EndRefresh, 

RemakeDisplay, 

TimeGrp 



= 

CurrentTime, 

Doubleclick; 


PrefGrp 


= 

= GetDefPrefs, 

GetPrefs, 

SetPrefs, 



filenameSize, 

pointerSize, 

topazEighty, 




topazSixty, 

PrinterPort, 

CustomName, 




AlphaPlOl, 

BrotherlBXL, 

CbmMpslOOO, 




Diab630, 

DiabAdvD25, 

DiabClBO, 




Epson, 

EpsonJXSO, 

0kimate20, 




QumeLP20, 

HpLaserjet, 

HpLaserj etPlus, 




SerParShk, 

SerParShkSet, 

Preferences, 




baudllO, 

baudSOO, 

baudl200. 




baud240Ö, 

baud480Ö, 

baud9600. 




baudl9200, 

baudMidi, 

pica. 




elite, 

fine, 

draft, 




letter, 

sixLPI, 

eightLPI, 




imagePositive, 

imageNegative, 

aspectHoriz, 




aspectVert, 

shadeBW, 

shadeGreyscale, 




shadeColor, 

usLetter, 

usLegal, 
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nTractor, 
PaperType, 
writeBits, 
buf512, 
buf4096. 


wTractor, 
readBits, 
stopBits, 
bufl024, 
buf8000, 


custom, 

bufSizeBits, 
buf2048, 
buf16000; 


ViewGrp = ViewAddress, ViewPortAddress; 

LockGrp = LocklBase, UnlocklBase; 

IntuilOGrp = ReportMouse, IDCMPGrp, Exec.MsgGrp, Input.EventGrp; 


RecordGrp = Boollnfo, 
ColorSpec, 

Drawinfo, 
ExtNewWindow, 
Gadgetinfo, 
Golnactive, 
HitTest, 

Image, 

ImpFrameBox, 
IntuiText, 
Menuitem, 
NewWindow, 

OpGet, 

OpUpdate, 

Point, 

PubScreenNode, 
Requester, 

Window; 

All = IntuiTextGrp, 

GadgetGrp, 
GadgetProcGrp, 
ReqGrp, 

GadgetProcGrp, 
RefreshGrp, 
ViewGrp, 
DispIayMode, 

Res, 

gadgetCount, 
FatlntuiMessage, 
PenPair, 

Gadgetinfo, 
IntuitionBasePtr, 


Border, 

BorderList, 

Coordinates, 

DimensionRec, 

EasyStruct, 

ExtNewScreen, 

FatlntuiMessage, 

Gadget, 

Gadgetinfo, 

Gadginfo, 

GPInput, 


IBox, 

ICIass, 

ImpDraw, 

ImpErase, 

ImpHitTest, 

IntuiMessage, 

IntuitionBaseType, 

Menu, 

MsgRoot, 

NewScreen, 

Object, 

OpAddTail, 

OpMember, 

OpSet, 

PenPair, 

PGX, 

Preferences, 

Propinfo, 

Remember, 

Render, 

Screen, 

Stringinfo, 

BorderGrp, 

ImageGrp, 

IDCMPGrp, 

WindowGrp, 

MemGrp, 

GfxGrp, 

MenuGrp, 

ReqGrp, 

ScreenGrp, 


TimeGrp, 

PrefGrp, 

LockGrp, 

IntuilOGrp, 

dMountCode, 

eventMax, 

resCount, 

Gadgets, 

ILocks, 

numILocks, 

IBox, 

Point, 

numlEvents, 

IntuitionBase, 

IntuitionBaseType; 



END Intuition. 
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8.26 Keyboard 

DEFINITION MODULE Keyboard; 
(* $A- *) 


FROM T_Exec 

FROM Resources 

IMPORT lOCommand, nonstdVAL, lOStdReqPtr; 

IMPORT ContextPtr; 

CONST 

readEvent 

readMatrix 

= lOCommand( nonstdVAL + 0 ); 

= lOCommand( nonstdVAL + 1 ); 


addResetHandler = lOCommandC nonstdVAL + 2 ); 

remResetHandler = I0Command( nonstdVAL + 3 ); 

resetHandlerDone = I0Command( nonstdVAL + 4 ); 

PROCEDURE OpenKeyboard(context : ContextPtr:=NIL):lOStdReqPtr; 

PROCEDURE CIoseKeyboard(VAR request : lOStdReqPtr); 

GROUP 

All = readEvent,readMatrix,addResetHandler,remResetHandler, 

resetHandlerDone,OpenKeyboard,CloseKeyboard, T_Exec.ExecIOGrp; 

END Keyboard. 
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8.27 KeyMap 


DEFINITION MODULE KeyMap; 

(* $A- *) 

FROM Exec IMPORT Node,List,LibraryPtr; 

FROM System IMPORT LONGSET,SysStringPtr,Regs; 
FROM Input IMPORT Qualifiers,InputEventPtr; 


TYPE 

KeyMapTypes = (shift,alt,control,downup,kmp4,dead,string,nop); 

KeyMapTypeSet = SET OF KeyMapTypes; 

DeadPrefixBytes = (dpbMod,dpbl,dpb2,dpbDead); 

DeadPrefixByteSet = SET OF DeadPrefixBytes; 


CONST 

dp2dIndexMax 
dp2dFacShift 
maxKeys 
noQual 
vanilla 


= $OF; 

= 4; 

= 64; 

= KeyMapTypeSet:{}; 

= KeyMapTypeSet:{shift,alt,control} 


TYPE 

BitTable = ARRAY [maxKeys DIV (8*L0NGSET’SIZE)] OF LONGSET; 

BitTablePtr = POINTER TO BitTable; 


KeyInfo = RECORD 

IF KEY : INTEGER 

OF 0 THEN ch : ARRAY [0..3] OF CHAR; 
OF 1 THEN st : SysStringPtr; 

END 

END; 


Types 

= ARRAY [0..maxKeys-1] OF KeyMapTypeSet; 

TypesPtr 

= POINTER TO Types; 


Info 

= ARRAY [0..maxKeys-1] OF Keyinfo; 

InfoPtr 

= POINTER TO Info; 


KeyMap 

= RECORD 



loKeyMapTypes 

TypesPtr; 


loKeyMap 

InfoPtr; 


loCapsable 

BitTablePtr; 


loRepeatable 

BitTablePtr; 


hiKeyMapTypes 

TypesPtr; 


hiKeyMap 

InfoPtr; 


hiCapsable 

BitTablePtr; 


hiRepeatable 

BitTablePtr; 


END; 


KeyMapPtr 

= POINTER TO KeyMap; 



KeyMapNode = RECORD OF Node 

keyMap : KeyMap 
END; 
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KeyMapResource 


CodeQualPair 


CodeQualArray 


= RECORD OF Node 
keyMaps : List 
END; 

= RECORD 

Code : SHORTCARD; 
quäl : SET OF [IShift..rCommand]; 
END; 

= ARRAY OF CodeQualPair; 


VAR 

KeymapBase : LibraryPtr; 


LIBRARY KeymapBase BY -30 

PROCEDURE SetKeyMapDefault(keyMap IN AO : KeyMapPtr); 


LIBRARY KeymapBase BY -36 

PROCEDURE AskKeyMapDefault0:KeyMapPtr; 


LIBRARY KeymapBase BY -42 

PROCEDURE MapRawKey(event IN AO : InputEventPtr; 

buffer IN Al : ANYPTR; 

length IN Dl : INTEGER; 

keyMap IN A2 : KeyMapPtr):INTEGER; 


LIBRARY KeymapBase BY -48 

PROCEDURE MapANSKREF String IN AO : STRING; 

count IN DO : LONGINT; 

VAR buffer IN Al : CodeQualArray; 
length IN Dl : LONGINT; 
keyMap IN A2 : KeyMapPtr):LONGINT; 


GROUP 

All = KeyMapTypes jKeyMapTypeSet jDeadPrefixBytes jDeadPrefixByteSet, 
dp2dIndexMax,dp2dFacShift,maxKeys,noQual,vanilla,BitTable, 
BitTablePtr,Keyinfo,Types,TypesPtr,Info,InfoPtr,KeyMap, 
KeyMapPtr,KeyMapNode,KeyMapResource; 


END KeyMap. 
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8.28 Layers 

DEFINITION MODULE Layers; 


FROM Graphics 

FROM Utility 
FROM Exec 
FROM System 


IMPORT ClipRectPtr,BitMapPtr,LayerFlagSet,LayerinfoPtr, 
LayerPtr,RastPortPtr,RegionPtr,Rectangle; 

IMPORT HookPtr; 

IMPORT LibraryPtr; 

IMPORT Regs.LONGSET; 


TYPE 

LayerMessagePtr = POINTER TO LayerMessage; 

LayerMessage = RECORD 

layer : LayerPtr; 

bounds : Rectangle; 

xoffset, 

yoffset : INTEGER; 

END; 


VAR LayersBase : LibraryPtr; 

LIBRARY LayersBase BY -78 

PROCEDURE BeginUpdate(1 IN AO : LayerPtr); 

LIBRARY LayersBase BY -54 

PROCEDURE BehindLayer(1 IN Al : LayerPtr); 


LIBRARY LayersBase BY -42 


(li 

IN 

AO 

bm 

IN 

Al 

xO 

IN 

DO, 

yo 

IN 

Dl, 

xl 

IN 

D2, 

yi 

IN 

D3 

f lags 

IN 

D4 

bm2 

IN 

A2 


: LayerinfoPtr; 
: BitMapPtr; 


: LONGINT; 

: LayerFlagSet; 

: BitMapPtr):LayerPtr; 


LIBRARY LayersBase BY -186 


(li 

IN AO 

LayerinfoPtr; 

bm 

IN Al 

BitMapPtr; 

xO 

IN DO 

LONGINT; 

yo 

IN Dl 

LONGINT; 

xl 

IN D2 

LONGINT; 

yi 

IN D3 

LONGINT; 

f lags 

IN D4 

LayerFlagSet; 

hook 

IN A3 

HookPtr; 

superbm 

IN A2 

BitMapPtr):LayerPtr 
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LIBRARY LayersBase BY -36 


LIBRARY LayersBase BY -192 


(li 

IN 

AO 

LayerlnfoPtr; 

bm 

IN 

Al 

BitMapPtr; 

xO 

IN 

DO, 



yo 

IN 

Dl, 



xl 

IN 

D2, 



yi 

IN 

D3 

LONGINT; 

f lags 

IN 

D4 

LONGSET; 

bm2 

IN 

A2 

BitMapPtr):LayerPtr; 

yer(li 


IN 

AO 

LayerlnfoPtr; 

bm 


IN 

Al 

BitMapPtr; 

xO 


IN 

DO 

LONGINT; 

yo 


IN 

Dl 

LONGINT; 

xl 


IN 

D2 

LONGINT; 

yi 


IN 

D3 

LONGINT; 

f lags 

IN 

D4 

LayerFlagSet; 

hook 

IN 

A3 

HookPtr; 


superbm IN A2 : BitMapPtr):LayerPtr; 


LIBRARY LayersBase BY -90 

PROCEDURE DeleteLayer(1 IN Al : LayerPtr); 

LIBRARY LayersBase BY -150 

PROCEDURE DisposeLayerInfo(li IN AO : LayerlnfoPtr); 

LIBRARY LayersBase BY -84 

PROCEDURE EndUpdateCl IN AO : LayerPtr; 

flag IN DO : BOOLEAN); 

LIBRARY LayersBase BY -156 

PROCEDURE FattenLayerInfo(li IN AO : LayerlnfoPtr); 

LIBRARY LayersBase BY -30 

PROCEDURE InitLayers(li IN AO : LayerlnfoPtr); 

LIBRARY LayersBase BY -174 

PROCEDURE InstallClipRegiond IN AO : LayerPtr; 

region IN Al : RegionPtr)rRegionPtr; 


LIBRARY LayersBase BY -96 

PROCEDURE LockLayerd IN Al : LayerPtr); 

LIBRARY LayersBase BY -120 

PROCEDURE LockLayerInfo(li IN AO : LayerlnfoPtr); 

LIBRARY LayersBase BY -108 

PROCEDURE LockLayers(li IN AO : LayerlnfoPtr), 
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LIBRARY LayersBase BY -60 

PROCEDURE MoveLayerd IN Al : LayerPtr; 

dx IN DO, 

dy IN Dl : LONGINT); 


LIBRARY LayersBase BY -168 

PROCEDURE MoveLayerlnFrontDf(1 IN AO, 

target IN Al : LayerPtr); 


LIBRARY LayersBase BY -144 

PROCEDURE NewLayerInfo():LayerinfoPtr; 

LIBRARY LayersBase BY -72 

PROCEDURE ScrollLayerCl IN Al : LayerPtr; 

dx IN DO, 

dy IN Dl : LONGINT); 

LIBRARY LayersBase BY -66 

PROCEDURE SizeLayerd IN Al : LayerPtr; 

dx IN DO, 

dy IN Dl : LONGINT); 

LIBRARY LayersBase BY -180 

PROCEDURE MoveSizeLayer(layer IN AO : LayerPtr; 

dx IN DO : LONGINT; 

dy IN Dl : LONGINT; 

dw IN D2 : LONGINT; 

dh IN D3 : LONGINT):B00LEAN; 

LIBRARY LayersBase BY -126 

PROCEDURE SwapBitsRastPortClipRect(rp IN AO : RastPortPtr; 

er IN Al : ClipRectPtr); 


LIBRARY LayersBase BY -162 

PROCEDURE ThinLayerInfo(li IN AO : LayerinfoPtr); 

LIBRARY LayersBase BY -102 

PROCEDURE UnlockLayerCl IN AO : LayerPtr); 

LIBRARY LayersBase BY -138 

PROCEDURE UnlockLayerInfo(li IN AO : LayerinfoPtr); 

LIBRARY LayersBase BY -114 

PROCEDURE UnlockLayers(li IN AO : LayerinfoPtr); 

LIBRARY LayersBase BY -48 

PROCEDURE UpfrontLayer(1 IN Al : LayerPtr); 

LIBRARY LayersBase BY -132 

PROCEDURE WhichLayer(li IN AO : LayerinfoPtr; 

X IN DO, 

y IN Dl : LONGINT):LayerPtr; 
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LIBRARY LayersBase BY -198 

PROCEDURE InstallLayerHookClayer IN AO : LayerPtr; 

hook IN Ai : HookPtr):HookPtr; 


END Layers. 
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8.29 MathlEEEResource 

DEFINITION MODULE MathlEEEResource; 

(* $A- *) 

FROM System IMPORT PROC; 

FROM Exec IMPORT Node; 


TYPE 

MathlEEEResourceFlags 

= (dblbas,dbltrans,sglbas,sgltrans,extbas, 
exttrans,makeMeWord = 15); 

MathlEEEResourceFlagSet 

= SET OF MathlEEEResourceFlags; 

MathlEEEResourcePtr 

MathlEEEResource 

= POINTER TO MathlEEEResource; 

= RECORD OF Node; 

flags : MathlEEEResourceFlagSet; 

baseAddr : ANYPTR; 

dblBasInit, 

dblTransInit, 

sglBasInit, 

sglTransInit, 

extBasInit, 

extTransInit : PROC 

END; 


VAR 

MathBase : MathlEEEResourcePtr; 

GROUP 

All = MathlEEEResourceFlags,MathlEEEResourceFlagSet,MathlEEEResource, 
MathlEEEResourcePtr,MathBase; 

END MathlEEEResource. 
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8.30 MiscResource 


DEFINITION MODULE MiscResource; 

(* $A- *) 

FROM Exec IMPORT Resource; 

FROM System IMPORT Regs; 

TYPE 

ResourceTypes = (serialPort,serialBits,parallelPort, 

parallelBits); 

MiscResource = RECORD OF Resource; 

allocArray : ARRAY ResourceTypes OF ANYPTR 
END; 

MiscResourcePtr = POINTER TO MiscResource; 

VAR 

MiscBase : MiscResourcePtr; 

LIBRARY MiscBase BY -6 

PROCEDURE AllocMiscResource( unitNum IN DO : LONGINT; 

REF name IN Al : STRING):ANYPTR; 

LIBRARY MiscBase BY -12 

PROCEDURE FreeMiscResource(unitNum IN DO : LONGINT); 

GROUP 

All = ResourceTypes,MiscResource,MiscResourcePtr,MiscBase, 
AllocMiscResource,FreeMiscResource; 

END MiscResource. 
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8.31 Narrator 


DEFINITION MODULE Narrator; 
(* $A- *) 


FROM T_Exec 
FROM Resources 
FROM Utility 
FROM System 


IMPORT lOStdReq,lOReturn; 
IMPORT ContextPtr; 

IMPORT StdTags; 

IMPORT SysStringPtr; 


CONST 
noMem 
noAudLib 
makeBad 
unitErr 
cantAlloc 
unimpl 
noWrite 
expunged 
phonErr 
rateErr 
pitchErr 
sexErr 
modeErr 
freqErr 
volErr 
dCentErr 
centPhonErr 


I0Return(256-2); 
I0Return(256-3); 
I0Return(256-4); 
I0Return(256-5); 
I0Return(256-6); 
I0Return(256-7); 
I0Return(256-8); 
I0Return(256-9); 
lOReturn(256-20) 
lOReturn(256-21) 
lOReturn(256-22) 
lOReturn(256-23) 
lOReturn(256-24) 
lOReturn(256-25) 
lOReturn(256-26) 
lOReturn(256-27) 
lOReturn(256-28) 


TYPE 

Sex 

PitchMode 

SpeakRate 

Pitch 

SampleFreq 

Volume 

Central 


(male,female,dummy=$1000); 

(natural,robotic,manual,dummy=$1000); 
[40..400]; 

[65..320]; 

[5000..28000]; 

[0..64]; 

[ 0 .. 100 ] ; 


NarratorFlags = (newIO,wordSync,sylableSync); 
NarratorFlagSet = SET OF NarratorFlags; 
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lONarratorPtr 

IDNarrator 


POINTER TO lONarrator; 


RECORD OF lOStdReq 
rate 
pitch 
mode 
sex 

chMask 
rmiMask 
padl 
volume 
sampFreq 
mouths 
chanMask 
numChan 
f lags 

enthusiasm 
perturbation 
fladj, 
f2adj, 
f 3adj 
aladj, 
a2adj, 
aSadj 

articulate 
centralize 
centPhon 
aVBias 
aFBias 
prioritv 
pad2 

width 
heigth 
shape 
sync 
END; 


SpeakRate; 

Pitch; 

PitchMode; 

Sex; 

ANYPTR; 

CARDINAL; 
SHORTCARD; 

Volume; 
SampleFreq; 
BOOLEAN; 
SHORTCARD; 
SHORTCARD; 
NarratorFlagSet; 
SHORTCARD; 
SHORTCARD; 


SHORTINT; 


SHORTINT; 
SHORTCARD; 
SHORTCARD; 
SysStringPtr; 
SHORTINT; 
SHORTINT; 
SHORTINT; 
SHORTINT; 

SHORTCARD; 
SHORTCARD; 
SHORTCARD; 
NarratorFlagSet; 
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NarratorTags = TAGS OF StdTags; 


rate 

SpeakRate; 

pitch 

Pitch; 

mode 

PitchMode; 

sex 

Sex; 

volume 

Volume; 

sampFreq 

SampleFreq; 

mouths 

BOOLEAN; 

enthusiasm 

SHORTCARD; 

perturbation 

SHORTCARD; 

f ladj 

SHORTINT; 

f 2adj 

SHORTINT; 

f 3adj 

SHORTINT; 

aladj 

SHORTINT; 

a2adj 

SHORTINT; 

aSadj 

SHORTINT; 

articulate 

SHORTCARD; 

centralize 

SHORTCARD; 

centPhon 

SysStringPtr 

aVBias 

SHORTINT; 

aFBias 

SHORTINT; 

priority 

SHORTINT; 


END; 


PROCEDURE OpenNarrator(context : ContextPtr:=NIL; 

tags : LIST OF NarratorTags):lONarratorPtr; 

PROCEDURE CloseNarrator (VAR request : lONarratorPtr); 

GROUP 

ErrorGrp = noMein,noAudLib,makeBad,unitErr,cantAlloc, 
unimpl,noUrite,expunged,phonErr,rateErr, 
pitchErr,sexErr,modeErr,freqErr,volErr, 
dCentErr,centPhonErr; 

DeviceGrp = NarratorFlags,NarratorFlagSet,lONarratorPtr, 

lONarrator,NarratorTags,OpenNarrator,CloseNarrator; 

All = ErrorGrp,DeviceGrp; 

END Narrator. 
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8.32 Parallel 


DEFINITION MODULE Parallel; 
(* $A- *) 


I WB 4 Jun 1992 lOCommand 


FROM T_Exec IMPORT lOCommand, nonstdVAL, lOStdReq; 
FROM Resources IMPORT ContextPtr; 

CONST 

query = lOCommand( nonstdVAL + 0 ); 

setParams = lOCommand( nonstdVAL + 1 ); 


TYPE 

lOPArray 

ParErr 

ParFlags 

ParFlagSet 

Status 

StatusSet 


= ARRAY [0..7] OF CHAR; 

= (peO,devBusy,bufTooBig,invParam,lineErr,notOpen, 
portReset,initErr); 

= (pf 0,eofMode,ackMode,radBoogie,f astMode=3,slowMode, 
shared); 

= SET OF ParFlags; 

= (parBusy,paperOut,parSel,rwDir,active,abort,queued); 
= SET OF Status; 


lOParallel = RECORD OF lOStdReq 


lOParallelPtr = 


pExtFlags 
Status 
parFlags 
pTermArray 
END; 

POINTER TO lOParallel 


LONGCARD; 
StatusSet; 
ParFlagSet; 
lOPArray 


PROCEDURE OpenParallel(context : ContextPtr:=NIL):lOParallelPtr; 

PROCEDURE CloseParallel (VAR request : lOParallelPtr) 

GROUP 

All = query,setParams,lOPArray,ParErr,ParFlags,ParFlagSet,Status, 

StatusSet,lOParallel,lOParallelPtr,OpenParallel,CloseParallel; 


END Parallel. 
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8.33 PotgoResource 


DEFINITION MODULE PotgoResource; 

(* $A- *) 

FROM Exec IMPORT LibraryPtr; 

FROM Hardware IMPORT PotFlags,PotFlagSet; 
FROM System IMPORT Regs; 


VAR 

PotgoBase : LibraryPtr; 


LIBRARY PotgoBase BY -6 

PROCEDURE AllocPotBits(bits IN DO : PotFlagSet):PotFlagSet; 

LIBRARY PotgoBase BY -12 

PROCEDURE FreePotBits(allocated IN DO : PotFlagSet); 


LIBRARY PotgoBase BY -18 
PROCEDURE WritePotgo(word 

mask 


IN DO : PotFlagSet; 
IN Dl : PotFlagSet); 


GROUP 

All = PotgoBase,AllocPotBits,FreePotBits,WritePotgo,PotFlags,PotFlagSet 
END PotgoResource. 
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8.34 Printer 


DEFINITION MODULE Printer; 
(* $A- *) 


I WB 4 Jun 1992 lOCommand 


FROM T_Exec IM¬ 
PORT lOCommand, nonstdVAL, DevicePtr, lOFlagSet, Message, 

UnitPtr, lORequest; 

FROM Graphics IMPORT CoIorMapPtr,RastPortPtr,ViewModeSet; 

FROM Resources IMPORT ContextPtr; 

CONST 

rawWrite 
prtCommand 
dumpRPort 
query 

TYPE 

PrtCommands = (ris,rin,ind,nel,ri, 

sgrO,sgr3,sgr23,sgr4,sgr24,sgr1,sgr22,sfc,sbc, 
shorpO,shorp2,shorpl,shorp4,shorp3,shorp6,shorpB, 
den6,den5,den4,den3,den2,denl, 
sus2,susl,sus4,sus3,susO,plu,pld, 

fntO,fnt1,fnt2,fnt3,fnt4,fnt5,fnt6,fnt7,fntS,fnt9,fnt10, 
prop2,propl,prop0,tss,jfy5,jfy7,jfy6,jfyO,jfy3,jfyl, 
verpO,verpl,slpp,perf,perf0, 

1ms,rms,tms,bms,stbm,slrm,cam, 

hts,vts,tbc0,tbc3,tbcl,tbc4,tbcall,tbsall,extend,raw, 
makeMeWord = $1000); 


= (nonErr,cancel,notGraphics,invertHam,badDimension, 

dimensionOvflow,internalMemory,buffMemory,tookControl); 

= (milCols,milRows,fullCols,fullRows,fracCols,fracRows, 
Center,aspect,densBitO,densBitl,densBit2,noFormFeeds, 
trustMe,noPrint); 

= SET OF Special; 


TYPE 

Error 

Special 

SpecialSet 


= lOCommand( nonstdVAL + 0 ); 
= lOCommand( nonstdVAL + 1 ); 
= lOCommand( nonstdVAL + 2 ); 
= lOCommand( nonstdVAL + 3 ); 


CONST 

densityl 

density2 

densityS 

density4 

densityS 

densityS 

density7 


SpecialSet:{densBitO}; 

SpecialSet:{densBitl}; 

SpecialSet:{densBitO,densBitl}; 
SpecialSet:{densBit2}; 

SpecialSet:{densBitO,densBit2}; 
SpecialSet:{densBitl,densBit2}; 
SpecialSet:{densBitO,densBitl,densBit2}; 
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TYPE 

lOPrinter 


= RECORD OF lORequest 
IF KEY : INTEGER 
OF 0 THEN 


actual, 


length : LONGINT; 

data : ANYPTR; 

Offset : LONGINT; 

OF 1 THEN 


prtCommands 

: PrtCommands; 

parmO 

: SHORTCARD; 

parml 

: SHORTCARD; 

parm2 

: SHORTCARD; 

parmS 

: SHORTCARD; 

OF 2 THEN 


rastPort 

RastPortPtr; 

colorMap 

ColorMapPtr; 

modesHi 

CARDINAL; 

modes 

ViewModeSet; 

srcX 

CARDINAL; 

srcY 

CARDINAL; 

srcWidth 

CARDINAL; 

srcHeight 

CARDINAL; 

destCols 

LONGINT; 

destRows 

LONGINT; 

special 

SpecialSet 


END 


END; 

lOPrinterPtr = POINTER TO lOPrinter 


PROCEDURE OpenPrinter(context : ContextPtr:=NIL):lOPrinterPtr; 
PROCEDURE ClosePrinter (VAR request : lOPrinterPtr) 


GROUP 

All = rawWrite,query,prtCommand,dumpRPortjPrtCommands,Error,Special, 
SpecialSet,densityl,density2,density3,density4,densityS, 
densityG,densityT,lOPrinter,lOPrinterPtr,OpenPrinter,ClosePrinter, 
T_Exec.ExecIOGrp; 

END Printer. 
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8.35 PrtBase 


DEFINITION MODULE PrtBase; 

(* $A- *) 

FROM Exec IMPORT Library,MsgPort,Task,Device,ExecBasePtr; 

FROM Intuition IMPORT Preferences; 

FROM Parallel IMPORT lOParallel; 

FROM Serial IMPORT lOSerial; 

FROM Timer IMPORT lOTimer; 

FROM System IMPORT SysStringPtr,PROC,BPTR; 


TYPE 

DeviceData 


= RECORD OF Library; 


Segment 

execBase 

cmdVectors 

cmdBytes 

numCommands 

END; 


ANYPTR; 
ExecBasePtr; 
ANYPTR; 
ANYPTR; 
CARDINAL; 


DeviceDataPtr = POINTER TO DeviceData; 


CONST 

oldStkSize = $800; 

stkSize = $1000; 

bufSize = 256; 

safeSize = 128; 


TYPE 

NormTask 

PrinterSegmentPtr 


= RECORD OF Task END; 

= POINTER TO PrinterSegment; 


PrinterData 


= RECORD OF DeviceData 
unit : 

printerSegment : 
printerType : 

segmentData : 

printBuf : 

pWrite : 

pBothReady : 


9 

MsgPort; 

BPTR; 

CARDINAL; 

PrinterSegmentPtr; 
ANYPTR; 

PROCEDUREO : INTEGER; 
PROCEDUREO : INTEGER; 


IF KEY : INTEGER 
OF 1 THEN pO 

OF 2 THEN sO 
sl 


lOParallel; 
lOParallel 
lOSerial; 
lOSerial 


END; 

tior 

ioRPort 

tc 

oldStk 
f lags 
pad 

preferences 

pWaitEnabled 


lOTimer; 

MsgPort; 

NormTask; 

ARRAY [oldStkSize] OF SHORTCARD 
SHORTCARD; 

SHORTCARD; 

Preferences; 

SHORTCARD; 
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flagsl : SHORTCARD; 

stk : ARRAY [stkSize] OF SHORTCARD 

END; 

PrinterDataPtr = POINTER TO PrinterData; 

PrinterClass = (gfx,color); 

PrinterClassSet = SET OF PrinterClass; 

CONST 

bwAlpha = PrinterClassSet:{}; 

bwGfx = PrinterClassSet:{gfx}; 

colorAlpha = PrinterClassSet:{color}; 

colorGfx = PrinterClassSet:{gfx,color}; 

TYPE 

ColorClass = (blackAndWhite,colors,fourColor,additive,multipass); 
ColorClassSet = SET OF ColorClass; 

CONST 
bw 
ymc 
ymcBw 
ymbc 
wb 
bgr 
bgrWb 
bgrw 

TYPE 

DoSpecial = PROCEDURE(Command : CARDINAL; 

OutPutBuffer : SysStringPtr; 

Line, 

LineSpace, 

CRLF, 

Params : SHORTINT):INTEGER; 

Render = PROCEDURE(ct : SHORTCARD; 

X, 

y : CARDINAL; 

Status : SHORTCARD):INTEGER; 

ConvFunc = PROCEDUREO:L0NGINT; 


= ColorClassSet:{blackAndWhite}; 

= ColorClassSet:{colors}; 

= ColorClassSet:{blackAndWhite,colors}; 

= ColorClassSet:{fourColor}; 

= ColorClassSet:{blackAndWhite,additive}; 

= ColorClassSet:{colors,additive}; 

= ColorClassSet:{blackAndWhite,colors,additive}; 
= ColorClassSet:{fourColor,additive}; 
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PrinterExtendedData 


PrinterExtendetDataPtr 


= RECORD 


printerName 

SysStringPtr; 

init 

PROC; 

expunge 

PROC; 

open 

PROCEDUREO : INTEGER 

dose 

PROC; 

printerClass 

PrinterClassSet; 

colorClass 

ColorClassSet; 

maxColumns 

SHORTCARD; 

numCharSets 

SHORTCARD; 

numRows 

CARDINAL; 

maxXDots 

LONGCARD; 

maxYDots 

LONGCARD; 

xDotsInch 

CARDINAL; 

yDotsInch 

CARDINAL; 

commands 

ANYPTR; 

doSpecial 

DoSpecial; 

render 

Render; 

timeOutSecs 

LONGINT; 

eightBitChars 

ANYPTR; 

printMode 

LONGINT; 

convFunc 

ConvFunc; 


END; 

= POINTER TO PrinterExtendedData; 


PrinterSegment 


= RECORD 

nextSegment 

runAlert 

Version 

revision 

ped 

END 


BPTR; 

LONGCARD; 

CARDINAL; 

CARDINAL; 

PrinterExtendedData 


GROUP 

All = DeviceData,DeviceDataPtr,bufSize,safeSize,stkSize,oldStkSize, 
NormTask,PrinterSegmentPtr,PrinterData,PrinterDataPtr, 
PrinterClass,PrinterClassSet,bwAlpha,bwGfX,colorAlpha, 
colorGfX,ColorClass,ColorClassSet,bw,ymc,ymcBw,ymbc,wb,bgr, 
bgrWb,bgrw,DoSpecial,Render,ConvFunc,PrinterExtendedData, 
PrinterExtendetDataPtr,PrinterSegment; 


END PrtBase. 
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8.36 Rexx 

DEFINITION MODULE Rexx; 


(* $A- *) 

FROM System 
FROM Dos 

IMPORT BITSET,BPTR,Regs; 

IMPORT DeviceListPtr,DosLibraryPtr,FileHandlePtr, 
FileLockPtr,StandardPacketPtr; 

FROM Exec 

IMPORT ExecBasePtr,Library,List,ListPtr,MemReqs,Message, 
MessagePtr,MsgPort,MsgPortPtr,Node,NodePtr; 

TYPE 

RexxErrors 

= (ok, 

programNotFound, 
executionNotHalted, 
noMemoryAvailable, 
invalidCharacterlnProgram, 
unmatchedQuote, 
unterminatedComment, 
clauseTooLong, 
unrecognizedToken, 
symbolOrStringTooLong, 

invalidMessagePacket, 
commandStringError, 
errorReturnFromFunction, 
hostEnvironmentNotFound, 
requiredLibraryNotFound, 
functionNotFound, 
noReturnValue, 
wrongNumbersOfArguments, 
invalidArgumentToFunction, 
invalidProcedure, 

unexpectedThenElse, 
unexpectedWhenOtherwise, 
unexpectedLeavelterate, 
invalidStatementlnSelect, 
missingThenCIauses, 
missingOtherwise, 
missingOrUnexpectedEnd, 
symbolMismatchOnEnd, 
invalidDoSyntax, 
incompleteDoIfSelec, 

labelNotFound, 
symbolExpected, 
stringOrSymbolExpected, 
invalidSubKeyword, 
requiredKeywordMissing, 
extraneousCharacters, 
subKeywordConflict, 
invalidTemplate, 
invalidTraceRequest, 
uninitializedVariable, 
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invalidVariableName, 
invalidExpre s sion, 
unbalancedParentheses, 
nestingLevelExceeded, 
invalidExpressionResult, 
expressionRequired, 
booleanValueNotOorl, 
arithmeticConversionError, 
invalidOperand); 


CONST 

ReturnOk = 0; 

ReturnWarn = 5; 

ReturnError = 10; 

ReturnFatal = 20; 


TYPE 

AttributeFlags 

AttributeFlagSet 

NexxStr 


NexxStrPtr 


= (keep,String,notNum,number,binary,float,ext, 
source); 

= SET OF AttributeFlags; 

= RECORD 

iValue : LONGINT; 

length : CARDINAL; 

flags : AttributeFlagSet; 

hash : SHDRTCARD; 

(*buff : ARRAY OF CHAR;*) 

END; 

= POINTER TO NexxStr; 


CONST 

intNum 

dpNum 

alpha 

owned 

keepStr 

keepNum 


= AttributeFlagSet:{number,binary,string}; 

= AttributeFlagSet:{number,float}; 

= AttributeFlagSet:{notNum,string}; 

= AttributeFlagSet:{source,ext,keep}; 

= AttributeFlagSet:{string,source,notNum}; 

= AttributeFlagSet:{string,source,number,binary}; 


TYPE 


RexxArg = RECORD 


size 

LONGINT; 

length 

CARDINAL; 

flags 

AttributeFlagSet; 

hash 

SHORTCARD; 

(=t= buff 

: ARRAY OF CHAR *) 

END; 


RexxArgPtr = POINTER TO 

RexxArg; 


CONST 

maxRMArg = 15; 


TYPE 

Command = (coO,comn,func,dose,query,co5,co6,addFH,addLib,remLib, 

addCon,remCon,tcOpn,tcCls); 
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ModifierFlags = (noIG,result,moString,token,nonRet,ino5,mo6,mo7); 

ModifierFlagSet = SET OF ModifierFlags; 


ActionRec 


RexxMsg 


RexxMsgPtr 

RexxRsrc 


RexxRsrcPtr 

RsrcNodeType 


= RECORD 

command 
modifier 
add 
END; 


Command; 

ModifierFlagSet; 
CARDINAL 


= RECORD OF Message 


taskBlock, 


libBase 

: ANYPTR; 

action 

: ActionRec; 

resultl, 


result2 

: LONGINT; 

args 

: ARRAY [0..maxRMArg] OF ANYPTR; 

passPort 

: MsgPortPtr; 

commAddr, 


fileExt 

: ANYPTR; 

stdin, 


stdout 

: FileHandlePtr; 

avail 

: LONGINT 


END; 

= POINTER TO RexxMsg; 


= RECORD OF Node 

func : INTEGER; 
base : ANYPTR; 
size, 
argl, 

arg2 : LONGINT 
END; 

= POINTER TO RexxRsrc; 

= (any,lib,port,file,host,clip); 


CONST 

globalsz = 200; 
TYPE 

RexxTaskFlags 

RexxTaskFlagSet 

RexxTask 


= (trace,halt,susp,tcUse,rtf4,rtf5,wait,rtfClose); 
= SET OF RexxTaskFlags; 


RECORD 

global 

ARRAY [0..globalsz-1] OF SHORTINT; 

msgPort 

MsgPort; 

f lags 

RexxTaskFlagSet; 

sigBit 

SHORTCARD; 

clientID, 
msgPkt, 
taskID, 
rexxPort, 
errTrap, 
stackPtr 

: ANYPTR; 

envList, 
freeList, 
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memList, 
fileList, 
portList : List 
END; 

RexxTaskPtr = POINTER TO RexxTask; 

CONST 


memQuant 

= $10; 


memMask 

= SFFFFFFFO; 

memQuick 

= public; 


TYPE 



SrcNodePtr 

= POINTER 

TO SrcNode; 

SrcNode 

= RECORD 



succ, 



pred 

: SrcNodePtr; 


ptr 

: ANYPTR; 


size 

: LONGINT 


END; 


CONST 



rxsdir = 

"REXX"; 


rxstname = 

"ARexx"; 


TYPE 



RxsLibPtr 

= POINTER 

TO RxsLib; 


RxsLib = RECORD OF Library 


f lags 

RexxTaskFlagSet; 

sysBase 

ExecBasePtr; 

dosBase 

DosLibraryPtr; 

ieeeDPBase 

ANYPTR; 

segList 

BPTR; 

nil 

FileHandlePtr; 

chunk, 
maxNest 

LONGINT; 

null, 
false, 
true, 
rexx, 
command, 
stdin, 
stdout, 
stderr 

NexxStrPtr; 

Version, 

taskName 

ANYPTR; 

taskPri 

LONGINT; 

taskSeg 

BPTR; 

stackSize 

LONGINT; 

rexxDir, 
cTable 

ANYPTR; 

notice 

NexxStrPtr; 

rexxPort 

MsgPort; 

readLock 

CARDINAL; 

traceFH 

FileHandlePtr; 

taskList 

List; 
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numTask 

libList 

numLib 

clipList 

numClip 

msgList 

numMsg 

pgmList 

numPgm 

traceCnt 

avail 

END; 


INTEGER; 

List; 

INTEGER; 

List; 

INTEGER; 

List; 

INTEGER; 

List; 

INTEGER; 

CARDINAL; 

INTEGER 


CONST 

tcDpen 

stop 

vers 

rev 

rxsalloc 

rxschunk 

rxsnest 

rxstpri 

rxsstack 

rxslisth 


= rtf4; 

= wait; 

= 34; 

= 9; 

= $80000000; 
= $00000400; 
= $00000020; 
= $00000000; 
= $00001000; 
= $00000005; 


TYPE 

CharAttrFlags = (space,digit,caAIpha,rexxSym,rexxOpr,rexxSpc,upper, 

lower); 

CharAttrFlagSet = SET OF CharAttrFlags; 

CONST 

buffsz = 204; 


TYPE 


loBuff = RECORD OF RexxRsrc; 

rpt : ANYPTR; 

rct : LONGINT; 

dfh, 

lock : FileLockPtr; 

bet : LONGINT; 

area : ARRAY [0..buffsz-1] OF SHORTINT 
END; 

loBuffPtr = POINTER TO loBuff; 


CONST 

exist = -1 

strf = 0 

read = 1 

write = 2 

append = 3 
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TYPE 

RexxMsgPort = RECORD OF RexxRsrc; 

port : MsgPort; 

replvList : List 
END; 

CONST 

stack = 2002; 
queue = 2003; 

fail = -1; 

VAR 

RexxBase : RxsLibPtr; 

LIBRARY RexxBase BY -126 

PROCEDURE CreateArgstring(String IN AO : ANYPTR; 

Length IN DO : LONGINT):ANYPTR; 


LIBRARY RexxBase BY -132 

PROCEDURE DeleteArgstringCArgString IN AO : ANYPTR); 

LIBRARY RexxBase BY -138 

PROCEDURE LengthArgstringCArg IN AO :RexxArgPtr):LONGINT; 
LIBRARY RexxBase BY -144 

PROCEDURE CreateRexxMsg(ReplyPort IN AO : MsgPortPtr; 

Extension IN Al : ANYPTR; 

Host IN DO : ANYPTR):RexxMsgPtr; 


LIBRARY RexxBase BY -150 

PROCEDURE DeleteRexxMsg(Message IN AO 


RexxMsgPtr); 


LIBRARY RexxBase BY -156 


PROCEDURE ClearRexxMsg(MsgPtr 

IN AO : 

: MessagePtr; 

Count 

IN DO 

: LONGINT); 

LIBRARY RexxBase BY -162 

PROCEDURE FillRexxMsg(MsgPtr 

IN AO ; 

: RexxMsgPtr; 

Count 

IN DO 

: LONGINT; 

Mask 

IN Dl 

: BITSET):BOOLEAN 


LIBRARY RexxBase BY -168 

PROCEDURE IsRexxMsg(MsgPtr IN AO : MessagePtr):BOOLEAN; 


LIBRARY RexxBase BY -450 

PROCEDURE LockRexxBase(Resource IN DO : RsrcNodeType); 
LIBRARY RexxBase BY -456 

PROCEDURE UnlockRexxBase(Resource IN DO : RsrcNodeType); 
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GROUP 

TypeGrp 


ProcGrp 

All 

END Rexx. 


AttributeFlags,AttributeFlagSet jNexxStrjNexxStrPtr,intNum, 
dpNum,alpha,owned,keepStr,keepNum,RexxArg,RexxArgPtr, 
maxRMArg,Command,ModifierFlags,ModifierFlagSet,ActionRec, 
RexxMsg,RexxMsgPtr,RexxRsrc,RexxRsrcPtr,RsrcNodeType, 
globalsz,RexxTaskFlags,RexxTaskFlagSet,RexxTask,RexxTaskPtr, 
memQuant,memMask,memQuick,SrcNodePtr,SrcNode,rxsdir, 
rxstname,RxsLib,tcOpen,stop,vers,rev,rxsalloc,rxschunk, 
rxsnest,rxstpri,rxsstack,rxslisth,CharAttrFlags, 
CharAttrFlagSet,buffsz,loBuff,loBuffPtr,exist,strf,read, 
write,append,RexxMsgPort,stack,queue,f ail,RexxBase; 

GreateArgstring,DeleteArgstring,LengthArgstring, 
CreateRexxMsg,DeleteRexxMsg, 

ClearRexxMsg,FillRexxMsg,IsRexxMsg, 

LockRexxBase jUnlockRexxBase; 

TypeGrp,ProcGrp; 
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8.37 SCSIDisk 

DEFINITION MODULE SCSIDisk; 


(* $A- *) 

CONST 

scsiCmd 

= 

28 

1 Error values 

selfUnit 

= 

40 

dma 

= 

41 

phase 

= 

42 

parity 

= 

43 

selTimeout 

= 

44 

badStatus 

= 

45 

noBoard 

= 

50 


TYPE 

SCSIFIags = (readNotWrite,autoSense,oldAutoSense); 

SCSIFIagSet = SET OF SCSIFIags; 


SCSICmd 


SCSICmdPtr 


RECORD 
data 
length 
actual 
command 
cmdLength, 
cmdActual 
f lags 
Status 
senseLength 
senseActual 
END; 


ANYPTR; 
LONGCARD; 
LONGCARD; 
ANYPTR; 

CARDINAL; 

SCSIFIagSet; 

SHORTCARD; 

CARDINAL; 

CARDINAL; 


POINTER TO SCSICmd; 


GROUP 

All = scsiCmd,seifUnit,dma,phase,parity,selTimeout,badStatus,noBoard, 
SCSIFIags,SCSIFIagSet,SCSICmd,SCSICmdPtr; 


END SCSIDisk. 
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8.38 Serial 


DEFINITION MODULE Serial; 

(* $A- *) 

FROM System IMPORT LONGSET; 

FROM T_Exec IMPORT lOCommand, nonstdVAL, lOStdReq, DevicePtr, 

lOFlagSet, lOFlags; 

FROM Resources IMPORT ContextPtr; 


FROM Utility 


IMPORT StdTags; 


CONST 
query 
break 
setParams 
active 
abort 
queued 
bufrRead 


lOCommand( nonstdVAL ); 
lOCommand( nonstdVAL + 1 ); 
lOCommand( nonstdVAL + 2 ) ; 
IOFlagSet:{ 104 }; 
IOFlagSet:{ 105 }; 
IOFlagSet:{ 106 }; 
IOFlagSet:{ 107 }; 


TYPE 

SerFlags 

SerFlagSet 


= (parityOn,parityOdd,sevenWire,queuedBrk,radBoogie, 
shared,eofMode,xDisabled); 

= SET OF SerFlags; 


ExtSerFlags 

ExtSerFlagSet 

Status 


StatusSet 


= (mark,mSpOn,esf2,esf3,esf4,esf5,esf6,esf7,esf8,esf9, 
esf10,esf11,esf12,esf13,esf14,esf15,esf16); 

= SET OF ExtSerFlags; 

= (busy,paperOut,select,dataSetReady,clearToSend, 

carrierDetect,readyToSend,dataTerminalReady,overrun, 
wroteBreak,readBreak,xOffWrite,xOffRead); 

= SET OF Status; 


Error = (eO,devBusy,baudMismatch,invBaud,bufErr,invParam, 

lineErr,notOpen,portReset,parityErr,initErr, 
timerErr,bufOverflow,nodsr,nocts,detectedBreak); 


lOSerial 


lOSerialPtr 


RECORD OF lOStdReq 


ctlChar 

LONGCARD; 

rBufLen 

LONGCARD; 

extFlags 

ExtSerFlagSet; 

baud 

LONGCARD; 

brkTime 

LONGCARD; 

termArray 

ARRAY [0..1] OF LONGCARD 

readLen 

SHORTCARD; 

writeLen 

SHORTCARD; 

stopBits 

SHORTCARD; 

serFlags 

SerFlagSet; 

Status 

StatusSet; 


END; 


POINTER TO lOSerial; 
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lOSerialTags 


TAGS OF StdTags 

LONGCARD; 
LONGCARD; 


ctlChar 
rBufLen 
extFlags 
baud 
brkTime 
termArrayO 
termArrayl 
readLen 
writeLen 
stopBits 
serFlags 
END; 


ExtSerFlagSet; 
LONGCARD; 
LONGCARD; 
LONGCARD; 
LONGCARD; 
SHORTCARD; 
SHORTCARD; 
SHORTCARD; 
SerFlagSet; 


CONST 

ringlndicator = select; 


EXCEPTION SetParamsFailed : "SetParams failed"; 


PROCEDURE OpenSerial(context : ContextPtr:=NIL; 

tags : LIST OF lOSerialTags):lOSerialPtr; 

PROCEDURE CloseSerial (VAR request : lOSerialPtr); 


GROUP 

All = query,break,setParams,active,abort,queued,bufrRead,SerFlags, 
SerFlagSet,ExtSerFlags,ExtSerFlagSet,Status,StatusSet,Error, 
lOSerial,lOSerialPtr,ringlndicator,OpenSerial,CloseSerial, 
T_Exec.ExecIOGrp; 


END Serial. 
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8.39 Timer 


DEFINITION MODULE Timer; 

(* $A- *) 

FROM T_Exec IMPORT nonstdVAL, lOCommand, lORequest, DevicePtr; 
FROM System IMPORT Regs; 

FROM Resources IMPORT ContextPtr; 


CONST 

addRequest = lOCommand( nonstdVAL + 0 ) 
getSysTime = I0Command( nonstdVAL + 1 ) 
setSysTime = I0Command( nonstdVAL + 2 ) 


TYPE 

TimerUnits 


(microHz, vBlank, eClock, waitUntil, waitECIock); 


TYPE 

TimeVal = RECORD 

secs, 

micro : LONGCARD; 
END; 

TimeValPtr = POINTER TO TimeVal; 


EClockVal = RECORD 

evHi : LONGCARD; 
evLo : LONGCARD; 
END; 

EClockValPtr = POINTER TO EClockVal; 


lOTimer = RECORD OF lORequest 

IF KEY : BOOLEAN 

OF TRUE THEN time : TimeVal; 

OF FALSE THEN eClock : EClockVal; 
END; 

END; 

lOTimerPtr = POINTER TO lOTimer; 


VAR 

TimerBase : DevicePtr; 


LIBRARY TimerBase BY -42 

PROCEDURE AddTimeCVAR dest IN AO, 

source IN Al : TimeVal); 

LIBRARY TimerBase BY -48 

PROCEDURE SubTimeCVAR dest IN AO, 

source IN Al : TimeVal); 
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LIBRARY TimerBase BY -54 

PROCEDURE CmpTime (VAR timel IN AO, 

time2 IN Al : TimeVal):INTEGER; 


LIBRARY TimerBase BY -60 

PROCEDURE ReadEClockCVAR dest IN AO : ECIockVal):L0NGCARD; 

LIBRARY TimerBase BY -66 

PROCEDURE GetSysTimeCVAR dest IN AO : TimeVal); 

PROCEDURE OpenTimer(unit : TimerUnits; 

context : ContextPtr := NIL ):lOTimerPtr; 

PROCEDURE CloseTimer (VAR request : lOTimerPtr); 

GROUP 

All = addRequest,getSysTime,setSysTime,TimerUnits,TimeVal,TimeValPtr, 
lOTimer,lOTimerPtr.TimerBase,AddTime,SubTime,CmpTime,OpenTimer, 
CloseTimer,T_Exec.ExecIOGrp; 

END Timer. 
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8.40 TrackDisk 


DEFINITION MODULE TrackDisk; 
(* $A- *) 

IS. Herr, 30.09.92 


FROM T_Exec 

FROM System 
FROM Resources 


IMPORT lOCommand, nonstdVAL, lOStdReq, Unit, lOFlags, 
lOReturn; 

IMPORT SHORTSET; 

IMPORT ContextPtr; 


CONST 


motor 

= 

lOCommand( 

nonstdVAL 

+ 0 ) 


seek 

= 

lOCommand( 

nonstdVAL 

+ 1 ) 


format 

= 

lOCommand( 

nonstdVAL 

+ 2 ) 


remove 

= 

lOCommand( 

nonstdVAL 

+ 3 ) 


changeNum 

= 

lOCommand( 

nonstdVAL 

+ 4 ) 


changeState 

= 

lOCommand( 

nonstdVAL 

+ 5 ) 


protStatus 

= 

lOCommand( 

nonstdVAL 

+ 6 ) 


rawRead 

= 

lOCommand( 

nonstdVAL 

+ 7 ) 


rawWrite 

= 

lOCommand( 

nonstdVAL 

+ 8 ) 


getDriveType 

= 

lOCommand( 

nonstdVAL 

+ 9 ) 


getNumTracks 

= 

lOCommand( 

nonstdVAL 

+ 10 ); 

addChangeInt 

= 

lOCommand( 

nonstdVAL 

+ 11 ); 

remChangeInt 

= 

lOCommand( 

nonstdVAL 

+ 12 ); 

getGeometry 

= 

lOCommand( 

nonstdVAL 

+ 13 ); 

eject 

= 

lOCommand( 

nonstdVAL 

+ 14 ); 

lastComm 

= 

lOCommand( 

nonstdVAL 

+ 15 ); 

extCom 


CARDINAL($8000); 



extWrite 

= 

lOCommand( 

extCom + 

CARDINAL(write) ); 

extRead 

= 

lOCommand( 

extCom + 

CARDINAL(read) ); 

extMotor 

= 

lOCommand( 

extCom + 

CARDINAL(motor) ); 

extSeek 

= 

lOCommand( 

extCom + 

CARDINAL(seek) ); 

extFormat 

= 

lOCommand( 

extCom + 

CARDINAL(formet) ) 

extUpdate 

= 

lOCommand( 

extCom + 

CARDINAL(update) ) 

extCIear 

= 

lOCommand( 

extCom + 

CARDINAL(lOCommand 

extRawRead 

= 

lOCommand( 

extCom + 

CARDINAL(rawRead) 

extRawWrite 

= 

lOCommand( 

extCom + 

CARDINAL(rawWrite) 

numSecs 


11; 




numUnits 

= 

4; 




sector 


512; 




secShift 

= 

9; 




labelSize 

= 

16; 




1 Flags für die 

1 

lORequest Struktur 



1 

indexSync 

= 

104; 




wordSync 

= 

105; 
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TYPE 

I Flags für OpenDeviceO 

I 

TDFlags = (allowNon3_5,duimny=31) ; 

TDFlagSet = SET OF TDFlags; 

getDriveTypeFlags = (drive3_5, drive5_25, drive3_5_150RPM) ; 
getDriveTypeFlagSet = SET OF getDriveTypeFlags; 


CONST 

I Driver Errors 

I 

notSpecified 

noSecHdr 

badSecPreamble 

badSecID 

badHdrSum 

badSecSum 

tooFewSecs 

badSecHdr 

writeProt 

diskChanged 

seekError 

noMem 

badUnitNum 

badDriveType 

drivelnUse 

postReset 


I0Return(20) 

I0Return(21) 

I0Return(22) 

I0Return(23) 

I0Return(24) 

I0Return(25) 

I0Return(26) 

I0Return(27) 

I0Return(28) 

I0Return(29) 

I0Return(30) 

I0Return(31) 

I0Return(32) 

I0Return(33) 

I0Return(34) 

I0Return(35) 


TYPE 

I Typen für das driveGeometry-Kommando 

I 

DeviceTypes = (directAccess,sequentialAccess,printer,processor,worin, 

cdRom,Scanner,opticalDisk.mediumChanger, 
coinmunication,unknown=31) ; 


GeoFlags 

GeoFlagSet 


= (removable); 

= SET OF GeoFlags; 


DriveGeometry 


DriveGeometryPtr = 


RECORD 

sectorSize 

totalSectors 

cylinders 

cylSectors 

heads 

trackSectors 
bufMemType 
deviceType 
f lags 
reserved 
END; 


LONGCARD; 

LONGCARD; 

LONGCARD; 

LONGCARD; 

LONGCARD; 

LONGCARD; 

LONGCARD; 

DeviceTypes; 

GeoFlagSet; 

CARDINAL; 


POINTER TO DriveGeometry; 





949 


KAPITEL 8. SCHNITTSTELLENMODULE 


TYPE 

lOTrackDiskPtr = POINTER TO lOTrackDisk; 
lOTrackDisk = RECORD OF lOStdReq; 

count : LONGCARD; 
secLabel : LONGCARD 
END; 


DriveNum = ( DFO, DFl, DF2, DF3); 


PubFlags 

PubFlagSet 


(noClick); 

SET OF PubFlags; 


TDUPublicUnitPtr 

TDUPublicUnit 


POINTER TO TDUPublicUnit; 
RECORD OF Unit; 


compOlTrack 

complOTrack 

compllTrack 

stepDelay 

settleDelay 

retryCnt 

pubFlags 

currTrk 

calibrateDelay 
counter 


CARDINAL; 

CARDINAL; 

CARDINAL; 

LONGCARD; 

LONGCARD; 

SHORTCARD; 

PubFlagSet; 

CARDINAL; 

LONGCARD; 

LONGCARD; 


END; 


PROCEDURE OpenTrackDiskC drive : DriveNum:=DFO; 

flags :=TDFlagSet:{}; 

context : ContextPtr:=NIL ): lOTrackDiskPtr; 
PROCEDURE CloseTrackDiskC VAR request : lOTrackDiskPtr ); 


GROUP 


CommandGrp = motor,seek,f ormat,remove,changeNum,changeState,protStatus, 
rawRead,rawWrite,getDriveType,getNumTracks,addChangeInt, 
remChangeInt,getGeometry,ej ect,lastComm,extCom,extWrite, 
extRead,extMotor,extSeek,extFormat,extUpdate,extClear, 
extRawRead,extRawWrite; 


ConstGrp 


= numSecs,numUnits,sector,secShift,labelSize,indexSync, 
wordSync; 


MiscGrp 


= TDFlags,TDFlagSet,getDriveTypeFlags,getDriveTypeFlagSet; 


ErrorGrp = notSpecified,noSecHdr,badSecPreamble,badSecID,badHdrSum, 
badSecSum,tooFewSecs,badSecHdr,writeProt,diskChanged, 
seekError,noMem,badUnitNum,badDriveType,drivelnUse, 
postReset; 
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GeometryGrp= 
DeviceGrp = 
UnitGrp 
All 

END TrackDisk. 


DeviceTypes,GeoFlags,GeoFlagSet,DriveGeometry, 
DriveGeometryPtr; 

lOTrackDiskPtr,lOTrackDisk,OpenTrackDisk,CloseTrackDisk, 
DriveNum; 

PubFlags jPubFlagSet jTDUPublicUnitPtrjTDUPublicUnit; 


CommandGrp,ConstGrp,MiscGrp,ErrorGrp,GeometryGrp,DeviceGrp, 
UnitGrp; 



244 


KAPITEL 8. SCHNITTSTELLENMODULE 


8.41 Translator 


DEFINITION MODULE Translator 
(* $A- *) 

FROM Exec IMPORT LibraryPtr; 

FROM System IMPORT SysStringPtr,Regs; 

VAR 

TranslatorBase : LibraryPtr; 

CONST 

notUsed = -1; 
noMem = -2; 
makeBad = -4; 

$$0wnHeap:=TRUE 

PROCEDURE NewTransCREF in : STRING):STRING; 

LIBRARY TranslatorBase BY -30 

PROCEDURE Translate(in IN AO : SysStringPtr; 

inLen IN DO : LONGINT; 

out IN Al : SysStringPtr; 

outLen IN Dl : LONGINT):B00LEAN; 

GROUP 

All = TranslatorBase,notUsed,noMem,makeBad,NewTrans, 
TranslatorBase; 

END Translator. 
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8.42 Utility 

DEFINITION MODULE Utility; 


FROM Exec IMPORT MinNode,LibraryPtr; 
FROM System IMPORT Regs,LONGSET; 


CONST 

tagUser 

TYPE 

ClockData 


HookPtr 

HookCall 

Hook 


Tag 


= $80000000; 


= RECORD 
sec, 
min, 
hour, 
mday, 
month, 
year, 

wday : CARDINAL 

END; 

= POINTER TO Hook; 

= PROCEDUREChook : HookPtr; 

Object : ANYPTR; 
message : ANYPTR); 

= RECORD OF MinNode 

entry : PROCEDUREChook IN AO : HookPtr; 

Object IN A2 : ANYPTR; 
message IN Al : ANYPTR); 

subEntry : HookCall; 
data : ANYPTR 
END; 

= LONGCARD; 


TagArrayPtr = POINTER TO TagArray; | an array of Tag values 

TagArray = ARRAY OF Tag; | without data association 


TagltemPtr = POINTER TO Tagitem; 

Tagitem = RECORD 

tag : Tag; 
data : LONGCARD; 
END; 


TagAPtr = POINTER TO TagA; 

TagA = ARRAY OF Tagitem; 
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StdTags 


TAGS 


DONE 

IGNORE 

= 0; 

ANYPTR; 

MORE 


TagAPtr; 

MOREA 

= 2 : 

ANYPTR; 

SKIP 


INTEGER; 

USER 

= tagUser - 1; 


END; 


I for easy programming 


StdTagAPtr = POINTER TO StdTagA; 

StdTagA = ARRAY OF StdTags; 


TagListPtr = POINTER TO TagList; 

TagList = StdTagA; 


VAR 

UtilityBase 


LibraryPtr; 


PROCEDURE Dispatcher(hook IN AO 

Object IN A2 
message IN Al 


HookPtr; 
ANYPTR; 
ANYPTR); 


PROCEDURE InitHookCVAR hook : Hook; 

call : HookCall; 
data : ANYPTR):HookPtr; 


LIBRARY UtilityBase BY -30 

PROCEDURE FindTagltemCtagVal IN DO : LONGCARD; 

tagList IN AO : TagListPtr)rTagltemPtr; 

LIBRARY UtilityBase BY -36 

PROCEDURE GetTagDataCtagVal IN DO : LONGCARD; 

default IN Dl : LONGINT; 

tagList IN AO : TagListPtr):LONGINT; 

LIBRARY UtilityBase BY -42 

PROCEDURE PackBoolTagsCinitFlags IN DO : LONGSET; 

tagList IN AO : TagListPtr; 

boolMap IN Al : TagListPtr):LONGSET; 

LIBRARY UtilityBase BY -48 

PROCEDURE NextTagltemCVAR tagltem IN AO : TagltemPtr):TagltemPtr; 


LIBRARY UtilityBase BY -54 

PROCEDURE FilterTagChanges(changeList 

oldValues 

apply 


IN AO, 

IN Al : TagListPtr; 
IN DO : LONGBOOL); 


LIBRARY UtilityBase BY -60 

PROCEDURE MapTags(tagList IN AO 

mapList IN Al 
includeMiss IN DO 


TagListPtr; 
TagListPtr; 
LONGBOOL); 
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LIBRARY UtilityBase BY -66 

PROCEDURE AllocateTagltems(numitems IN DO : INTEGER):TagListPtr; 
LIBRARY UtilityBase BY -72 

PROCEDURE CloneTagltems(tagList IN AO : TagListPtr):TagListPtr; 

LIBRARY UtilityBase BY -78 

PROCEDURE FreeTagltems(tagList IN AO : TagListPtr); 

LIBRARY UtilityBase BY -84 

PROCEDURE RefreshTagltemClones(cloneList IN AO, 

origList IN Al : TagListPtr); 


LIBRARY UtilityBase BY -90 

PROCEDURE TaglnArrayCtagVal IN DO : LONGCARD; 

tagArray IN AO : TagListPtr):L0NGB00L; 

LIBRARY UtilityBase BY -96 

PROCEDURE FilterTagltems(tagList IN AO : TagListPtr; 

filterArray IN Al : TagArrayPtr; 
logic IN DO : LONGINT); 

LIBRARY UtilityBase BY -102 

PROCEDURE CallHookPkt(hook IN AO : HookPtr; 

Object IN A2 : ANYPTR; 
params IN Al : ANYPTR); 


LIBRARY UtilityBase BY -120 

PROCEDURE Ainiga2Date( amigaTime IN DO : LONGCARD; 

VAR date IN AO : ClockData); 

LIBRARY UtilityBase BY -126 

PROCEDURE Date2Ainiga(VAR date IN AO : ClockData) :LONGCARD; 
LIBRARY UtilityBase BY -132 

PROCEDURE CheckDate(VAR date IN AO : ClockData):LONGCARD; 
END Utility. 
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8.43 Workbench 


DEFINITION MODULE Workbench; 

(* $A- *) 

FROM Dos IMPORT FileLockPtr; 

FROM Intuition IM¬ 
PORT Gadget,GadgetFlags,GadgetFlagSet,NewWindow,WindowPtr; 
FROM Exec IMPORT Message,MsgPortPtr,List,LibraryPtr; 

FROM System IMPORT BPTR,SysStringPtr,Regs; 


CONST 

diskMagic 

diskVersion 

gadgetBackFill 

noIconPosition 


= $E310; 

= 1 ; 

= GadgetFlagSet:{gadgHBox}; 
= - 1 ; 


TYPE 

WBObjectType 


(wbO,disk,drawer,tool,proj ect,garbage,device,kick) 


DiskObjectPtr 

Dr awe rD at aPt r 

FreeListPtr 

WBArgPtr 

WBStartupPtr 

ToolTypeArrayPtr 


POINTER TO DiskObject; 

POINTER TO DrawerData; 

POINTER TO FreeList; 

POINTER TO WBArg; 

POINTER TO WBStartup; 

POINTER TO ARRAY OF SysStringPtr; 


WBArg = RECORD 

lock : FileLockPtr; 
name : SysStringPtr; 
END; 


= POINTER TO ARRAY OF WBArg; 

= RECORD OF Message 

process : MsgPortPtr; 

Segment : BPTR; 

numArgs : LONGINT; 

toolWindow: ANYPTR; 
argList : WBArgumentsPtr; 

END; 


INTEGER; 
List; 


WBArgument sPtr 
WBStartup 


FreeList 

DiskObj ect 


= RECORD 

numFree : 
memList : 

END; 

= RECORD 
magic 
Version 
gadget 
type 
defaultTool 
toolTypes 


CARDINAL; 

CARDINAL; 

Gadget; 
WBObjectType; 
SysStringPtr; 
ToolTypeArrayPtr; 
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currentX 

currentY 

drawerData 

toolWindow 

stackSize 

END; 


LDNGINT; 
LONGINT; 
DrawerDataPtr; 
ANYPTR; 
LONGINT; 


DrawerData 


RECORD 

newWindow 
currentX 
currentY 
f lags 
modes 
END; 


NewWindow; 

LONGINT; 

LONGINT; 

LONGINT; 

CARDINAL; 


CONST 

drawerDataFileSize = DrawerData’SIZE; 


TYPE 

AppMsgTypes 


pstd 

toolexit 

diskchange 

timer 

appwindow 

appicon 

appmenuitem 

copyexit 

iconput 


TYPE 

AppMessagePtr 

AppMessage 


= (pstd,toolexit,diskchange,timer,closedown,ioproc, 
appwindow,appicon,appmenuitem,copyexit,iconput, 
makeword=$1000); 

Standard message 

exit message from tools 

dos telling of a disk change 

we got a time tick 

msg from an app window 

msg from an app icon 

msg from an app menuitem 

exit msg from copy process 

msg from PutDiskObject in icon.library 


POINTER TO AppMessage; 
RECORD OF Message; 


type 

AppMsgTypes; 

userData 

ANYPTR; 

id 

LONGINT; 

numArgs 

LONGINT; 

wbArgs 

WBArgumentsPtr; 

Version 

CARDINAL; 

dass 

mouseX, 

CARDINAL; 

mouseY 
seconds, 

INTEGER; 

micros 

LONGINT; 

reserved 

ARRAY [8] OF LONGINT; 



END; 

TYPE 

AppWindowPtr 

= HIDDEN 

AppIconPtr 

= HIDDEN 

AppMenuItemPtr 

= HIDDEN 
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VAR 

StartupMsg : WBStartupPtr; 

WorkbenchBase : LibraryPtr; 

LIBRARY WorkbenchBase BY -48 

PROCEDURE AddAppWindowC id IN DO : LDNGINT; 

userData IN Dl : ANYPTR; 

window IN AO : WindowPtr; 

msgPort IN Al : MsgPortPtr; 

taglist IN A2 : ANYPTR):AppWindowPtr; 

LIBRARY WorkbenchBase BY -54 

PROCEDURE RemoveAppWindow(window IN AO : AppWindowPtr); 

I LIBRARY WorkbenchBase BY -60 | geht so nicht wegen A4 

PROCEDURE AddAppIconC id IN DO : LONGINT; 

userData IN Dl : ANYPTR; 

REF text IN AO : STRING; 

msgport IN Al : MsgPortPtr; 

lock IN A2 : FileLockPtr; 

diskobj IN A3 : DiskObjectPtr):AppIconPtr; 

LIBRARY WorkbenchBase BY -66 

PROCEDURE RemoveAppIcon(appIcon IN AO : AppIconPtr); 


LIBRARY WorkbenchBase BY -72 

PROCEDURE AddAppMenuItemC id IN DO : LONGINT; 

userData IN Dl : ANYPTR; 

REF text IN AO : STRING; 

msgport IN Al : MsgPortPtr; 

tags IN A2 : ANYPTR):AppMenuItemPtr; 

I ~= NIL for now 


LIBRARY WorkbenchBase BY -78 

PROCEDURE RemoveAppMenuItem(appMenu IN AO : AppMenuItemPtr); 

GROUP 

All = diskMagic,diskVersion,gadgetBackFill,noIconPosition, 

WBObj ectType,DiskObj ectPtr,DrawerDataPtr, 

FreeListPtr,WBArgPtr,WBStartupPtr,WBArg,WBArgumentsPtr, 
FreeList,DiskObject,DrawerData,WBStartup,drawerDataFileSize, 
StartupMsg; 

END Workbench. 
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Anhang A 


Lösungen 


Achtung! Lesen Sie nur weiter, wenn Sie dies mit Ihrem Gewissen ve¬ 
reinbaren können. 

Anschließend sind die Lösungen zu allen Übungsaufgaben des Ein¬ 
führungskapitels angeführt. 

Sie sollten sich wirklich genau überlegen, ob Sie die Lösung nicht 
selbst erarbeiten wollen. Oft ist es ein Zeichen von Schwäche, wenn man 
in einer vorgegebenen Lösung nachschaut. Benutzen Sie diese Auflistung 
also nur, wenn Sie kontrollieren wollen, ob das von Ihnen erarbeitete 
Ergebnis richtig ist. Bedenken Sie dabei, daß es bei der Programmierung 
oft verschiedene Lösungsmöglichkeiten gibt. Aus diesem Grunde können 
die hier aufgeführten Ergebnisse von Ihren abweichen, jedoch sollten die 
Resultate natürlich gleich sein. 


1 
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A.l Lösungen 1 

1. b, c, d, f 

2. CARDINAL, LONGCARD, SHORTCARD, INTEGER, SHORTINT, LONGINT, 
REAL, LONGREAL, BOOLEAN, CHAR 

3. Wenn REAL-Zahlen geteilt werden, wird das „/“-Zeichen benntzt, 
mit DIV werden INTEGER- nnd CARDINAL-Zahlen dividiert. 

4. Die Znweisung ist nngültig, da ch nnd I nicht den gleichen Typ 
haben. 
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A.2 Lösungen 2 

1. Sie gibt die Meldung „Ich liebe \Cluster{}!“ aus. 

2. MODULE SummeIntegers; 

FROM InOut IMPORT Readint, WriteString, WriteLn; 

VAR 

I,J, Summe: INTEGER; 

BEGIN 

WriteStringC"Erste Zahl eingeben "); 

Readint(I); 

WriteLn; | Eine Leerzeile erzeugen 
WriteStringC'Zweite Zahl eingeben "); 

Readint(J); 

WriteLn; | Noch eine Leerzeile 
Summe := I + J; 

WriteStringC'Die Summe ist "); 

Writeint(Summe) 

END Summelntegers. 

3. Der CLOSE-Teil wird dann ausgeführt, wenn das eigentliche Pro¬ 
gramm beendet wird. Dies geschieht bei einem Programmabbruch 
durch den Benutzer, durch einen Fehler oder auch bei normalem 
Programmverlauf. Hier befinden sich Anweisungen, die reservier¬ 
ten Speicher freigeben oder offene Fenster wieder schließen. 

4. CARDINAL-Werte können nur positive ganze Zahlen sein, wohin¬ 
gegen INTEGER-Werte positive und auch negative ganzzahlige 
Werte annehmen können. 

5. (a) BOOLEAN 

(b) LONGINT (Zahlenbereich beachten!) 

(c) REAL oder LONGREAL 

(d) SHORTCARD, CARDINAL, LONGCARD, SHORTINT, INTEGER, LONGINT 
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(e) CHAR 

(f) ARRAY OF CHAR oder STRING 

6. CONST 

TestWert = 70000; 

7. c und d. 

8. MODULE Wandel; 

VAR 

R: REAL; 

I: INTEGER; 

BEGIN 

R := 1005.97; 

I := INTEGER (R); 

R := REAL (I) 

END Wandel. 
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A.3 Lösungen 3 

1. MODULE SumSum; 

FROM InOut IMPORT Readint; 

VAR 

i,j,Summe: INTEGER; 

BEGIN 

Readint(i); 

Summe := 0; 

FOR j := i TO 0 BY -1 DO 
Summe := Summe + j; 

I oder INC(Summe,j); 

END 

END SumSum. 

2. REPEAT..UNTIL wird mindestens einmal ausgeführt, wobei WHILE..DO 
je nach Schleifenbedingung möglicherweise überhaupt nicht dur¬ 
chlaufen wird. 

Weiterhin wird WHILE..DO ausgeführt, wenn eine Bedingung 
TRUE ist, REPEAT..UNTIL, wenn eine Bedingung EALSE ist. 

3. WHILE..DO, REPEAT..UNTIL, LOOP..EXIT, EOR. 

4. 50 

5. Der ELSE-Teil (Anweisung5)! a ist negativ, deshalb ist die erste 
Bedingung FALSE, b ist zwar TRUE wird durch NOT allerdings ne¬ 
giert, so daß die zweite Bedingung FALSE wird (c OF ... braucht 
nicht mehr ausgewertet zu werden, da eine mit AND verknüpfte 
Bedingung FALSE wird, wenn nur eine der beiden Werte FALSE 
wird). 

Anweisungd wird scheinbar ausgeführt, beachten Sie aber die Groß/Klein¬ 
schreibung, so werden Sie sehen, daß „d“ nicht in OF "B". ."Z" 
enthalten ist. 
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A.4 Lösungen 4 

1. Eine Aufzählung ist ein benutzerdefinierter Typ, bei dem alle 
möglichen Werte namentlich aufgeführt sind. Ein Unterbereich 
ist ein benutzerdefinierter Typ, der einem begrenzten Bereich eines 
vor definierten Typs oder eines Standardtyps entspricht. 

2. Eine Aufzählung ist eine Auflistung der möglichen Werte eines 
Typs, eine Menge eine Zusammenfassung von Objekten. 

3. Der Wertebereich für Y (1-10) wird überschritten. 

4. A + B = {a, b, c, d, e, f, g} 

A * B = {d> 

A - B = {a, b, c} 

A / B = {a, b, c, e, f, g} 

5. Nein, da sie nicht außerhalb eines MODULEs bestehen kann. 

6. Global: B und C. Lokal: X und ZAEHLER. 

7. Willi: ARRAY [0..9], [0..99], [0..8] OF INTEGER; 

8. Die Eelder sind nicht vom selben Typ und können nicht direkt 
zugewiesen werden. 

9. a: 202, b: 242, c: 2 

10. Ein Eeld muß aus gleichen Elementen bestehen, wogegen ein RE¬ 
CORD aus vielen unterschiedlichen Variablentypen zusammenge¬ 
setzt sein kann. 

11. TYPE 

Flugzeug = RECORD 

Motoren: SHORTCARD; 

Reichweite: LONGCARD; 

PassagierZahl: CARDINAL; 

Name: STRING(30) 

END; 
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12. PROCEDURE Anzeigen (A: Flugzeug); 
BEGIN 

WriteCard(Motoren,5); 
WriteCard(PassagierZahl,5); 
WriteCard(Reichweite,5); 
WriteString(Name); 

END Anzeigen; 
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A.5 Lösungen 5 

1. Die Routine ruft sich selbst unendlich auf und stürzt schließlich 
ab, egal von welchem Programm sie aufgerufen wurde. 

2. Zuerst verringert die Arbeit mit kleineren Modulen die Compilie¬ 
rungszeit während der Entwicklung. Weiterhin kann jedes Modul 
unabhängig von einem eigenen Team entwickelt werden. 

3. Ein Definitionsmodul gibt einfach an, was eine Bibliothekseinheit 
leistet; das entsprechende Implementationsmodul enthält tatsächlich 
den Code für die Ausführung der Eunktionen. 

4. (a) Da InOut unqualifiziert importiert wurde, müssen alle Au¬ 

frufe der Bezeichner ausdrücklich qualifiziert werden. 

(b) Das Modulendekennzeichen lautet fälschlicherweise A. 

Das richtige Programm lautet: 

MODULE BSPl; |Das ist richtig! 

IMPORT InOut; 

BEGIN 

InOut.WriteStringC"Cluster la vista!"); 

InOut.WriteLn; 

END BSPl. 
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Anhang B 

Fehlermeldungen 

B.l Fehlermeldungen des Editors 

• Fehlerhaftes Cluster-Format 

? Sie haben versucht, einen Text zu laden, dessen Format weder 
dem ASCII-Format noch dem Cluster-Format entspricht. Oder 
einen Text, der im Cluster-Format gespeichert wurde hat einen 
Format-Fehler. 

! Laden Sie nur ASCII- oder Cluster-Texte ein. 

• Gewünschter Text konnte nicht geladen werden 

? Entweder Name oder Pfad des Textes waren falsch, wodurch der 
Text nicht geladen werden konnte. 

! Kontrollieren Sie den Pfad und Namen auf ihre Richtigkeit. 

• Gewünschter Text konnte nicht gesichert werden 

? Wahrscheinlich ist Ihre Diskette oder Festplatte voll. 

! Schaffen Sie Platz auf Ihrem Speichermedium. 

• Kein Block in diesem Text markiert 

? Sie haben COPY, CUT oder DELETE angewählt, ohne daß zuvor 
ein Block markiert wurde. 
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Anhänge. Fehlermeldungen 


! Markieren Sie einen Block. 

• Kein Block vorhanden 

? Sie haben PASTE angewählt, ohne das ein Block im Pnffer war. 

! Es mnß erst ein Block im Pnffer stehen, wenn Sie ihn kopieren 
wollen. 

• Letzte Möglichkeit. Sichern??? 

? Diese Abfrage befindet sich im CLOSE-Teil des Editors. Sie er¬ 
scheint normalerweise nnr dann, wenn Sie den Editor verlassen 
wollen nnd einen Text noch nicht gesichert haben. Erscheint sie 
zn einem anderen Zeitpnnkt, ist mit Sicherheit mit dem Abstnrz 
des Editors zn rechnen. Sollten Sie also nicht ganz sicher sein, daß 
Sie den Text nicht mehr brauchen, sollten Sie ihn auf alle Eälle 
sichern. 

! Text abspeichern oder nicht. 

• Nicht genug Systemspeicher für die gewünschte Eunktion 

? Sie haben versucht mehr Textspeicher einzustellen, als von Ihrer 
Speicherkonfiguration her möglich. 

! Beenden Sie andere Tasks, löschen Sie unnötige Eiles aus der Ram- 
Disk oder kaufen Sie sich eine Speichererweiterung. 

• Nicht genug Textspeicher für gewünschte Eunktion 

? Sie haben entweder einen Text zu laden versucht, der nicht in den 
aktuellen Textspeicher paßt oder durch eine Blockoperation einen 
bestehenden Text so vergrößert, daß er nicht mehr in den Speicher 
passen würde. 

! Stellen Sie in den Voreinstellungen eine größere Textspeichergröße 
ein. 

• Rettungs-Save. Text nicht gesichert. Sichern??? 
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? Erscheint diese Meldung, sollten Sie „JA“ anwählen, wenn Sie sich 
nicht sicher sind, ob Sie den Text schon gespeichert haben. Dieser 
Request er kann nämlich mehrere Ursachen haben: Die harmlo¬ 
seste ist, daß Sie in den Preferences CHICON angewählt haben 
und ICONIZ aufgerufen haben. Eine andere Möglichkeit ist, daß 
Sie versuchten einen veränderten Text zu löschen oder einen ande¬ 
ren Text versuchen über den geänderten zu laden. Die schlimmste 
Möglichkeit ist jedoch, daß der Editor gerade am abstürzen ist und 
ihnen noch die Gelegenheit geben will ihre Texte zu speichern. 
Daher sollten Sie vor allem, wenn diese Meldung sehr plötzlich 
auftaucht (z. B. bei einem RUN oder MAKE oder bei sonst einer 
Gelegenheit, für die Sie nicht verantwortlich sind), „JA“ anwählen. 

! Text abspeichern oder nicht. 

B.2 Feldermeldungen des Compilers 

Bei einigen Eehlermeldungen, ist als Ursache „Gompilerfehler“ ange¬ 
geben. Diese Eehler sollten eigentlich nicht mehr Vorkommen. Sollte 
dies dennoch geschehen, ist dies meist kein Eehler des Gompilers, son¬ 
dern Eolge einer seltenen Eehlerkombination, die den Gompiler aus dem 
„Takt“ gebracht hat. Ealls ein solcher Eehler einmal bei Ihnen auftritt, 
wären wir Ihnen dankbar, wenn Sie und dies melden und uns das Pro¬ 
gramm, bei dem der Eehler auftrat, zusenden würden. 

• „ ; “ erwartet 

? Sie haben hinter der letzten Anweisung das Semikolon vergessen. 

! Eügen Sie ein Semikolon an der richtigen Stelle ein. Achtung: 
Bei diesem Eehler kann der Gompiler nicht die exakte Position 
angeben, er steht meist etwas unterhalb. 

• „ “ erwartet 

? Sie haben ein Leerzeichen vergessen, daß an dieser Stelle laut Spra- 
chdefinition stehen sollte. 
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! Fügen Sie ein Leerzeichen an der richtigen Stelle ein. 

• „ . “ erwartet 

? Sie haben bei einer Qnalifiziernng oder am Modulende den Punkt 
vergessen. 

• „ . . “ erwartet. 

? Sie haben bei einer Array- oder Unterbereichsdefinition zwischen 
den Indexgrenzen oder bei einem OF zwischen den Bereichsgren¬ 
zen, zwei Punkte vergessen. 

• „)“ erwartet. 

? Sie haben bei einem Ausdruck mehr öffnende als schließende Klam¬ 
mern verwendet, oder bei einer Prozedurdeklaration wurde die 
schließende Klammer am Prozedurkopf vergessen. 

! Zählen Sie die Klammern nach, und fügen Sie eventuell eine schließende 
Klammer ein. Bei einem Ausdruck liegt der Fehler oft nicht an 
einer falschen Anzahl sondern einfach an der falschen Position der 
Klammer. 

• „/“ nur für REAL und SET’s 

? Sie haben den „/“-Operator auf einen anderen Typen, als auf 
REAL oder einen Set angewandt. 

! Kontrolieren Sie die Typen der verwendeten Variablen/Konstanten. 

• „ : = “ erwartet 

? Wahrscheinlich haben Sie bei einer Zuweisung statt „ :=“ nur „=“ 
geschrieben. 

• oder erwartet 

? Wahrscheinlich haben Sie versucht einer Zeichen- oder Stringva¬ 
riablen eine Zahl oder einen String ohne Anführungszeichen zuzu¬ 
weisen. 
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! Kontrollieren Sie, ob es sich bei der Variablen wirklich nm eine 
Zeichenvariable handeln soll, oder ob Sie nnr ein oder 
vergessen haben. 

• $W Option nicht möglich 

? Sie haben die $W-Option gesetzt und dennoch einen Prozedurau¬ 
fruf innerhalb der WITH-Struktur. 

! Löschen Sie die Option oder rufen Sie die Prozedur außerhalb der 
WITH-Struktur auf. 

• „’W’ oder ’L’ erwartet“ 

? Sie haben bei einer Assembleranweisung die Länge Byte verwen¬ 
det, obwohl hier nur Wort oder Langwort möglich ist. 

! Korrigieren Sie bitte die Längenangabe. 

• nicht für diesen Typen definiert 

• „+“ nicht für diesen Typen definiert 

• nicht für diesen Typen definiert 

? Sie haben einen der oberen Operatoren auf einen Typen ange¬ 
wandt, für den dieser nicht definiert ist (z. B. BOOLEAN). 

! Kontrollieren Sie den Typen der verwendeten Variable/Konstante. 

• Adreßausdruck zu komplex 

? Komplexe Adressierung bei akutem Registermangel, in Folge vie¬ 
ler Adreßregistervariablen. 

! Werfen Sie einige der Variablen aus den Registern. 

• Adreßregister erwartet als Parameter bei UNLK 

• Adreßregister erwartet 

? Sie haben eine indirekte Adressierung ohne Adreßregister als Basis 
versucht. 
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! Verwenden Sie ein Adreßregister. 

• Anderer Typ als in Forward-Deklaration 

? Bei der Deklaration einer FORWARD-deklarierten Prozednr nn- 
terscheiden sich sie Parameter in den Typen. 

! Vergleichen Sie FORWARD- nnd Hauptdeklaration. 

• Array erwartet 

? Sie haben auf eine normale Variable, wie auf ein Array zugegriffen 
(a[x]) 

! Kontrollieren Sie den Typen der verwendeten Variablen. 

• Array bzw. String erwartet 

? An einen SysStringPtr in einer Librarydefinition kann entweder ein 
SysStringPtr, ein String oder ein ARRAY OF CHAR übergeben, 
Sie haben versucht etwas anderes zu übergeben, was der Compiler 
selbstverständlich reklamiert. 

• Array mit zu großem Index 

? Sie haben ein Array mit mehr als 32000 Elementen definiert. 

! Sollten Sie wirklich ein so großes Feld benötigen, realisieren Sie 
dies bitte über eine dynamische Listenstruktur. 

• AS in WITH erwartet 

? Sie haben in einer WITH-Struktur nur einen Typen angegeben, 
jedoch kein AS dahinter geschrieben. 

! Prüfen Sie, ob der angegebene Typ auch wirklich ein Typ und 
nicht nur eine falsch geschriebene Variable ist. Ergänzen Sie ge¬ 
gebenenfalls ein AS. 

• Attributsbezeichner erwartet 

? Sie haben hinter einen Typen/Variable ein „ ’ “ geschrieben, jedoch 
kein Attribut wie Z. B. SIZE oderPTR. 
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• Aufgeschobener Zeiger nicht definiert 

? Der Zeiger war nicht in dem Modul definiert, aus dem er importiert 
wurde. 

• Aufzählungs-/Unterbereichstyp erwartet: 

? Sie haben bei einer Array-Definition als Indextypen keinen Aufzählungs- 
/Unterbereichstypen verwendet, sondern z. B. REAL oder LONGRAL. 

• Aufzählungs- oder Numerischen Typen erwartet 

? Sie haben bei einer Array-Definition als Indextypen keinen zählbaren 
Typen verwendet, sondern wahrscheinlich einen komplexen Typen 
(Record, Array) oder eine Menge oder einen Zeiger. 

• Ausdruck nicht Adressierbar 

? Sie haben versucht, die Adresse eines nicht adressierbaren Aus¬ 
drucks, z. B. einer Summe zu bilden. Dieser Fehler tritt auch 
auf, wenn Sie versuchen einen Ausdruck an einen VAR-Parameter 
zuübergeben. 

! Weisen Sie den Ausdruck erst einer Variablen zu, oder verwenden 
Sie Werteparameter. 

• Ausdruck zu komplex 

? Ihr Andruck hat zu viele Schachtelungen (Klammern), so daß dem 
Compiler bei der Auswertung die Register ausgehen. 

! Zerlegen Sie den Ausdruck in mehrere Teilausdrücke oder nehmen 
Sie einige Variablen aus Registern, sofern sie Regist er variablen 
verwenden. 

• Ausgabefile könnt nicht geöffnet werden 

? Der Compiler konnte kein Symboh/Objektfile erstellen, weil die 
Diskette/Festplatte voll war oder kein Verzeichnis OBJ gefunden 
wurde. 
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• BEGIN erwartet in Prozedur: 

? Sie haben in einer Prozedur das BEGIN vergessen. Im Gegensatz 
zu Modulen ist dies bei Prozeduren Pflicht. 

! Fügen Sie ein BEGIN ein. 

• Bei GAST Typ als erster Parameter 

? Sie haben bei GAST die Variable als ersten Parameter angegeben. 

• Bereich erwartet 

? Sie haben bei einer Arrayvariablen-Definition innerhalb eines Re¬ 
cords den Bereich vergessen. Offene Arrays sind nur als Typen 
oder Konstanten erlaubt. 

• Bereich des Objekts kann nicht ermittelt werden 

? ’ RANGE ’MAX ’MIN ist für diesen Typen nicht definiert. 

• Bezeichner erwartet 

? Nach der Sprachdefinition erwartet der Gompiler hier einen Be¬ 
zeichner. Hierfür kann es ziemlich viele Gründe geben z. B. nach 

VAR, TYPE, RECORD etc.. 

• Bezeichner existiert bereits 

? Sie haben einen Bezeichner definiert, der an anderer Stelle dieses 
Sichtbarkeitsbereiches schon verwendet wird. 

• Bezeichner ist kein Typ 

? Sie haben bei einer Deklaration als Typ einen Bezeichner angege¬ 
ben, der kein Typ ist. 

! Kontrollieren Sie die Definition des Bezeichners. 

• Bezeichner nicht bekannt 

• Bezeichner nicht sichtbar 
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? Sie haben einen Bezeichner verwendet, der dem Compiler noch 
nicht bekannt ist. Dies kann daran liegen, daß er noch nicht defi¬ 
niert wnrde, daß ein Schreibfehler vorliegt, oder daß er erst später 
definiert wird. 

! Kontrollieren Sie die Schreibweise nnd Deklaration des Bezeich¬ 
ners, deklarieren Sie ihn gegebenenfalls mit FORWARD. 

• Bezeichner überladen nnr für Anfzählnngen 

? Element eines Anfzählnngstypen existiert schon als anderes Ob¬ 
jekt. 

! Kontrollieren Sie die Schreibweise, verwenden Sie gegebenenfalls 
einen anderen Bezeichner für das Element. 

• BOOLEAN erwartet 

? In IF, WHILE, REPEAT, etc. oder einer Boolznweisung, steht 
als Bedingnng kein bollscher Ausdrnck. Dies passiert leicht, wenn 
man bei einem Fnnktionsaufrnf, der einen Boolwert znrückliefert, 
die Klammern vergißt, wodnrch der Compiler den Fnnktionsaufrnf 
als Zeiger auf die Funktion interpretiert. 

• BY erwartet 

? Sie haben eine FOR-Schleife programmiert, bei der der Startwert 
größer als der End wert ist. Bei runterzählenden Schleifen ist eine 
Schrittwertangabe jedoch zwingend. Die zweite Möglichkeit: Sie 
haben bei einer Libraryprozedur ein BY vergessen. 

• CAST kann nur zwischen gleichlangen Typen konvertieren 

? Sie haben versucht zwei verschieden lange Typen mit CAST zu 
konvertiern. Dies ist jedoch nicht möglich. 

! Versuchen Sie zu konvertieren, indem sie t (v) schreiben wobei t 
der neue Type undv den zu konvertierenden Ausdruck/Variable 
darstellt. 

• CHK nicht in REG - Compiler Eehler 
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? Compilerfehler 

• CLASS ? 

? Sie haben eine normale Variable wie einen offenen Typen benntzt. 

• CLONE vorerst nnr bei Objekten 

? Sie haben CLONE anf ein Nicht-Objekt, also Variable, Konstante, 
Prozednr etc. angewendet. Dies ist nicht möglich. 

• CLOSE erwartet 

? Nach dem BEGIN eines Modnls folgte weder CLOSE noch END, 
sondern ein Element, daß innerhalb eines BEGIN-Teils nicht er¬ 
laubt ist. 

• ComChkNil ohne InDirElag 

? Compilerfehler 

• Datenregister als zweiten Typen erwartet. 

? Ein Assemblerbefehl erwartet als zweiten Parameter ein Datenre¬ 
gister. 

• Definitionsmodul nicht gefunden 

? Modul konnte beim Import nicht gefunden werden. 

! Kontrollieren Sie die Importpfade, überprüfen Sie, ob das Modul 
wirklich existiert. 

• Der Typ der unteren Grenze muß mit dem der oberen übereinstimmen 

? Bei einer Unterbereichsdefinition stimmt die untere Grenze nicht 
mit der oberen Grenze vom Typ her überein. 

• Die Variable gibt’s schon 

? Sie haben zwei Variablen mit dem gleiche Namen definiert. 

• Direktoperand erwartet 
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? Der von Ihnen verwendete Assemblerbefehl erwartet einen Direk¬ 
toperanden. 

• Displacement erwartet 

? Sie haben bei der Definition einer Library-Prozednr das Displace¬ 
ment BY -X vergessen. 

• Displacement ist zn groß. 

? Bei einer indirekten Adressiernng mit Displacement, ist das Dis¬ 
placement anßerhalb des erlanbten Bereichs. 

• DISPOSE bisher nnr für Objekte 

? Sie haben die Standardprozednr DISPOSE auf ein Nicht-Objekt 
angewandt. 

• DIV nur für ganze Zahlen 

? Sie haben den Operator DIV auf Real-Zahlen angewandt, obwohl 
dieser nur für Ganzzahlen definiert ist. 

! Verwenden Sie „/“ für Real-Zahlen. 

• Division durch 0 

? Sie haben durch Null oder durch eine Konstante mit Wert Null 
geteilt. 

• DO nach FOR erwartet 

• DO nach WITH erwartet 

? Sie haben nach FOR oder WITH „DO“ vergessen. 

• DO, AND.WHILE erwartet 

? Sie haben nach der Bedingung bei einer While-Schleife etwas an¬ 
deres als „DO“ oder „AND_WHILE“ geschrieben. 

• Doppelte Defintion 
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• Doppelte Defintion im gleichen Sichtbarkeitsbereich 

? Sie haben einen Bezeichner definiert, den es in dieser Prozednre- 
bene schon gibt. 

• Doppelte Libary-Definition 

? Sie haben in einer Libary-Definition zwei Prozednren mit gleichem 
Namen definiert. 

• Doppeltes Forward 

? Eine Prozednr wnrde zweimal mit FORWARD-definiert. 

• Ein Operand erwartet 

? Anf einen Assemblerbefehl, der ein einziges Argnment erwartet, 
folgte entweder kein oder zwei Argnmente. 

• Eigene Symboldatei konnte nicht geöffnet werden 

? Sie haben ein Implementationsmodnl compiliert, nnd der Compiler 
konnte dessen Symboldatei nicht finden. 

! Compilieren Sie erst das Definitionsmodnl. 

• Einfache Konstante erwartet 

? Sie haben statt einer einfachen Zahlen- oder Zeichenkonstante eine 
typisierte Konstante verwendet. 

• END in WITH erwartet 

• END nach LOOP erwartet 

? Der Compiler ist anf ein Prozednr-/Modnlende gestoßen, bevor 
eine WITH-/LOOP-Strnktnr beendet worden ist. 

• END erwartet 

? Der Compiler merkt am Ende einer Prozednr/Modnl, daß die 
Anzahl der begonnenen Strnktnren nicht mit der der beendeten 
übereinstimmt. 
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! Ein Rezept zu geben ist schwierig, da der Fehler meist erst weit von 
dessen Ursprung entdeckt wird. In schweren Fällen empfiehlt es 
sich Teile auszukommentieren, um die Fehlerstelle zu lokalisieren. 

• END oder CLOSE erwartet 

? Nach dem BEGIN eines Moduls folgte weder CLOSE noch END, 
sondern ein Element, daß innerhalb eines BEGIN-Teils nicht er¬ 
laubt ist. 

• Erster Operand bei SHL muß Ganzzahl oder SET sein 

• Erster Operand bei SHR muß Ganzzahl oder SET sein 

? Bei den Operatoren SHL/SHR muß der erste Operand eine Ganz¬ 
zahl oder eine Menge sein, was in diesem Fall nicht der Fall war. 

! Kontrollieren Sie die Typen der verwendeten Variablen. 

• Erben nur von Klassen möglich. 

? Sie können nur von Klassen erben. 

• EXCEPT erwartet 

? Nach einem TRY folgte kein EXCEPT sondern ein END oder 

ein OF. 

! Kontrollieren Sie, ob ein überzähliges END existiert, oder ob Sie 
tatsächlich das EXCEPT vergessen haben. Vielleicht haben Sie 
auch einfach TRY mit TRACK verwechselt. 

• Exception erwartet 

? Nach einem EXCEPT OF folgte keine Exception/Exceptiongruppe. 
Möglicherweise ein Schreibfehler. 

• EXG nur für Register 

? Der Assemblerbefehl EXG ist nur auf Register anwendbar. 

• Falsches Registerin NeedDOPtr 
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• Falsches Registerin NeedDlPtr 

• Fehler bei WITH-Freigabe, Stackdifferenzen 

• Fehler beim Import von Ennmeration - Compilerfehler 
? Compilerfehler 

• Fehler in ’ActSwitches’ 

? Compilerfehler 

• Fehlerhafter Operand 

? Der verwendete Operator ist nicht für den Typ dieses Operanden 
definiert. 

• Fehlerhafte Addressiernngsart 

• Fehlerhafte Adressiernng 

• Fehlerhafte Längenangabe 

? Fehler, die bei der Assemblerprogrammiernng auftreten können. 
Der Grnnd ist in der Fehlermeldnng dentlich ersichtlich. 

• Fehlerhafte Standardkonstante 
? Compilerfehler 

• Fehlerhafter Operand für USE 

? Nach dem Assemblerbefehl USE folgte etwas anderes als eine Re- 
gisterliste. 

• Eehlerhaftes Symbol in Ansdrnck 

? An dieser Stelle des Ansdrucks darf dieses Symbol nicht verwendet 
werden. 

• Eile ist kein Symbolfile 

? Ein Symbolfile eines Moduls wurde zwar gefunden, hat aber einen 
Eormatfehler. 
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! Compilieren Sie das entsprechende Definitionsmodnl noch einmal. 

• FOR Verregisternng 

? Compilerfehler 

• FPU mismatch 

? Sie haben FPU-Register verwendet, ohne die FPU angeschaltet zn 
haben. 

! Schalten Sie den Schalter MC68881 ein. 

• Gefüllte Liste ist leer ?? 

? Compilerfehler 

• Generative Modnle nnr für Pointer möglich 

? Sie haben versucht ein generisches Modul mit einem anderen Ty¬ 
pen als einem Pointer auszuprägen. 

• Generatives Modul erwartet Typen 

? Sie haben versucht ein generisches Modul ohne Typangabe zu im¬ 
portieren. 

• Generativer Parameter paßt nicht 

? Der aktuelle generische Parameter paßt nicht zur Formaldefinition 
im generischen Modul. 

• Generatives Modul erwartet. 

? Sie haben versucht ein einfaches Modul wie eine generisches zu 
importieren. 

• Gruppen nur in Def.Modulen 

? Sie haben versucht in einem Implementations- oder Hauptmodul 
eine Importgruppe zu definieren, welches nur in Definitionsmodu¬ 
len erlaubt ist. 




26 


Anhänge. Fehlermeldungen 


• Größe des Objects kann nicht ermittelt werden 

? Das Attribnt ’SIZE ist für dieses Object nicht definiert. 

• IF erwartet END 

? Sie haben nach einer IF-Strnktnr das „END“ vergessen. 

• Illegaler Fnnktionsanfrnfmodus 

? Sie haben versucht eine Prozedur als Funktion aufzurufen, oder 
umgekehrt. 

• Illegaler Modus in NeedDOPtr 

• Illegaler Modus in NeedDlPtr 
? Compilerfehler 

• Illegales Zeichen in Switch 

? Bei der Definition von Compilerswitches gelten die gleichen Regeln 
für Schreibweise wie für alle anderen Bezeichner von Cluster. Siehe 
Sprachdefinition. 

• Immediate oder Datenregister als Quelloperand 
? Fehlermeldung des Assemblers. 

• IMPORT erwartet 

? Sie haben nach einem FROM Modul „IMPORT“ vergessen. 

• IN erwartet 

? Sie haben bei Registerparametern oder oder bei einem SET-Vergleich 
„IN“ vergessen. 

• INC/DEC erwarten nummerischen Typ als zweiten Parameter 

? Sie haben bei INC/DEC als zweiten Parameter einen komplexen 
Typen, einen Zeiger oder eine Realzahl übergeben. 
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• Indirekte Adressierung erwartet 

• Indirekte Adressierung nach Displacement erwartet 

? Fehlermeldung des Assemblers. 

• Inkompatible Operandentypen 

• Inkompatible Typen 

• Inkompatible Zuweisung 

? Sie haben bei einer Operation oder Zuweisung nicht kompatible 
Typen verwendet. Beachten Sie, daß es Typen gibt, die zwar 
zuweisungs- jedoch nicht rechnungskompatibel sind. 

• Inkompatibler Indextyp 

? Unterschiedliche Typen bei unterer und oberer Grenze eines In¬ 
dexes einer Array-/Unterbereichsdefinition. 

• Inkompatibler Tag typ 

? Der Typ des Tagwertes stimmt nicht mit dem der Tagdefinition 
überein. 

• INTEGER erwartet. 

? Sie haben ein Object mit einem anderen Typen als Integer an einer 
Stelle verwendet, an der die Sprachdefinition Integer vorraussetzt. 

• INTEGER-Konstante erwartet. 

? Sie haben eine andere oder keine Konstante an einer Stelle ver¬ 
wendet, an der die Sprachdefinition eine Integer-Konstante vor¬ 
raussetzt, z. B.: Sie haben bei einer EOR-Schleife als Schrittwert 
eine Realzahl angegeben. 

• IS erwartet Objekttypen als zweiten Parameter 

? Nur Objekte lassen sich Ihren Typ mit IS abfragen. 

• Kein bekannter Recordbezeichner 
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Anhänge. Fehlermeldungen 


? Sie haben ein Recordelement (r.elem) qnalifiziert, welches nicht 
in diesem Record enthalten ist. Meist nnr ein Tippfehler. 

! Untersuchen Sie die Recorddefinition. 

• Kein eigener Heap eingestellt 

? Sie wollten an einen VAR-/REF-Parameter eine Funktion zuwei¬ 
sen, die einen offenen Typen z. B. STRING zurückgibt, ohne daß 
diese für einen eigenen Zwischenspeicher für den Rückgabewert 
sorgt. 

! Entweder haben Sie nur vergessen $$0wnHeap: =TRUE zu setzen, 
oder sich gar nicht um einen Heap gekümmert. Im letzteren Fall 
sollten Sie unter refALLOC-RESULT nachlesen. 

• Kein Element des Records 

? Sie haben versucht auf ein Element eines Records zuzugreifen, das 
in der Definition nicht existiert. 

• Kein generatives Modul 

? Sie haben versucht ein einfaches (nicht generisches Modul) mit 
einer Typangabe zu importieren. 

• Kein MAX dieses Typs 

• Kein MIN dieses Typs 

? Sie haben versucht, das größte bzw. kleinste Element eines nicht 
abzahlbaren Typen zu ermitteln, was nicht möglich ist. Dies ist 
z. B. bei Record und Pointern der Fall. 

• Kein Typ/Typkonstruktor 

? In Ihrem Programm folgt hinter dem Doppelpunkt einer Variablen¬ 
oder dem Gleichheitszeichen einer Typdeklaration kein Typ oder 
Typkonstruktor wie ARRAY, RECORD, etc.. 

• Keine offenen Arrays forwarddeklarierbar 


©1992/93 by StoneWare 




B.2. FELDERMELDUNGEN DES COMPILERS 


29 


? Sie haben versucht ein offenes Array vor der eigentlichen Definition 
zu deklarieren, was nicht möglich ist. 

• Kein offener Typ für RESULT 

? Sie haben versucht einen Heap mit ALLOC_RESULT zu erzeu¬ 
gen, obwohl es sich bei dem Rückgabetypen um keinen offenen 
handelte. 

• Kein Schreibzugriff auf Object erlaubt 

? Sie können nicht auf Konstanten oder REE-Parameter schreibend 
zugreifen. 

• Kein Stapel 

? Sie haben versucht einen Switch zu stapeln, der dafür nicht geei¬ 
gnet ist. 

• Keine DEEERRED Variablen 

? Sie haben innerhalb eines Objekts versucht eine Variable Deffered 
zu erklären, die ist nur mit Methoden möglich. 

• Keine direkte Nachfolgerbeziehung vorhanden 

? Sie haben versucht zwei Objekte einander zuzuweisen, die zwar 
von einer gemeinsamen Klasse abstammen, jedoch nicht in einer 
Erblinie stehen, also eher Brüder, als Söhne und Väter sind. Eine 
derartige Zuweisung ist nicht möglich. 

• Keine Methoden bei lokalen Prozeduren 

? Innerhalb von lokalen Prozeduren kann man keine Methoden de¬ 
finieren. 

• Keine Objekte als Variablen erlaubt 

? Man kann keine Objekte als Variablen deklarieren, nur Zeiger auf 
Objekte. 
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Anhänge. Fehlermeldungen 


• Keine Procedure 

? Wahrscheinlich haben Sie einen Bezeichner, der keine Prozednr 
ist, als Prozednr oder Fnnktion aufznrnfen versucht. 

• Keine Parameter für Constructor 

• Keine Parameter für Destructor 

? Sie haben versucht die Methode Construct/Destruct eines Ob¬ 
jectes mit Parametern aufzurufen. Dies ist jedoch nicht möglich. 

• Keine Rückwärtsrecorddefinition 

? Sie können nicht während der Definition eines konstanten Records, 
bei der Definition eines einzelnen Elements auf vorhergehende Ele¬ 
mente zurückgreifen. 

• Keine Single.IEEE library, (REAL ^ EEP)! 

? Sie haben REAL-Zahlen verwendet ohne die singlelEEE.library 
oder eine EPU zu besitzen. 

! Verwenden Sie EEP-Zahlen. 

• Keine Symboldatei ??? 

? Die Symboldatei eines Moduls hat einen Eormatfehler. 

! Übersetzen Sie das entsprechende Definitionsmodul noch einmal. 

• Keine typisierte Standardkonstanten 

? Man kann keine einfachen Konstanten mit Typangaben deklarie¬ 
ren. 

! Lassen Sie die Typangabe weg, der Compiler erkennt den richtigen 
Typ schon selbst. 

• Keine VAR Taglisten für typen unter 4 Bytes 

? Elemente, auf die Zeiger in einer Tagliste zeigen, müssen mindes¬ 
tens 4 Bytes groß sein. 
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• Keine Variable 

? Wahrscheinlich haben Sie versucht eine Konstante zu verändern, 
oder einem Typen oder einer Prozedur etwas zuzuweisen. 

• KilledLabels nicht leer 

? Compilerfehler. 

• Konstante außerhalb des Bereichs 

? Sie haben eine für diese Stelle zu große Konstante verwendet. 

• Konstante erwartet 

• Konstanten Ausdruck erwartet 

? Sie haben an dieser Stelle eine Variable oder etwas anderes ange¬ 
geben, an der der Compiler eine Konstante erwartet. 

• Konstante ’TYPE erwartet 

? An einer Stelle, an der ein Typ erwartet wird, hat der Compiler 
eine Konstante gefunden. Er interpretiert dies so, das als Typ der 
Typ der Konstante verwendet werden sollte. In diesem Fall muß 
allerdings ein ’TYPE an die Konstante gehängt werden. 

! Fügen Sie ein ’TYPE an. 

• Konstanter Index auserhalb des Berreichs 

? Die Indexgrenzen eines Arrays müssen im Bereich von Integer he¬ 
gen. 

! Verwenden Sie eine dynamische Struktur z. B. eine Liste. 

• Konstantes ARRAY erwartet 

? Sie haben eine typisierte Konstante vom Typ ARRAY definiert, 
nach der Typ-Angabe aber keine Elemente angegeben. 

• Konstantes SET erwartet 
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Anhänge. Fehlermeldungen 


? PUSH/POP erwartet ein konstantes Set als Parameter, keine Va¬ 
riable. 

• Kontext als zweiter Parameter 

? Sie haben bei New den Kontext als ersten Parameter angegeben. 

• Label -1 kann nicht gesetzt werden 

? Compilerfehler 

• Label in falscher Liste 

? Compilerfehler 

• LDIV nnr für LONGINT, LONGCARD 

• LMUL nnr für INTEGER, CARDINAL 

? Sie haben für die obengenannten Ennktionen einen anderen Typen 
als den in der Meldnng genannten verwendet. 

• LEA erwartet Adressregister als zweiten Parameter 

? Eehlermeldnng des Assemblers 

• LIST Parameter nnr als letzten Parameter 

? Eine LIST OF Parameterliste ist nnr als letzter Parameter einer 
Prozednrdeinition möglich. 

• LONGREALs nnr in EPU-Registern 

? Will man eine LONGREAL-Variable in ein Register legen, kann 
man dafür nnr EPU-Register verwenden. Vorausgesetzt man be¬ 
sitzt eine EPU. 

• Mathematische Ennktionen nur für REAL-Zahlen 

? Sie haben eine mathematische Eunktion wie z. B. SIN, EXP auf 
eine Variable angewendet, die nicht vom Typ REAL oder LONGREAL 
war. 
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• Methoden nur für eigene Typen 

? Sie können nur Methoden zu Typen definieren, die auch in Ihrem 
Modul definiert sind, nicht zu importierten Typen . 

• Methodenredefinition nicht angegeben 

? Sie haben versucht die Methode eines Objektes zu redefinieren, 
ohne das diese in der Objektdefinition angegeben wurde. 

• Mnemonic oder Label erwartet 

? Der Assembler erwartet entweder einen Befehl oder eine Sprung¬ 
marke, traf jedoch auf etwas anderes. 

• MOD nur für ganze Zahlen 

? Sie haben den Operatobf MOD auf eine Realzahl angewandt. 

! Führen Sie, wenn es wirklich eine Real-Variable sein soll, vorher 
eine Typumwandlung durch. 

• modStackPtr^^O bei DecModEnd, Compiler Fehler 

• modStackPtr^O nach Import, Compiler Fehler 

• modStackPtr=0 bei DecLEnd, Compiler Eehler 

• modStackPtr=0 bei DecModEnd, Compiler Eehler 

? Compilerfehler 

• MODUL-Bezeichner am Anfang und Ende verschieden 

? Der Name am Modulende unterscheidet sich von dem im Modul¬ 
kopf 

• Modulall : nur Records in WITH 

? Sie haben versucht eine andere Variable als einen Record zu WI- 
THen, obwohl sie den Modula 2 Modus eingeschaltet haben. In 
Modula 2 ist WITH nur für Records definiert. 
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Anhänge. Fehlermeldungen 


• MODULE erwartet 

? Sie haben am Modulanfang das Schlüsselwort MODUL verges¬ 
sen. 

• NEW vorerst nur bei Objekten 

? NEW als Standardprozedur ist zur Zeit nur für Objekte definiert. 

• Nicht genau definierte Konstante 

? Sie verwenden ein Element eines überladenen Aufzählungstypen 

und der Compiler kann nicht genau ermitteln, zu welchem Aufzählungstyp 
das Element gehört. 

! Qualifizieren Sie das Element über den Namen des Aufzählungstypen, 
zu dem es gehört. 

• Nicht genug Speicher 

? Der Compiler, Linker oder das Make benötigen für den Import 
von Modulen eine große Menge Speicher. So kann es passieren, 
daß einem bei der Übersetzung von Modulen, die viele andere 
Module importieren, der Speicher ausgeht, vor allem wenn man 
nur 2 MB Speicher besitzt. 

! Benutzen Sie den ARexx-Compiler von der Shell aus, beenden Sie 
alle anderen Programme, die Sie nicht unbedingt benötigen, oder 
kaufen Sie sich eine Speichererweiterung. 

• Nicht genug UNLK für LINKs 

? Assembler: Die Zahl der UNLKs muß mit der der LINKs übereinstimmen. 

• Nicht implementierte Konversion 

? Sie haben versucht einen Typen in einen anderen zu konvertieren, 
für den eine solche Konversion nicht definiert ist. 

! Kontrollieren Sie Deklaration und Schreibweise. 

• Noch nicht implementiert 
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? Fehlermeldung des Assemblers. Derzeit sind nocht keine Supervi¬ 
sorbefehle implementiert. 

• Nur 16 Register vorhanden 

? Sie haben eine höhere Registernummer als 15 angegeben (0-15). 

• Nur einfache Typen für Regvars 

? Sie haben versucht eine komplexe Variable (Record etc.) bei der 
Variablendefinition in ein Register zu legen, dies ist jedoch im 
Gegensatz zur WITH-Anweisung nicht möglich. 

• Nur feste Register erlaubt 

? Sie haben als Regist er nummer eine Variable statt einer Konstan¬ 
ten verwendet. Dies ist nicht möglich, da Cluster eine Compilers¬ 
prache ist und kein Interpreter. 

• Nur globale Prozeduren möglich 

? Sie können nur globale Prozeduren an Variablen zuweisen. 

• Nur IF KEY in Recorddefinition möglich 

? Sie haben wahrscheinlich bei der Definition eines Varianten Re¬ 
cords „IF“ vergessen oder als ehemaliger Modulaprogrammierer 
„case“ geschrieben. 

• Nur komplexe Typen Forward-deklarierbar 

? Einfache Typen können nicht forward deklariert werden. 

• Nur Konstante als Schrittwert erlaubt 

? Sie haben bei einer EOR-Schleife eine Variable als Schrittwert ver¬ 
wendet, was nicht möglich ist. 

! Ealls ein variabler Schrittwert notwendig ist, verwendet Sie eine 
WHILE-Schleife. 


Nur POINTER als HIDDEN-Typen erlaubt ! 
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Anhänge. Fehlermeldungen 


? Sie haben versucht einen anderen Typen als einen Pointertypen 
als Hiddden-Typen zu definieren. 

• Nur Records oder Pointer auf Records für Methoden 

? Der erste Parameter einer Methode muß Record oder ein Zeiger 
auf einen solchen sein. 

• Nur Strings an STRING übergebbar. 

? Sie haben versucht eine Variable an einen Parameter vom Typ 
STRING zu übergeben, welche kein String ist. 

• Nur Wortbreite möglich 

? Der Assembler erlaubt hier nur Wortbreite. Sie wollten Byte- oder 
Langwortbreite. 

• Nur Zeiger an ANYPTR übergeben 

? Sie können nur Zeiger an ANYPTR übergeben. 

• Nur Zeigertypen für generische Module 

? Der generische Parameter eines generischen Moduls muß ein Zeiger 
sein. 

• ODD nur für numerische Typen 

? ODD kann nur bei zählbaren Typen angewandt werden 

• OF erwartet 

? Sie haben bei einem IF KEY das erste OF vergessen oder bei 
einer ARRAY-Definition das OF vergessen. 

• OF oder erwartet 

? Sie haben in einer ARRAY-Deklaration ein folgendes OF oder 
vergessen. 

• OF erwartet in offenem ARRAY 
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? Sie müssen bei der Definition eines offenen Array ein OF vor dem 
Typen schreiben. 

• Offenes ARRAY erwartet 

? Der Compiler erwartet an dieser Stelle ein offenes Array. 

• Operand nur für BOOLEAN definiert 

? Sie haben einen boolschen Operator auf einen anderen Typen als 
auf BOOLEAN angewandt. 

! Meist hat man nur die Klammern vergessen, wenn man zwei Boo- 
lausdrücke mit AND oder OR verbinden wollte. 

• OpenLabels nicht leer 

? Compilerfehler 

! Meist hat man nur die Klammern vergessen, wenn man zwei Boo- 
lausdrücke mit AND oder OR verbinden wollte. 

• Parametername nicht bekannt oder an falscher Stelle 

? Bei dem Versuch einer Prozedur einen Parameter durch Angabe 
des Parameternamens zu übergeben haben Sie diesen entweder 
falsch geschrieben, an der falschen Stelle angegeben, oder er exis¬ 
tiert gar nicht. 

! Kontrollieren Sie die Prozedurdefinition. 

• Parent nicht gefunden 

? Beim qualifiziertem Erben wurde der Vorfahre nicht gefunden. 
Meist ein Schreibfehler, kontrollieren Sie die Objektdefinition. 

• POINTER erwartet 

? An dieser Stelle erwartet der Compiler einen Zeiger und keine 
einfache Variable. 

• Positionaler nach benanntem Parameter 
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Anhänge. Fehlermeldungen 


? Nachdem Sie den ersten Parameter eines Prozednranfrnfs über 
seinen Namen angesprochen haben, müssen Sie auch alle anderen 
dieser Prozedur, die Sie noch übergeben wollen, über den Na¬ 
men ansprechen. Es ist nicht möglich, wieder in eine positionale 
Übergabe überzugehen. 

• Pos Jumps nicht leer 

? Compilerfehler 

• Potenzierung nur für REAL 

? Der Operator ist nur für REAL-Zahlen definiert. 

• PROCEDERE erwartet 

? Laut Sprachdefinition erwartet der Compiler an dieser Stelle das 
Schlüsselwort PROCEDURE. 

• Prozedur zu komplex 

? Sie haben die Maximalgröße einer Prozedur überschritten. Eigent¬ 
lich fast unmöglich. Man schreibt keine so großen Prozeduren. 

! Zerlegen Sie die Prozedur in mehrere kleinere. 

• Quelle oder Ziel muß Register sein 

? Eehlermeldung des Assemblers. 

• Record erwartet 

? Wahrscheinlich haben Sie versucht eine normale Variable zu qua¬ 
lifizieren. 

• Record zu groß, maximal 32KBytes 

? Sie haben die maximale Größe eines Records überschritten. 

• Register bei MUL/... als zweiten Parameter 

? Eehlermeldung des Assemblers 
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• Register bereits vergeben 

? Sie haben zweimal das selbe Register innerhalb einer Prozednr 
belegt. 

• Register beschmutzt, das nicht existiert 

• Register einmal zuoft unused 

• Register nicht ordentlich freigegeben 

• Register nicht wieder ordentlich ge-unused 
? Compilerfehler 

• Register erwartet 

• Registernummer erwartet 

? Sie haben nach einem Variablennamen zwar ein IN geschrieben, 
jedoch folgte keine Regist er nummer 

• Schalter existiert bereits 

? Sie haben einen Schalter definiert, dessen Namen schon von einem 
anderen Schalter belegt ist. 

! Verwenden Sie einen anderen Namen. Prüfen Sie, ob der schon 
existierende nicht schon die Aufgabe erfüllt. 

• SELF nicht gefunden 

? Sie haben in einer Nicht-Objektmethode versucht auf SELF zuzu¬ 
greifen, was natürlich nicht geht. 

• SET erwartet 

? Sie haben einen anderen Variablentypen wie einen SET behandelt. 

• SetLabels nicht leer 
? Compilerfehler 
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Anhänge. Fehlermeldungen 


• Settyp hat mehr als 32 Elemente 

? Um das Sethandling möglichst schnell zn machen, werden Setele¬ 
mente als einzelne Bits in einem Langwort dargestellt. Da diese 
genan 32 Bit lang sind, kann ein Set auch höchstens diese Anzahl 
an Elementen haben. 

! Verwenden Sie ein BOOLEAN-Array. 

• SHL/SHR erwarten numerischen Parameter als zweiten Parameter 

? Sie haben keinen numerischen Parameter als zweiten Parameter 
an SHL/SHR übergeben. 

• Skalare Konstante erwartet 

• Skalarer Typ erwartet 

? Sie haben einen nichtskalaren (nicht zählbaren) Typen verwendet. 

• Sonstwas erwartet in Ausdruck 

? Das verwendete Symbol ist an dieser Stelle nicht erlaubt. 

• Sorry Register AO und Al schon vergeben 

? TRY..EXCEPT belegt die Register AO und Al. 

• Sorry akuter Registermangel 

• Sorry Register schon belegt 

? Sie haben versucht mehr Variablen in Register zu packen als Re¬ 
gister vorhanden sind. 

! Werfen Sie alle Variablen, die Sie nicht unbedingt in Registern 
brauchen aus diesen raus. 

• Sorry, DO unwiederbringlich vergeben 

• Sorry, Dl unwiederbringlich vergeben 


©1992/93 by StoneWare 




B.2. FELDERMELDUNGEN DES COMPILERS 


41 


? Sie haben eine Variable in DO/Dl gelegt und darauf eine Funk¬ 
tion oder eine Prozedur aufgerufen, die diese Register zur Para¬ 
meter üb ergäbe benötigt (Funktionen geben ihr Ergebnis immer in 
DO zurück). 

! Legen Sie die Variable in ein anderes Register oder verzichten Sie 
an dieser Stelle auf Regist er variablen. 

• Sorry, nur einfache Variablen als Werteparameter an Register 

? Sie haben versucht eine komplexe Variable an einen Register-Werte- 
Parameter zu übergeben. 

! Übergeben Sie komplexe Typen als VAR/REF-Parameter oder 
mittels eines Zeigers. 

• Sorry, VAR-Parameter nur in Adressregistern. 

? Da ein VAR-Parameter im Grunde nichts anderes als eine Übergabe 
durch einen Zeiger ist, muß man ihn, will man ihn in ein Register 
legen, in ein Adreßregister legen. 

• Stackdifferenzen 

? Am Ende eines Assmblerteils stimmte der Stack nicht mit dem zu 
Begin überein. 

! Bitte mit dem STACK-Befehl korrigieren. 

• Stapelübelauf 

? Sie haben die maximale Schachtelungstiefe für Compilerswitches 
von 16 überschritten. 

• Statische Variablen nur in Prozeduren 

? Sie haben versucht eine globale Variable als STATIC zu definie¬ 
ren, was unsinnig ist, und deshalb vom Compiler unterbunden 
wird. 

• String erwartet 
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Anhänge. Fehlermeldungen 


? Die Meldung dürfte alles aussagen. 

• String oder Nummer für Exception erwartet 

? Bei einer Exceptiondefinition folgte nach dem Doppelpunkt weder 
ein String, noch eine Nummer wie es die Sprachdefinition verlangt. 

• SUPER nicht gefunden (Compiler Eehler) 

? Compilerfehler 

• SUPER.method erwartet 

? Sie haben innerhalb einer Methode den Bezeichner SUPER auf¬ 
gerufen, ohne eine Methode anzugeben, was natürlich keinen Sinn 
macht. 

• Symbol nicht in Def erlaubt 

? In Ihrem Defintionsmodul haben Sie ein Symbol benutzt, daß laut 
Sprachdefintion nicht erlaubt ist, wie z. B. CLOSE, BEGIN, 
etc.. 

• Symbolfile ist aus der Zukunft 

? Aus irgendeinem Grund hat ein Symbolfile ein Datum, das später 
ist, als das ihrer System-Uhr. 

! Kontrollieren Sie das Datum Ihrer internen Uhr, ob es dem heu¬ 
tigen Datum entspricht. 

• Symfile konnte nicht geöffnet werden 

? Der Compiler konnte ein Symbolfile eines importierten Moduls 
nicht finden. 

! Kontrollieren Sie, ob das Modul in Ihrem aktuellen Projektver- 
zeichnis liegt. Wenn nicht, tragen Sie bitte das entsprechende 
Verzeichnis in den Modulsuchpfad ein. Eindet der Compiler es 
dann immer noch nicht, kontrollieren Sie bitte, ob Sie das dazu¬ 
gehörige Definitionsmodul schon übersetzt haben. 
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• TAG-Typ erwartet 

• TAGListe erwartet 

? An dieser Stelle wird eine Tagliste erwartet. 

• THEN, ANDJF erwartet 

? Nach der Bedingnng in einer IF-Anweisnng fehlt ein THEN oder 
ANDJF. 

• TO erwartet 

? Sie haben nach einer FOR-Anweisnng das TO vergessen. 

• TRUE,FALSE oder OLD erwartet 

? Nach einem $$Switch: = folgte etwas anderes als TRUE, FALSE oder 
OLD. 

• Typ erwartet 

• Typen erwartet 

? Lant Sprachdefinition müßte an dieser Stelle ein Typ stehen. Eine 
genauere Angabe ist leider nicht möglich, da dieser Fehler sehr 
viele verschiedene Ursachen haben kann. 

• Typ nicht adressierbar 

? Sie haben versucht die Adresse eines Typs zu ermitteln, was logi¬ 
scherweise nicht geht. 

• Typecheck nur für Objekte 

? Sie haben versucht einen Typvergleich mit IS mit einem einfachen 
Typen durchzuführen, dies ist jedoch nur mit Objekten möglich. 

• Unbekannte Varadrtypes 

• Unbekannter decType 

• Unbekannter Konstantaddresstyp 
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Anhänge. Fehlermeldungen 


• Unbekannter offener Typ als Werteparameter (Compiler-Fehler) 

? Compilerfehler 

• Unbekanntes Attribnt 

? Sie haben ein anderes Attribnt als ’PTR, ’ADR, ’SIZE, ’ RANGE 
’MAX, ’MIN verwendet. 

• Unbekannte TAG-Id 

• Unbekannter TAG Wert 

? Sie haben einen Tag verwendet, der nicht definiert ist. 

• Unbekanntes Klassenelement 

? Sie haben anf ein Element eines Objekt-Records zngeriffen, das 
nicht in der Klasse definiert ist. 

! Kontrollieren Sie die Klassendefinition. 

• Unbekanntes Mnemonic 

? Sie haben einen Assemblerbefehl verwendet, der nicht definiert ist. 

• Unbekanntes Symbol 

? Sie haben ein Sonderzeichen verwendet, das nicht in der Sprach- 
beschreibnng enthalten ist. 

• Unbekanntes Symbol in Switch 

? Sie haben einem Switch etwas anderes als TRUE, FALSE, OLD oder 
einen anderen Switch zngewiesen. Dies ist nicht erlanbt. 

• Undefinierter Modnl-Namen 

? Der Compiler traf auf ein lokales Implementationsmodul, zu dem 
kein Definitionsmodul existiert. 

! Wahrscheinlich ein Schreibfehler, überprüfen Sie den Modulna¬ 
men. 
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• Undefinierter Pointer freigegeben 

• Undefiniertes Pointerziel 

? Compilerfehler 

• Undefinierter Vergleich 

? Sie haben versucht Typen zu vergleichen, für die kein Vergleich 
definiert ist z. B. char und Longreal. 

• Undefiniertes label 

? Sie haben versucht ein Assemblerlabel anzuspringen, das nicht de¬ 
finiert ist. 

• Unerlaubte Benutzung einfacher Pointer für Klassen 

? Sie haben über einen einfachen Zeiger auf spezielle Eigenschaften 
einer Klasse zugegriffen, was nicht möglich ist. 

! Verwenden Sie einen CLASSPTR. 

• Unerwartetes Dateiende 

? Der Compiler traf beim Übersetzen unerwartet auf ein Dateiende, 
da ein Modulende fehlte. 

• Ungültiger IF-KEY-Index 

• Ungültiger Caselndex 

? Der Compiler erwartet nach einem IE KEY in einer Varianten Re¬ 
corddefinition entweder einen Bezeichner oder einen Doppelpunkt. 

• Unklare Mengenkonstante 

? Der Compiler konnte den Typ einer Mengenkonstanten nicht ein¬ 
deutig feststellen, dies passiert z. B. bei Vergleichen von Mengen. 

! Bitte geben Sie den Typ der Menge mit an. 

• Unmögliche Adressierung 
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ANHANG B. FEHLERMELDUNGEN 


? Sie haben wahrscheinlich versucht die Adresse einer Registervaria¬ 
blen zu ermitteln, was nicht möglich ist. 

• Unmögliche Adressierung für EOR 

• Unmögliche Adressieung für ABCD 

• Unmögliche Adressieung für ADDX 

• Unmögliche Adressieung für ADDX 

• Unmögliche Adressieung für SB CD 

• Unmögliche Operanden bei LINK 

• Unmögliche Parameter bei EXT 

? Eehlermeldungen des Assemblers, der Grund geht aus der Meldung 
hervor. 

• Unmögliche Konstante 

? Sie haben versucht eine Konstante eines Typs zu definieren, der 
für diesen Zweck ungeeignet ist, z. B. ein offener Record. 

• Unmögliche Konstante in EOR 

? Sie haben in einer EOR-Schleifendefinition eine Konstante verwen¬ 
det, die keine Ganzzahl ist. Dies ist nicht möglich. 

• Unmögliche Registervariable ??? 

? Sie haben eine Variable mit nicht zulässigem Typ in ein Register 
gelegt. 

! Lesen Sie in Kapitel nach, welche Typen dazu geeignet sind. 

• Unmögliche Standardlänge 
? Compilerfehler 

• Unmöglicher Assembler String 

? Eine Assemblerstringkonstante darf maximal 4 Zeichen lang sein. 
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• Unmöglicher Pointer für +'' 

• Unmöglicher Pointer für 

? Den Postincrement/Predecrement-Mode kann man nnr bei Regis¬ 
tervariablen anwenden. 

! Legen Sie den Pointer in ein Register. 

• Unmöglicher Typ für EVEN 

• Unmöglicher Typ für INC/DEC 

• Unmöglicher Typ für SHL/SHR 

? Eür diese Standardprozednren/Operatoren dürfen nnr ganzahlige 
Typen verwendet werden, INC/DEC auch für Aufzählungstypen 
und Pointer, SHL/SHR auch für Sets. 

• Unmöglicher Typ in ComAddAcc 

• Unmöglicher Typ in Comlndex 
? Compilerfehler 

• Unterschiedliche Bezeichner an Ende und Anfang 

? Eine Prozedur/Modul hat am Ende einen anderen Bezeichner als 
am Anfang. 

! Kontrollieren Sie die Schreibweise der Namen. 

• UNTIL bei REPEAT erwartet 

? Der Compiler trifft nach einem REPEAT auf ein anderes Symbol 
als das erwartete UNTIL; z. B. ein überzähliges END. 

• Ursprüngliche Dehnition hatte anderen Rückgabetyp 

• Ursprüngliche Dehnition hatte anderen Typ 

• Ursprüngliche Dehnition hatte anderes Register 

• Ursprüngliche Dehnition hatte keine gleichen Parameter hier 
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• Ursprüngliche Definition hatte keine Registerparameter 

• Ursprüngliche Definition hatte keinen Rückgabewert 

• Ursprüngliche Definition hatte mehr Parameter 

• Ursprüngliche Definition hatte Registerparameter 

• Ursprüngliche Definition hatte weniger Parameter 

• Ursprüngliche Definition hatte Rückgabewert 

• Ursprüngliche Definition hatte anderen Namen 

• Ursprüngliche Definition war kein VAR-Parameter 

• Ursprüngliche Definition war VAR-Parameter 

? Alle oben anfgeführten Fehlermeldnngen sind daranf znrückznführen, 
daß sich die endgültige Prozednrdefinition von der Forward-Deklaration 
bzw. der Deklaration im Definitionsmodnl nnterscheidet. Worin, 
entnehmen Sie bitte der Fehlermeldnng 

• Variable ’ TYPE erwartet 

? An einer Stelle, an der ein Typ erwartet wird, hat der Compiler 
eine Variable gefnnden. Er interpretiert dies so, daß als Typ der 
Typ der Variablen verwendet werden sollte. In diesem Fall mnß 
allerdings ein ’ TYPE an die Variable gehängt werden. 

! Fügen Sie ein ’TYPE an. 

• Variable überschreitet Limit, benntze Zeiger !!! 

? Sie haben eine Variable größer 30KB definiert. Dies ist nicht 
möglich. 

! Bitte verwenden Sie einen Zeiger und allozieren den Speicher während 
der Laufzeit. 

• Variablen Parameter erwartet 

? Sie haben eine Konstante an einen VAR-Parameter übergeben. 
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! Verwenden Sie einen REF-Parameter. 

• Vergleich einer statischen Prozednr mit NIL 

? Sie haben eine statische Prozednr mit NIL verglichen. Da dieser 
Vergleich immer FALSE ergibt ist er unsinnig und deutet auf ei¬ 
nen Fehler hin, daher reklamiert der Compiler bei einem solchen 
Vergleich, auch wenn er nach der Sprachdefinition möglich wäre. 

• Verlorener DecType (Compilerfehler) 

? Comilerfehler 

• Verschiedene Typen als VAR-Parameter 

? Bei der Übergabe an VAR-Parameter müssen die Ubergabewerte 
von selben Typ des VAR-Parameters sein. Betrifft im Normalfall 
zuweisungskompatible Typen. 

! Führen Sie eine Typkonversion durch. 

• Verschiedene Typen in LDIV/LMUL 

? Diesen Funktionen können jeweils nur die gleiche Typen übergeben 
werden, also INTEGER & LONGINT oder CARDINAL & LONG- 
CARD. 

• Versionskonflikt 

? Es wurde ein Modul entdeckt, dessen Defintionsteil nach einem 
Modul compiliert wurde, von dem es importiert wird. 

! Führen Sie am besten ein Make durch. 

• Wer wird denn den SP poppen 

? Compilerfehler 

• WHILE erwartet END 

? Sie haben nach einer WHILE-Schleife das END vergessen. 
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• WITH Killer aufdreckige Register angewendet 

? Compiler fehler 

• WITH verlangt Variable oder Typen 

? Nach einem WITH muß ein e Variable oder ein Typ folgen. 

• WITH-Wert verloren, weis der Teufel warum 

? Compilerfehler 

• Zahlenbasis zu groß 

? Bei der Zahleneingabe zu einer beliebigen Basis in der Form Basis: Wert, 
darf die Basis nicht größer als 16 sein. 

• Zeiger erwartet 

• Zeigervariable erwartet 

? Sie haben versucht eine Variable zu dereferenzieren, die kein Zeiger 
ist. 

• Ziffer ist größer als Basis 

? Wenn Sie eine Zahl in er Form Basis: Wert angeben, darf die eine 
Ziffer des Wertes nicht größer sein als die Basis-1. Z. B. 4:32 
falsch wäre 4:46. 

• Zuviele Elemente in Konstante 

? Bei der Definition eines konstanten Records/Arrays wurden mehr 
Elemente angegeben, als in der Typdefinition definiert sind. 

• Zuviele Module importiert 

? Sie haben es fertiggebracht, mehr als 100 Module in einem Modul 
zu importieren. Dies ist durch den Aufbau des Compilers nicht 
möglich, sollte normalerweise aber auch nicht Vorkommen. 
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! Wenn es denn nnbedingt nötig ist, dann zerlegen Sie das Modnl 
in mehrere kleinere. Die Gesammtzahl der an einem Programm 
beteiligten Modnle ist nicht limitiert. 

• Znviele Schalter 

? Compilerfehler 

• Znviele UNLK für LINKs 

? Die Zahl der verwendeten UNLks mnß mit der der LINKs übereinstimmen. 

• Zwei Operanden erwartet 

? Assembler: Sie haben einen Befehl, der zwei Argnmente erwartet 
mit nnr einem verwendet. 

• Zweiter Operand bei CMP mnß Register sein. 

? Assembler: Die Meldnng erklärt sich selbst. 

• Zweiter Operand bei SHL mnß Ganzzahl sein 

• Zweiter Operand bei SHR mnß Ganzzahl sein 

? Bei SHL/SHR mnß der Betrag, nm den geschoben werden soll eine 
Ganzzahl sein, also INTEGER oder CARDINAL. 

B.3 Fehlermeldungen des Linkers 

• obj ist kein Objectfile 

? Die Objektdatei eines Modnls hat einen Eormatfehler. 

! Übersetzen Sie das entsprechende Modnl noch einmal. 

• obj nicht gefnnden 

? Objektdatei zu einer existierenden Symboldatei konnte nicht ein¬ 
gebunden werden, da es nicht gefunden wurde. 


! Übersetzen Sie das entsprechende Modul. 
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• Nicht genug Speicher 

? Der Linker benötigt bei großen Programmen viel Speicher. 

! Benützen Sie den Rexx-Comiler von der Shell aus. 

• Nicht implementiert im eigenen Modul 

• Nicht implementiertes Objekt 

? Ein Objekt, das in einem Modul definiert wurde, ist nicht imple¬ 
mentiert worden. Dabei gibt im eigenen Modul an, das ein Objekt 
im Hauptmodul nicht implementiert wurde, ansonsten ist es ein 
Objekt, das importiert wurde. 

! Uberprüfen Sie das entsprechende Modul. 

• Welches Programm ??? 

? Sie befinden sich nicht in einem Hauptmodul. Daher will der Lin¬ 
ker wissen, welches Programm er linken soll. 

B.4 Fehlermeldungen des Loaders 

Zum einen kann der Loader alle Fehlermeldungen des Linkers auslösen. 
Zudem gehören zu seinen Meldungen auch alle Laufzeitfehler, die beim 
Start eines Programmes auftreten. Da zu denn Laufzeitfehlern auch 
alle nicht abgefangenen Exceptions gehören, wäre es vergeblich hier eine 
vollständige Auflistung aller möglichen Laufzeitfehler geben zu wollen. 
Da bei jedem Run-Time-Error nicht nur der Fehler sondern auch das 
Modul in dem er ausgelöst wurde angegeben ist, können Sie in der Bes¬ 
chreibung der einzelnen Module die Bedeutung der einzelnen Exceptions 
nachlesen. Ist eine Exception nicht in diesem Modul definiert, dann 
finden Sie sie warscheinlich im Modul Exceptions. 

Die Laufzeitfehler, die von Cluster ausgelöst werden können, aber 
nicht in Exceptions erklärt sind sind hier aufgelistet: 

• Function_No JReturn 
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? Innerhalb einer Fnnktion fehlt die Rückgabe eines Wertes mittels 

RETURN. 

• Local_Proc_Var 

? Die Adresse einer lokalen Prozednr wnrde in eine Variable gespei¬ 
chert, dies ist nicht znlässig. 

• NIL_Dereferenced 

? Ein Zeiger mit nicht validem Inhalt wnrde dereferenziert. 

• UserBreak 

? Der Benutzer hat Ctrl+C gedrückt und so das Programm abge¬ 
brochen. 

B.5 Fehlermeldungen des Make 

• DEF ohne MOD 

? Das Make konnte das Implementationsmodul zu einem Defini¬ 
tionsmodul nicht finden oder laden. Letzteres kann an einem zu 
kleinem Textspeicher liegen. 

• Error in Make 

? Während des Makes trat in einem Modul ein Fehler auf. Das 
betroffene Modul wird automatisch geladen. 

! Korrigieren Sie das Modul und starten Sie das Make neu. 

• Make File not found 

? Keine Makedatei vorhanden. 

! Wählen Sie zuerst Create-Make aus. 

• No Cluster format 

? Einer der zu übersetzenden Texte liegt nicht im Clusterformat vor 
bzw. es fehlt der Info-Header vor dem ASCII-Text. 
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! Erzeugen Sie einen Info-Header oder speichern Sie den Text im 
Clusterformat. 

• Source not found 

? Quell-Text eines Moduls wurde nicht gefunden. 

• Welches Programm ??? 

? Das Modul, von dem Sie das Make starten ist kein Hauptmodul, 
Sie haben noch kein Standardprojekt gesetzt und der Text hat 
auch keinen Projekteintrag. Daher will das Make wissen, welches 
Modul als Hauptmodul bearbeitet werden soll. 

• Zyklische Imports 

? An diesem Programm sind Module beteiligt, die sich im Kreis 
importieren, was nicht möglich ist. 

! Vermeiden Sie Ringimporte und verwenden Sie, wenn es notwendig 
ist, DEFFERED POINTER. 
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Anhang C 

Einbinden fremder 
Module: 


Eine externe Prozedur wird folgendermaßen definiert: 

PROCEDURE Foo(x IN D2 : INTEGER):INTEGER EXTERN _foo; 

Die Prozedur ist dann im Clustersymbolraum unter dem Namen Foo 
erreichbar und kann wie jede andere Prozedur aufgerufen werdem. In 
der externen Referenz erscheint er unter dem namen „_foo”.“ 

Aufgrund der unterschiedlichen Aufrufssyntax zwischen „C“ und „Clus¬ 
ter“ ist es nicht möglich ohne Interfacecode externe Routinen mit Sta¬ 
ckvariablen zu benutzen. Ein mögliches Interface für die „C“ Funktion 
„foo”’: 

int foo(Window * win,int x,int y,char c) 

{... 

> 

könnte so aussehen: 

PROCEDURE CFoo EXTERN _foo; | Stummelrest 

PROCEDURE FooCwin : WindowPtr;x,y : L0NGINT;c : CHAR):L0NGINT; 
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ANHANG C. EINBINDEN EREMDER MODELE: 


BEGIN 


ASSEMBLECMOVE.L 

#0,D0 

1 Argumente in C-Konvention auf 

MOVE.B 

c ,D0 

1 den Stack packen 

MOVE.L 

D0,-(A7) 


MOVE.L 

y,-(A7) 


MOVE.L 

x,-(A7) 


MOVE.L 

win,-(A7) 


JSR 

CFoo 

1 C-Funktion aufrufen 

ADD.L 

#4*4,A7 

1 Stack wieder korrigieren 


); 

END Foo; 

Wird ein Programm gelinkt, in dem sich eine Referenz auf ein externes 
Modul befindet, erzeugt der Linker kein Programmodul, sondern ein 
Amiga Standard Objektmodul. Dieses muß dann noch mit einem Stan¬ 
dardlinker „ALink“ oder „BLink“ mit den externen Objektmodulen ge¬ 
bunden werden. 


©1992/93 by StoneWare 



Anhang D 

Erzeugen von Libraries: 


Eine Library kann nnr aus Implementationsmodulen (und natürlich ei¬ 
nem Hauptmodul) zusammengesetzt werden, die als Library übersetzt 
werden. Dies kann entweder durch den Schalter in der EU oder durch die 
Compilerschalter $$Library :=TRUE oder 

$$LibraryAlso: =TRUE erreicht werderj^ 

Eine Library besteht aus drei Teilen: Den Librarydaten in der Li¬ 
brarybase, einer Sprungtabehe auf die Eunktionen der Library und die 
Routinen der Library selbst. Ahe globalen Variablen, die in einer Clus- 
terlibrary benutzt werden, hegen, nach den öffentlichen Eeldern, in der 
Librarybase. 

Wird eine Library in den Hauptspeicher eingebracht, so muß sie 
durch das Betriebssystem initialisiert werden. Dies geschieht, indem eine 
Init-Vector im Residentteil der Library angesprungen wird. In Cluster 
führt dies zur Ausführung der BEGIN-Teile aller beteiligten Implemen- 
tationsmodule. Somit bleibt die Initialisierung analog zu der normaler 
Module. 

Soll eine Library, die nicht mehr benötigt wird, aus dem Speicher 
entfernt werden, so ruft das System den Expunge-Vector der Library 
auf. Dies wird in Cluster auf die Kette der CLOSE-Teile aller betei¬ 
ligten Module umgebogen, so daß auch die Deinitialisierung analog zu 
bestehenden normalen Modulen bleibt. 

^letzerer Schalter erzeugt sowohl ein Library als auch ein normales 
Objektmodul 
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ANHANG D. ERZEUGEN VON LIBRARIES: 


Dies macht es möglich, das viele Modale ohne Änderung sowohl in 
Programmen als auch in Libraries verwendet werden können. 

Das Hauptmodul einer Library muß einem vorgegebenen Rahmen 
folgen: 

$$Library:=TRUE 
MODULE DummyLibrary; 

FROM System IMPORT BITSET,SHORTSET,Regs,LONGSET,EndBEGIN, 

OwnLibBase,SysStringPtr,PROC,CloseProc; 


TYPE 

I 

I Dies ist der Typ der Library Sprungtabelle. Die Einträge 0 bis 3 
I sind durch Systemfunktionen belegt. Der letzte Eintrag enthält - 
I um das Ende der Tabelle anzuzeigen. Werden neue Funktionen in 
I die Library aufgenommen, muß 

I dieser Tabellentyp entsprechend erweitert werden. 

I 

TableType = ARRAY [0..4] OF ANYPTR; 

CONST 

I 

I Name der Library, under dem sie auch im Libs: erscheinen muß. 

I Dies muß die erste Konstante im Hauptmodul sein. Es dürfen 
I vorher keine Konstanten deklariert werden. Auch die nächsten 
I beiden Konstanten "IdString" luid "Table" 

I müssen genau diesen Platz einnehmen 

I 

Name = "dummy.library"; 

I 

I Identifikationsstring der Library, er enthält die 
I Versionsinformation in lesbarer Form, so daß die Library auch 
I über "Version dummy.library file" untersucht werden kann, 

I falls sich noch eine andere Version im System befinden sollte. 

I 

IdString = "$VER: dummy.library $$.$$$ (© 1993 StoneWare)"; 
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I Forward deklaration der Sprungtabelle, die völlig ausgefüllte 
I Version kann erst am Ende des Modules stehen. 

I 

Table = TableType; 


I Systemeinsprung zum öffnen einer Library. Diese Routine wird 
I angesprungen, wenn ein Programm "OpenLibrary" aufruft. 


PROCEDURE Open; 

BEGIM 

PUSH(RegSet:{D2..D7,A2..A6}); 
SETREG(REG(A6),A4); 


INCCOwnLibBase.openCnt); 
EXCL(OwnLibBase.flags,3); 


I Sichern aller Register 
I Librarybase als Lager der 
I globalen Variablen 

I Anzahl der Öffnungen erhöhen 
I Expunge flag löschen 


I Platz für eigene initialisierungen 


SETREG(REG(A4),D0); I Librarybase als Rückgabewert 

POP(RegSet:{D2..D7,A2..A6}); I Rückholen der Register 
END Open; 

I 

I Systemeinsprung zum Schliessen der Library. Diese Fiuiktion wird 
I aufgerufen, wenn ein Programm "CloseLibrary" aufruft. 

I 

PROCEDURE Close; 

BEGIN 

PUSH(RegSet:{D2..D7,A2..A6}); I Sichern der Register 
SETREG(REG(A6),A4); | Librarybase als Lager der 

I globalen Variablen 
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I Hier kann etwas Abbaucode stehen 


DECCOwnLibBase.openCnt); | Anzahl der Benutzer vermindern 


IF = AMD (3 IN OwnLibBase.flags) 
ASSEMBLECMOVE.L CloseProc,AO 
JMP (AO)); 

END; 

SETREG(0,DO); 


POPCRegSet:{D2..D7,A2..A6}); 
END Close; 


THEN I Soll expunged werden ?? 

I Wenn ja, dann den Expunge 
I Einsprung aus dem 
I LaufzeitSystem anspringen. 

Sonst NULL zurückgeben, 

um zu zeigen, daß 

die Library im System verbleibt. 

Rückholen der Register 


Systemvektor um eine Library dazu aufzufordern, sich aus dem System 
zu entfernen. Diese Routine wird entweder bei Speichermangel oder 
durch die Funktion "RemLibrary" aufgerufen. 


PROCEDURE Expunge; 

BEGIM 

PUSHCRegSet:{D2..D7,A2..A6}); 
SETREG(REG(A6),A4); 

IF OwnLibBase.openCnt=0 THEN 
ASSEMBLECMOVE.L CloseProc,A0 

JMP (AO)); 

ELSE 

INCL(OwnLibBase.flags,3); 
END; 

SETREG(0,DO); 

POPCRegSet:{D2..D7,A2..A6}); 
END Expunge; 


Register sichern 

Librarybase enthält globale Variablen 

gibt es noch Benutzer der Library 
nein, dann den Expunge Einsprung 
aus dem 

Laufzeitsystem anspringen 

Sonst das Flag für deferred expunge 
setzen 

und NULL zurückgeben, um zu zeigen, 
daß die Library im System verbleibt 
Rückholen der Register 
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I Reservierte Funktion, bisher noch nicht genutzt 

I 

PROCEDURE Reserved; 

BEGIN 

SETREG(0,D0); I muß hier sein für 

I zukünftige Erweiterungen 

END Reserved; 

I 

I Dieser Bereich ist für eigene Funktionen der Library 


I Diese Tabelle enthält Zeiger auf alle Funktionen der Library. 
I Ihre Größe wird bereits oben festgelegt, da sie für die 
I aufgeschobene Definition benötigt wird. 

I 

I Die ersten vier Einträge sind die Systemfluiktionen, danach 
I kommen private bzw. öffentliche Fiuiktionen der Library. 

I Den Schluss bildet eine -1 als Terminationssymbol. 

I 

CONST 

Table = TableType:(Open,Close,Expunge,Reserved, 

PROC(-l)); 


BEGIN 

I 

I Initcode der Library. 

I 

ASSEMBLECJMP EndBEGIN) 

CLOSE 

I 

I Exitcode der Library. 


I Zeichen, daß die Library 
I resident verbleibt. 
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END DummyLibrary. 

Prozeduren, die als Libraryfunktionen für andere Programme verfügbar 
sein sollen, müssen ebenfalls einem gewissen Format folgen. Dies soll 
hier an einer Prozedur „Foo“ erläutert werden. Die Schnittstelle der 
Funktion soll nach außen folgendes Aussehen besitzen: 

LIBRARY DummyBase BY -30 PROCEDURE Foo(rp IN AO : RastPortPtr; 

X IN DO : INTEGER; 

y IN Dl : INTEGER):L0NGINT; 

Die Implementierung könnte nun folgendermaßen aussehen: 

PROCEDURE Foo(rp IN AO : RastPortPtr; 

X IN DO : INTEGER; 

y IN Dl : INTEGER):L0NGINT; 

VAR bla : LONGINT; 

BEGIN 

PUSH(RegSet:{D2..D7,A2..A6}); I Register sichern 
SETREG(REG(A6),A4); | globale Daten sind in der 

I Librarybase 


I hier ist die Implementierung 


POPCRegSet:{D2..D7,A2..A6}); 
RETURN bla; 


END Foo; 

Allerdings ist bei diesem Verfahren sehr störend, daß der Compiler ver¬ 
sucht, die übergebenen Argumente in Registern zu halten. Dies kann 
sich bei komplexen Funktionen, die andere Prozeduren aufrufen, zu Pro¬ 
blemen und Laufzeiteinbußen führen. Eine andere Technik, die dies ver¬ 
meidet, ist diese: 


I Register zurückholen 

I Die Rückgabe muß nach dem POP erscheinen, 
I und darf keine Berrechnungen mehr 
I enthalten. 
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PROCEDURE Foo; 

VAR rp : RastPortPtr; 
x,y : INTEGER; 
bla : LONGINT; 

BEGIM 

PUSH(RegSet:{D2..07,A2..A6}); I Register sichern 

SETREG(REG(A6),A4); | globale Daten sind in der Librarybase 

rp:=RastPortPtr(REG(AO)); I hier werden die Argumente aus den 

x:=REG(D0); I Prozessorregistern extrahiert. 

y:=REG(Dl); 

I 

I hier ist die Implementierung 


SETREG(bla,DO); I Rückgabe erfolgt in DO 

POP(RegSet:{D2..D7,A2..A6}); I Register zurückholen 
END Foo; 

Soll die Schnittstelle der Library von den eigentlichen Rontinen getrennt 
werden, so daß in der Schnittstellenrontinen nnr ein Anfrnf anf die ei¬ 
gentliche Rontine vorhanden ist, empfiehlt sich folgendes Verfahren: 

PROCEDURE Foo; 

BEGIM 

PUSH(RegSet:{D2..D7,A2..A6}); I Register sichern 

SETREG(REG(A6),A4); | globale Daten sind in der Librarybase 


SETREG(I_Foo(RastPortPtr(REG(AO)),REG(D0),REG(D1)),D0); 


POP(RegSet:{D2..D7,A2..A6}); I Register zurückholen 
END Foo; 

Hier wird die eigentliche Rontine mit den Argnmenten direkt aus den 
Registern aufgerufen, so daß keine Zwischenvariablen benötigt werden. 

Spezielle Clustertypen können nicht immer problemlos an Libraries übergeben 
werden. Hier zu nennen sind vor allem Clusterstrings und LIST OF 
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ANHANG D. ERZEUGEN VON LIBRARIES: 


Parameter. Strings erscheinen in der Libraryimplementierung als SysS- 
tringPtr, LIST OF Parameter als POINTER TO ARRAY OF... 


Beispiel: 

LIBRARY DummyBase BY -36 

PROCEDURE bar (REE str IM AO : STRING; 

tags IN Al : LIST OF DummyTags); 

erscheint in der Implementierung als: 

TYPE 

DummyTagList = ARRAY OF DummyTags; 

DummyTagListPtr = POINTER TO DummyTagList; 

PROCEDURE bar(str IN AO : SysStringPtr; 

tags IM Al : DummyTagListPtr); 

Exceptions können auch in Libraries wie gewohnt verwendet werden. 
Allerdings gibt es keinen äußersten Exceptionhandler, der das Program 
einfach beenden würde. Wird eine Exception ausgelöst, die keinen Händ¬ 
ler findet, so versenkt sich der Rechner in tiefe Meditation über den Sinn 
seiner Existenz. 

In Libraries gelten gewisse Einschränkungen des Clustersprachum- 
fangs. Die hauptsächliche Einschränkung ist das Verbot dynamisch al- 
lokierter offener Rückgabetypen. Dies führt dazu, daß in Libraries die 
Eunktion ALLOC_RESULT nicht implementiert ist. Auch die Rückgabe von 
komplexen Typen an einen VAR- oder REE-Parameter ist aus diesem 
Grund nicht gestattet. Einige Module sind ebenfalls nicht für Libraries 
verfügbar, ein typisches Beispiel hierfür wäre z. B. InOut. 
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Anhang E 


Sprachdefinition 


E.l Grundlegende Sprachelemente 

Die Sprache Cluster basiert auf dem ASCII Zeichenstandard. Verwendet werden die 
großen und kleinen Buchstaben des Standardalphabets, sowie die üblichen Sonder¬ 
zeichen. Cluster ist case-sensitive, das heißt es wird zwischen großen und kleinen 
Buchstaben unterschieden. In der Tradition von Algol, Pascal, C und Modula ist 
Cluster formatfrei, d. h. zwischen zwei Symbolen der Sprache dürfen beliebig viele 
Leerzeichen und Zeilenvorschübe enthalten sein. 

Cluster ist eine Sprache, die für einen Singlepasscompiler zugeschnitten ist. Dies 
hat zur Folge, daß mit Ausnahme von Pointerzielen alle Bezeichner vor ihrer Verwen¬ 
dung definiert werden müssen. 

Die Sprachdefinition wird in EBNF angegeben. 

$$ letter ::= a|b|c|...X|Y|Z 

$$ digit ::= 0|1|2|3|4|5|6|7|8|9 

$$ hexdigit ::= digit|A|B|C|D|E|F 

E.1.1 Bezeichner 

Bezeichner bestehen in Cluster aus großen und kleinen Buchstaben, Zahlen und dem 
Unterstrich Sie müssen immer mit einem Buchstaben beginnen. 

$$ ident ::= letterfletter | digit | 

Beispiele für richtige Bezeichner: 

Cluster, Text2, Text_2, aus, Ein_Text 
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ANHANGE. SPRACHDEFINITION 


Falsch wären: 

2Pi, _LVO, Ein Text 

Großschreibungen im Wort und der Unterstrich können dazu dienen, die Bezeichner 
lesbarer zu gestalten. 

Manche Bezeichner müssen noch qualifiziert werden: 

$$ qualident : := {ident .]■ ident 

Folgende Bezeichner sind vorbelegt: 


SHORTCARD 

CARDINAL 

LONGCARD 

SHORTINT 

INTEGER 


LGNGINT 


FFP 


REAL 


LONGREAL 

BDOLEAN 


CHAR 


ANYTYPE 


ANYPTR 


STRING 


SAMEPTR 




TRUE 


FALSE 


NIL 




INC 

DEC 

INCL 

EXCL 

FLIP 

CAST 

ABS 

CAP 

DDD 

ACOS 

ASIN 

ATAN 

COS 

COSH 

EXP 

LN 

LOG 

SIN 

SINH 

SQRT 

TAN 

TANH 

CEIL 

FLOOR 

SETREG 

REG 

SHL 

SHR 

LMUL 

LDIV 

EVEN 

ROL 

ROR 

UNI 

SEC 

HALT 

HALT2 

PUSH 

POP 

SUCC 

PRED 

ASSERT 

ASSERT2 

RAISE 

RAISE2 

ALLOC. 

_RESULT 



E.1.2 Einfache Konstanten 

Ganzzahlkonstanten können binär, dezimal, hexadezimal oder zu einer beliebigen 
Basis angegeben werden. Beginnt eine Konstante mit einer Zahl, wird sie als dezimal 
interpretiert. Ein Dollarzeichen „$“ leitet eine Hexzahl, ein Prozentzeichen „%“ eine 
Binärzahl ein. Zahlen zu einer beliebigen Basis haben die Form „Basis:Wert“ 

$$ intconst : := (digit{digit]-) | ("$"{hexdigit}) | (""/»"{bindigit}) | 

(digit{digit]-: hexdigit-[hexdigit}) 


Folgende Konstanten haben zum Beispiel den selben Wert: 
107, $6B, 7,1101011, 16:6B 4:1223 


Realkonstanten enthalten einen Punkt und bei Bedarf eine Exponentenangabe. Diese 
wird durch ein „E“ in der Zahl begonnen. Danach kann bei Bedarf ein folgen. 
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$$ realconst ::= digit{digit]-" . "{digit} ["E" digit{digit}] 

Folgende Konstanten haben z.B. den selben Wert: 

127.64, 1.2764E2, 12764.E-2 

Zeichenkonstanten werden durch ein kaufmännisches Und mit nachfolgendem 

ASCII-Wert in Dezimalschreibweise angegeben. Alternativ kann auch das Zeichen in 
Anführungstrichen gegeben sein. 

$$ charconst ::= ("&"digit{digit})|("char") 

Beispiele: 

"A", "0", &13, &10 

E.1.3 Zeichenkettenkonstanten 

Zeichenketten werden als Folge von ASCII-Zeichen in Anführungsstrichen angege¬ 
ben. Dabei ist eine Konkatenation erlaubt, um im Text Sonderzeichen verwenden zu 
können, oder eine Konstante über mehrere Zeilen erstrecken zu lassen. 

$$ strconst ::= ("{char}")Icharconst 

$$ stringconst ::= strconst{"+"strconst} 

Beispiele: 

"Haus", "Dies ist ein Text", "X", "Return"+&10+"neue Zeile"+&10 

Der Typ einer Zeichenkettenkonstante ist der Typ STRING. Zur Kompatibilität mit 
Sprachen ohne expliziten Stringtyp, wird einer Zeichenkettenkonstante ein unsicht¬ 
bares ASCII-NULL (&0) angehängt. 

E.1.4 Geschützte Bezeichner und Symbole 

In Cluster sind viele Sprachsymbole durch Bezeichner gegeben. Diese Bezeichner 
bestehen nur aus großen Buchstaben, und werden durch den Editor zusätzlich Fett 
hervorgehoben. 

Folgende Symbole werden in Cluster verwendet: 
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" # 

$ 

7. 

& ( 

) 

(* 

*) + 




- 


. 

/ 

l 

; < 



<= = 

> 

>= 

[ ] 


{ 

} 



AMD 

AMD_IF 

AMD.WHILE 

ARRAY 

AS 

BCPLPTR 

BEGIM 

BY 

CLASSPTR 

CLOSE 

COMST 

DEFINITION 

DIV 

DO 


ELSE 

ELSIF 

END 

EXCEPT 

EXIT 

FOR 

FORGET 

FORWARD 


FROM 

GROUP 

HIDDEN 

IF 

IMPLEMENTATION 

IMPORT 

IM 

KEY 

LIBRARY 

LOOP 

MOD 

MODULE 

NOT 

OF 

OR 

0R_IF 


OR.WHILE 

POINTER 

PROCEDURE 

RECORD 

REF 

REPEAT 

RE- 

TURN 









SET 

SHL 

SHR 

STATIC 

TAGS 

THEM 

TO 

TRACK 

TRY 

TYPE 

UMTIL 

VAR 

WHILE 

WITH 






E.1.5 Kommentare 

Kommentare können als (* <Kommentartext> *) angegeben werden. Sie können ges¬ 
chachtelt werden, und zwischen zwei beliebigen Symbolen liegen. Durch einen sen¬ 
krechten Strich " I " kann eine Zeile bzw. der Rest der Zeile nach dem Strich zum 
Kommentar erklärt werden. 

Beispiele: 


(* Dies ist ein (* geschachtelter! *) Kommentar *) 
WriteLn; | Die ist ein Zeilenende-Kommentar 
I .. der aber auch am Zeilenanfang stehen kann ! 


E.2 Typen 

Cluster ist eine streng und statisch getypte Sprache, das heißt, bei allen Operationen 
werden die Typen beachtet. Die Typüberprüfung findet soweit möglich während der 
Compilierung statt. 

Eine Typausdruck hat folgendes Format: 


$$ simpletype 

$$ varlist 
$$ elements 
$$ elemlist 
$$ recordtype 


qualident|("["expression[".."expression]"]")| 

("("ident[:=expression]{,ident[:=expression]}")") 

ident, "ident}" : "typeexpress 

expression[".."expression] 

elementsf","elements} 

varlist| 

(IF KEY [ident]":"simpletype 
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$$ tagtype : : = 

$$ paradeclar ::= 

$$ formalparams ::= 
$$ typeexpress ::= 


{OF elemlist THEN {varlist}} END) 
ident [:= expression] : typeexpress 
[VARlREF] ident [IN expression] 

{,ident [IN expression]qualident 

["("[paradeclar{;paradeclar}]")"[":"qualident] 

qualident|simpletype| 

(ARRAY [siinpletype-[,simpletype}] OF typeexpress)! 
(RECORD [OF qualident] recordtype-(; recordtype}) j 
(SET OF simpletype)j 

(POINTERjCLASSPTRlBCPLPTR TO typeexpress)! 

(ident"("expression")")! 

(PROCEDURE formalparams)! 

(TAG [OF qualident] tagtype{;tagtype}) 

(OBJECT [OF qualident [AS ident] 

qualident [AS ident] } ";"] 

(ident-[", "ident} : typeexpress ";")! 

([DEFERRED] 

(METHOD!CONSTRUCTOR!DESTRUCTOR) 
ident [ formalparams ] ";") 

} 

END) 


Eine Typdefiniton hat folgendes Format: 

$$ typedef ::= TYPE {ident"="typeexpress} 

Dabei wird einem Bezeichner ein Typ zugeordnet, der dann über diesen Bezeichner 
weiter verwendet werden kann. 


E.2.1 

Einfache Typen 

E.2.1.1 

Zählbare Typen 

SHORTINT 

INTEGER 

LONGINT 

-128..127 

-32768..32767 

-2147483648..2147483647 

SHORTCARD 

CARDINAL 

LONGCARD 

0..255 

0..65535 

0..4294967296 

CHAR 

&0..&255 Zeichen 

BOOLEAN 

TRUE , FALSE 
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Aufzählungstypen sind Typen, die eine feste Anzahl von Werten repräsentieren. 
Diese sind durch Konstanten gegeben, die von Null an aufwärts numeriert sind. Ein 
Aufzählungstyp wird durch eine Aufzählung der Elemente in runden Klammern de¬ 
finiert. 

Beispiel: 

Obst=(Apfel.Banane,Kirsche) oder Farben=(rot,gruen,blau) 

Die Numerierung der Elemente eines Aufzählungstyps kann unterbrochen und mit 
einem neuen Wert fortgesetzt werden: 

FileAccess=(readWrite=1004,read0nly=1005,newFile=1006); 

oder auch: 

FileAccess=(readWrite=1004,readOnly,newFile); 

Verschiedene Aufzählungstypen dürfen die selben Bezeichner für ihre Elemente be¬ 
nutzen Z.B.: 

Hardware: 

TYPE IntFlags = (tbe.dskblk,softint,ports,copper ... ); 

Exec: 

TYPE 

NodeType = (unknown.task,interrupt.device.msgport.message, 
freeMsg,replyMsg,resource,library.memory, 
softint,font ... ); 


TYPE 

MsgPortAction = (signal,softint,ignore); 

In allen drei Typen ist ein Element namens „softint“ enthalten. Der Compiler 
versucht so weit ihm dies möglich ist, das richtige Element zu finden, ist ihm dies 
nicht eindeutig möglich, meldet er einen Fehler. Das Element muß dann über seinen 
Typen qualifiziert werden: 

NodeType.softint 

Unterbereichstypen repräsentieren eine Untermenge der Elemente eines einfachen 
Typs. Die Grenzen werden in eckigen Klammern getrennt durch „ . . “ gegeben. Wird 
nur ein Wert angegeben, bedeutet dies einen Unterbereich von NULL an mit sovielen 
Elementen. 

Beispiel: 

[1..10], [-200.. 200], ["A".."Z"], [10], [gruen. .blau] 
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E.2.1.2 Überabzählbare Typen 

Cluster bietet drei Typen, die die Menge der reellen Zahlen repräsentieren. Diese 
Typen sind unvollständig, da der Speicherplatz eines Rechners beschränkt ist. 

FFP, REAL 7 geltende Stellen, Exponent bis +/- 19 

LDNGREAL 16 geltende Stellen, Exponent bis +/- 304 

REAL-Zahlen sind lEEE-single-precision Zahlen. Da diese erst ab OS 2.0 bzw. mit 
einem mathematischen Coprozessor verfügbar sind, können sie auf einem normalen 
Rechner unter 1.3 nicht genutzt werden. Auf einem Amiga ohne FPU sind FFP- 
Zahlen schneller als REAL-Zahlen; besitzt man jedoch eine FPU, sind REAL-Zahlen 
schneller. 


E.2.1.3 Mengentypen 

Mengentypen sind Typen von Mengen über einer vorgegebenen Grundmenge. Diese 
muß sich aus Elementen eines zählbaren Typs zusammensetzen. Die maximale Anzahl 
der Elemente der Grundmenge ist 32. Ein Mengentyp wird definiert durch „SET 
OF“. 

Beispiel: 

BITSET=SET OF [0..15], Farbset=SET OF Farben 

E.2.2 Komplexe Typen 

Komplexe Typen sind in Cluster Arrays, Records, Objekte, Tags und Strings. 

E.2.2.1 Arrays 

Ein Array ist eine Zusammenfassung mehrerer Elemente eines Typs zu einem neuen, 
wobei jedes Element eindeutig über einen Index (oder mehrere Indices) bezeichnet 
wird. Ein Array besitzt einen Unterbereichstypen als Indextyp und einen Basistyp. 
Beispiel: 

Farbwerte = ARRAY Farben OF [0..15]; 

Mehrdimensionale Arrays sind Arrays von Arrays: 

ARRAY TI OF ARRAY T2 OF ARRAY T3 .. OF T 


ist gleichbedeutend mit 
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ARRAY T1,T2,T3... OF T 

Matrix = ARRAY [1..3], [1..3] OF REAL; 

Es ist auch möglich Arrays über einen Typen zu definieren, dessen Obergrenze nicht 
bekannt ist. Diese offenen Arrays haben immer INTEGER als Indextyp. 

TYPE 

Vector = ARRAY OF REAL; 

Sie können nur auf vier Arten verwendet werden, als Ziel eines Pointers, als Para¬ 
meter einer Prozedur, als Typ einer Konstanten oder bei der Definition eines ges¬ 
chlossenen Typen. Wird ein offenes Array als Pointerziel verwendet, sollte dafür ein 
CLASSPTR verwendet werden, da nur so eine Bereichsüberprüfung möglich ist. Die 
Grenzen eines existierenden offenen Arrays können über Attribnte ermittelt werden. 

TYPE 

Vector3 = Vector(3); 

VecPtr = CLASSPTR TO Vector; 

COMST 

IntArray = ARRAY OF INTEGER:(1,2,3,4); 

Will man ein solches offenes Array allozieren, trägt man zuerst den RANGE des Arrays 
ein, und rnft dann New anf: 

VAR 

UserVec : VecPtr; 

BEGIN 

UserVec’RANGE:=6; 

New(UserVec); 

E.2.2.2 Records 

Ein Record ist eine Zusammenfassung mehrerer Elemente verschiedener Typen zu 
einem neuen, wobei jedes Element über einen znsätzlichen Namen angesprochen wird. 

TYPE 

Adresse = RECORD 
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namen, 

Vornamen : STRING(20); 
alter : INTEGER; 

END; 

Werden in einem Record nicht alle Felder gleichzeitig benötigt, können diese übereinandergelegt 
werden. Dies spart Speicherplatz. Man spricht in diesem Fall von einem Varianten 
Record. 

TYPE 

Geschlecht = (maennlich,weiblich); 

Person = RECORD 

namen, 

Vornamen : STRING(20); 

IF KEY geschl : Geschlecht 

OF maennlich THEN dienstgrad : STRING(20); 

OF weiblich THEN maedchenname : STRING(20); 

END; 

END; 

Records lassen sich um weitere Elemente erweitern, dabei bleiben alle vorherigen 
Felder erhalten. Ein Record, der sich auf einen bereits bestehenden gründet, wird 
durch RECORD OF eingeleitet. 

Ein Beispiel aus Exec: 

MinNodePtr = POINTER TO MinNode; 

MinNode = RECORD 

succ,pred : MinNodePtr; 

END; 

Node = RECORD OF MinNode 

type : NodeTypes; 
pri : SHORTINT; 
name : SysSTringPtr; 

END; 

Message = RECORD OF Node 

replyPort : MsgPortPtr; 
length : CARDINAL; 
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END; 


lORequest 


= RECORD OF 
device 
unit 
command 
f lags 
error 


Message 
: DevicePtr; 
: UnitPtr; 

: CARDINAL; 

: lOFlagSet; 
: SHORTCARD; 


END; 


So lassen sich Hierarchien von Typen aufbanen, die nach unten zuweisungskompatibel 
sind. 


E.2.2.3 Strings 

Ein String in Cluster hat folgendes Format: 

STRING = RECORD 

len : INTEGER; 
data : ARRAY OF CHAR; 

END; 

Es gibt wie bei Arrays offene und feste Strings. Für Variablen dürfen nur Stringtypen 
mit fester Maximallänge verwendet werden. 

StringSO = STRING(30); 

Offene Strings unterliegen den selben Beschränkungen wie offene Arrays. 

Jeder String hat zwei Endkenzeichen: die in len gegebene Länge und ein Nullbyte 
nach dem letzten Zeichen. Dieses Nullbyte geht nicht in len ein, wohl aber in die 
maximale Länge des Strings. 

E.2.2.4 Tag-Typen 

Ein Tag Element besteht immer aus zwei Elementen. Das erste Element enthält einen 
TAG-Wert, der aussagt, welchen Typ das zweite Element hat. Dieses zweite Feld ist 
maximal vier Bytes groß. Hierbei ist ein Erben von bereits bestehenden Tag-Typen 
möglich. 

Beispiel: 
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ScreenTags = TAGS OF StdTags 


width = $80000020 

INTEGER; 

height 

INTEGER; 

depth 

INTEGER; 

name 

POINTER TO STRING; 

f lags 

ScreenFlagSet 


END; 

Tags werden durch das Amiga-OS 2.0 häufig verwendet und zwar in der Form von 
TAG-Listen, das sind (nach Bedarf auch verkettete) Arrays von Tag- Typen. 
Beispiel: 

ScreenTagList = ARRAY OF ScreenTags; 

Um nun einen Screen zu öffnen, muß eine Tag-Liste angegeben werden, in der die 
Elemente aufgeführt sind, die sich von den Werten eines Standardscreens unterschei¬ 
den. 

OpenScreenTagList(ScreenTagList:(width : 320, 

height : 256, 

name : "Name"’PTR, 

DONE)); 

Alternativ können statt Arrays von Tags auch Listen von Tags verwendet werden, 
dann können als Argumente der Tags auch nicht konstante Ausdrücke verwendet 
werden. 

OpenScreenTagsCns : NewScreenPtr;tags : LIST OF ScreenTags); 

OpenScreenTags(NIL, width : Max(320,StandardWidth), 

height : Max(256,StandardHeight), 

name : "Name"’PTR, 

DONE); 

Für Listen von Tags sind zwei spezielle Standardfunktionen definiert, TGET und TPUT. 
TGET extrahiert einen Tagwert aus einer Liste, TPUT ändert einen Wert in einer Ta¬ 
gliste. TGET erhält drei Argumente, die Liste, den Namen des Tags, dessen Wert 
ermittelt werden soll, und einen Defaultwert, der zurückgeliefert werden soll, falls der 
Tag nicht in der Liste enthalten ist. TPUT hat eine ähnliche Argumentliste, lediglich 
der letzte Wert ist kein Defaultwert, sondern der neue Inhalt des Taglistenelements. 
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VAR tags := ScreenTagList:(width 

name 

w : INTEGER; 


320, height : 256, 
"Name"’PTR,D0NE); 


w:=TGET(tags,width,0); 

TPUT(tags,name,"Neuer name"); 


E.2.3 Zeigertypen 

Es gibt in Cluster drei Zeigertypen: normale Zeiger (POINTER), Zeiger für offene 
Typen (CLASSPTR) und Zeiger, die zu BCPL kompatibel sind (BCPLPTR). 
Beispiel: 

TYPE 

NodePtr = POINTER TO Node; 

Node = RECORD 

prev, 

next : NodePtr; 

key : INTEGER; 

END; 

Es existiert ein Pointertyp, der zu allen Pointertypen und zu LONGINTs bzw. LONGCARDs 
kompatibel ist: ANYPTR. Dieser Pointer hat kein eigentliches Ziel. Zu diesem Typ gibt 
es die Konstante NIL, die eine nicht vorhandene Adresse bedeutet. 

Neben diesen allgemeineren Pointertypen exisitiert noch ein Typ, der speziell 
zum Gebrauch bei der Vererbung von Records eingeführt wurde, der SAMEPTR. Ein 
SAMEPTR kann nur als Element eines Records verwendet werden, er stellt einen Zeiger 
auf den Typen dar, den der aktuelle Record bildet. 

Beispiel: 

TYPE 

Node = RECORD 

prev, 

next : SAMEPTR; 

END; 

Node2 = RECORD OF Node 

data : INTEGER 

END; 
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Die Felder prev und next haben in Records des Typs Node den Typ POINTER 
TO Node, in Records des Typs Node2 aber den Typen POINTER TO Node2. Der 
Record bleibt trotzdem nach unten kompatibel, da ja ein POINTER TO Node2 
auch ein Nachfahre von POINTER TO Node darstellt. Der Vorteil ist aber, daß 
Ausdrücke der Form Node2~ .next“ .data möglich sind, was bei der Verwendung des 
Typs POINTER TO Node anstatt eines SAMPETRs nicht möglich wäre. 

E.2.4 Opake-Typen 

Opake Typen sind Typen, die in einem Definitions-Modul angegeben, aber erst im 
Implementations-Modul definiert werden. Dies ermöglicht das Geheimnisprinzip. Ein 
opaker Typ darf nur stellvertretend für einen Pointer stehen. 

DEFINITION MODULE <name> 

TYPE 

List = HIDDEN; 

END <naine>. 

IMPLEMENTATION MODULE <naine> 

TYPE 

List = POINTER TO 
RECORD 
first, 

prev : NodePtr; 

END; 


END <naine>. 

E.2.5 Objekttypen 

Objekte sind in Cluster mit Records vergleichbar, besitzen allerdings zwei zusätzliche 
Eigenschaften, einen dynamischen Typen, und eine Menge von Methoden, die dyna¬ 
misch zur Laufzeit ermittelt werden. 

Objekte können nicht direkt als Variablen verwendet werden, sondern lediglich 
durch Zeiger auf Objekte. Spezielle Methoden, die durch das Schlüsselwort CONSTRUCT 
(bzw. DESTRUCT) eingeleitet werden, dienen der Erzeugung und Vernichtung der Ob¬ 
jekte. 

Objekte können wie Records durch Erben auseinander hervorgehen, hierbei ist 
auch ein Mehrfacherben von mehreren Elternobjekten möglich. 
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In der Objektdefinition müssen auch alle für dieses Objekt definierten Metho¬ 
den mitangegeben werden. Soll eine Methode eines Elternobjektes durch eine neue 
Methode überdefiniert werden, so muß dies ebenfalls in der Definition angegeben 
werden. 


E.2.6 Prozedurtypen 

Prozeduren haben in Cluster ebenfalls einen Typ. Dieser ist durch die Ubergabeparameter 
gegeben (siehe Prozedurdeklaration). 


E.3 Variablendeklaration 

Alle Variablen, die in Cluster benutzt werden, haben einen festen Typ, und müssen 
vor ihrer Benutzung deklariert werden. 

$$ vardeclar ::= ident [(IN expression)|STATIC] 

ident [(IN expression)|STATIC]} 

(( [rtypeexpress] := expression)|(:typeexpress)) 
$$ vardeclaration ::=VAR [vardeclar{;vardeclar}] 


Das Schlüsselwort IN gibt an, daß die Variable in ein Register zu legen ist. Dies gilt 
nur für den unmittelbaren Sichtbarkeitsbereich der Variablen, nicht jedoch für weiter 
innen liegende. 

Beispiel: 


VAR i,j 
c 

k IN D2 
1 
n 


INTEGER; 

CHAR; 

INTEGER; 

INTEGER := 2; 

= NewScreen:(width=...); 


Die Registernamen DO bis A7 sind im Modul SYSTEM als Aufzählungstyp „Regs“ defi¬ 
niert. 

Durch die Initialisierung „ :=“ kann der Variable bei ihrer Deklaration ein Start¬ 
wert zugewiesen werden. Lokale Variablen werden am Prozeduranfang, globale Va¬ 
riablen dagegen werden am Programmanfang initialisiert. Alle globalen Variablen, 
die nicht mit einer Konstante vorbelegt werden, werden am Programmanfang mit 
Nullen initialisiert. 

Das Schlüsselwort STATIC kann nur bei Variablendeklarationen innerhalb von 
Prozeduren verwendet werden. Diese Variablen überleben ihre Prozedur, und ha¬ 
ben beim nächsten Aufruf noch den selben Wert wie beim Verlassen. Werden sie 
vorinitialisiert, so geschieht dies nur einmal am Programmanfang. 
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E.4 Konstanten 

E.4.1 Einfache Konstanten 

Einfache Konstanten sind Konstanten der einfachen Typen. 

Beispiel: 

123.43, "C", 12, $1234 

Der Typ einer derartigen Konstante ergibt sich aus ihrer Darstellung, so ist „C“ vom 

Typ CHAR. 

E.4.2 Komplexe Konstanten 

In Cluster ist es auch möglich, Konstanten komplexer Typen zu bilden. Stringkons¬ 
tanten werden einfach in Hochkomma eingeschlossen: 

"Dies ist ein Text" 

Andere komplexe Konstanten werden durch einen Typbezeichner mit nachfolgendem 

Doppelpunkt eingeleitet: 

$$ comconst ::= expressioni 

("("[comconstf,comconst}]")")I 
("("[ident=comconst{,ident=comconst}]")")I 
("{"elemlist"}")| 

(ident : comconst) 

$$ complexconst ::= ((ident|(ARRAY OF) )":"comconst)| 

("{"elemlist"}") 


Beispiel: 

ARRAY OF VectorS:((1,0,0),(0,1,0),(0,0,1)); 

FarbSet:{gruen,blau}; 

ARRAY OF Adresse:((name ="Sigmund", 

vorname="Ulrich", 
alter =23), 

(name ="Pfrengle", 
vorname="Thomas", 
alter =21)); 
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Ein Zeiger auf eine derartige komplexe Konstante ist ebenfalls eine Konstante. Dieser 
Zeiger kann durch das Attribut PTR gewonnen werden. 

Bei Mengen, deren Typ dem Compiler sicher bekannt ist (bei Zuweisungen, in¬ 
nerhalb komplexer Konstanten etc.) kann auf den Typbezeichner verzichtet werden. 

Bei Recordkonstanten kann auf die Bezeichner verzichtet werden (sollte nur in 
Ausnahmefällen geschehen, da die Lesbarkeit des Programms meist vermindert wird), 
und die Elemente können in ihrer Reihenfolge durch Kommata getrennt aufgezählt 
werden. Diese Technik ist zu empfehlen bei großen Arrays aus kleinen Records. 

Bei Konstanten, die aus offenen Arrays gebildet werden, wird die wirkliche Größe 
aus der Anzahl der angegebenen Elemente gebildet. 

E.4.3 Konstantendefinition 

Konstanten können mit einem Namen belegt werden, und so mehrfach verwendet 
werden. Dabei ist für komplexe Konstanten auch eine Vorwärtsdeklaration möglich, 
indem nur der Typ der Konstanten angegeben wird. Dies ist besonders in Defintions- 
modulen oder für konstante verkette Listen sinnvoll. 

$$ constdef ::= ident "=" (ident|expression) 

$$ constdefinition ::= CONST [constdefconstdef}] 

CONST 

pi = 3.1415; 

Basis = ARRAY OF VectorS:((1,0,0), 

(0,1,0), 

( 0 , 0 , 1 )); 

E.4.4 Ausnahmedeklaration 

Ausnahmen sind Zustände, die eintreten, wenn nicht planmäßige Ereignisse auftreten, 
wie zu wenig Speicher, eine Division durch Null oder der Versuch, aus einer leeren 
Datenstruktur ein Element zu lesen. 

Es gibt drei Arten von Ausnahmen: solche, die durch den Prozessor hervor¬ 
gerufen werden (wie Division durch Null, Bereichsfehler etc.); solche, die durch die 
Standard/Schnittstellenmodule ausgelöst werden (wie zu wenig Speicher) und benut¬ 
zerdefinierte Ausnahmen. 

$$ exceptdefs ::= ident : (stringconst|intconst) 

$$ exceptdef ::= EXCEPTIDN exceptdef{;exceptdef} 

Beispiele: 

EXCEPTION 

NotEnoughMemory : "Nicht genug Systemspeicher verfügbar"; 
DivisionByZero : 8; 
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E.4.5 Gruppendeklaration 

Objekte und Deklarationen in einem Definitionsmodul können zu einer Gruppe zu¬ 
sammengefaßt werden, durch deren Importierung alle darin enthaltenen Objekte im¬ 
portiert werden. 

$$ groupdef ::= GROUP {ident = ident{,ident};} 

In einer solchen Gruppe können auch andere Gruppen enthalten sein. Stammen diese 
aus einem anderen Modul, müssen sie qualifiziert angegeben werden. 

E.5 Ausdrücke 

Ein Ausdruck besteht aus Variablen, Konstanten, Attributen, Funktionen und Ope- 


ti_n I I II I it^_ii I ii^ii I ti^ii 

" + " I I " I "/" I |DIV|M0D|SHL|SHR|AND|0R 

[expressionf,expression}] 

{-}I{NOT}(qualident|complexconst|intconst|realconst| 
charconst|stringconstI("("expression")"))I 
relopI"+" 

terin{(operator term) | | | | 

ident)ident)|(IN expression)! 

(OF elemlist)j("("paralist")")j 
(" ["expression{,expression}"] ") 

Die Operatoren haben bei verschiedenen Typen verschiedene Bedeutungen: 


ratoren. 

$$ relop 
$$ operator 
$$ paralist 
$$ term 


$$ expression 
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Operator 

Zahlen: 

Mengen: 

Zeiger: 

Boolean: 

+ 

Summe 

Vereinigung 



- 

Differenz 

Differenz 



* 

Produkt 

Schnitt 



/ 

Division 

Sym.Differenz 



- 

Potenz 


Dereferenz 


DIV 

Ganzzahldiv. 




MOD 

Rest der Div. 




SHL 

Linksshiften 




SHR 

Rechtsshiften 




+" 



Postinc.Deref. 





Predec.Deref. 


= 

gleich 

gleich 

gleich 

Äquivalenz 

# 

ungleich 

ungleich 

ungleich 

Exklusiv- Oder 

< 

kleiner 


kleiner 


<= 

kleiner/gleich 

Teilmenge von 

kleiner/gleich 


> 

größer 


größer 


>= 

größer/kleich 

Obermenge von 

größer/gleich 


AND 




Und 

OR 




Oder 

IN 


Element aus 



OF 

Element aus 





Wird ein relationaler Operator als parameterlose Fnnktion benutzt, liefert er den 
Zustand des korrespondierenden Prozessorflags. 

Folgende Regeln gelten für die Rechnungskompatibilität der Typen tl und t2: 


tl ist gleich t2 

tl und t2 sind SHDRTINT, INTEGER, LONGINT oder ANYPTR 
tl und t2 sind SHQRTCARD, CARDINAL oder LONGCARD 
tl und t2 sind FFP, REAL oder LONGREAL 

tl und t2 sind Unterbereiche zweier rechnungskompatibler Typen 

Das Zeichen dient dazu, ein Element eines Records zu qualiflzieren. Mit den 
Klammern [] wird ein Element eines Arrays bestimmt. Dies kann bei mehrdimen¬ 
sionalen Arrays auf zwei verschiedene Arten geschehen: 


©1992/93 by StoneWare 





E.5. AUSDRUCKE 


95 


A[il] [i2] . . oder A[il,i2, . .] 


Das Zeichen dient zur Dereferenzierung eines Zeigers, d. h. aus dem Zeiger wird 
das Objekt gebildet, auf das der Zeiger zeigt. Bei Zeigern auf Records und Arrays 
kann auf die explizite Dereferenzierung verzichtet werden, wenn diese unmittelbar 
darauf qualifiziert oder indiziert werden. 

Bei der Auswertung eines Ausdrucks gelten folgende Prioritäten: 

1. Funktionsauswertung, Dereferenzierung, Indizierung, Qualifizierung, Attri¬ 
butbildung 

2. Unäres Minus, Negation 

3. Potenzierung 

4. Multiplikation, Division, Shifts, logisches Und 

5. Addition, Subtraktion, logisches Oder 

6. relationale Operatoren 

Attribute liefern Informationen über Objekte und deren Typen. Sie werden durch ein 
Hochkomma und einen Attributsbezeichner ermittelt. Folgende Attribute sind 
vorgegeben: 

’PTR : Zeiger auf das Objekt 

’ADR : Adresse des Objekts 

’MIN : kleinster Wert, oder untere Indexgrenze 

’MAX : größter Wert, oder obere Indexgrenze 

’ RANGE : Anzahl der Elemente eines Arrays/Strings 

’SIZE : Größe in Bytes 

Neben selbstdefinierbaren Funktionen existiert auch eine Anzahl vordefinierter Funk¬ 
tionen. Diese werden meist nicht aufgerufen, sondern direkt in den erzeugten Code 
eingebaut. 


ODD(x:INTEGER):BDOLEAN 
CAST(Typ,x):Typ 
LMUL(x,y):L0NG.. 
LDIV(x,y):... 

REG(x):L0NGINT 
PRED(x):... 

SUCC(x):. . . 

GEIL(real):... 


liefert TRUE, falls x ungerade ist. 

Wandelt den Typ des Objekts x in Typ 
Multiplikation von 16xl6Bit auf 32Bit 
Division von 32xl6Bit auf 16Bit 
Inhalt des Prozessorregisters x 

Liefert den Wert von x um eins vermindert zurück, 
auch für Aufzählungstypen 

Liefert den Wert von x, um eins erhöht zurück. 
Liefert die nächste ganze Zahl, die größer oder 
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gleich real ist. 

FLDOR(real):... Liefert die nächste ganze Zahl, die kleiner oder 

gleich real ist. 

Die Standardfunktionen SUCC und PRED liefern bei Integers etc. den Wert +/— 1, 
bei Zeigern auf Strukturen einen Zeiger des selben Typs, dessen Zieladresse um die 
Größe eines Zielelements erhöht ist. 

Beispiel: 


SUCC(3) 

= 4 


PREDC'B 

M) = 


TYPE 

Eiern = 

RECORD 



x,y,z : 

: INTEGER; 


c ,h 
END; 

: CHAR; 


VAR 

Array : ARRAY [100] OF Eiern; 
p : POINTER TO Eiern; 
i : INTEGER; 

BEGIN 

p:=Array[0]’PTR; 

FOR i:=Array’MAX TO 0 BY -1 DO 
p.x:=10;...;p.h:="C"; 
p:=SUCC(p) 

END; 

END ... 

Oder auch extrem: 

SUCC(SUCC(p))^.x:=4; 

Neben diesen allgemeinen Funktionen verfügt Cluster noch über eine große Anzahl 
mathematischer Funktionen für REALs und LONGREALs: 

SIN, ASIN, SINH, COS, ACOS, COSH, TAN, ATAN, TANH, LN, LOG, EXP, SQRT, ABS 

Der Typ eines Ausdrucks kann sicher in einen anderen überführt werden, indem der 
Typbezeichner als Funktion verwendet wird. 
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E.6 Anweisungen und Strukturen 

Eine Anweisungsfolge ist eine Folge von Anweisungen, die durch Semikola getrennt 
sind. 

$$ statementsequence ::= statementf;Statement} 

$$ Statement ::= |assignment|repeatstatement|whilestatement| 

ifStatement|loopstatement|forstatement| 
withstatement|exitstatement|returnstatement| 
trystatement|forgetStatement|procedurecall 

Auch die leere Anweisung ist eine Anweisung. 

E.6.1 Zuweisungen 

Die wichtigste Anweisung ist die Zuweisung. Dabei wird einem Ausdruck auf der 
linken Seite der Wert des Ausdrucks der rechten Seite zugewiesen. Der Ausdruck der 
linken Seite muß eine Variable bzw. eine durch einen Pointer bezeichnete Speichers¬ 
telle sein. 

$$ assignment ::= expression expression 

Folgende Regeln gelten für Zuweisungskompatibilität von tl und t2: 

tl ist gleich t2 

tl und t2 sind Pointer auf den selben Typen 

tl und t2 sind SHORTINT, INTEGER, LONGINT, SHDRTCARD, CARDINAL, LONGCARD 
oder ANYPTR 

tl und t2 sind REAL oder LONGREAL 

tl und t2 sind Unterbereiche eines zuweisungskompatiblen Typen 
tl und t2 sind Arrays gleichen Basistyps mit gleichviel Elementen 
tl und t2 sind Strings beliebiger Länge 
tl und t2 sind direkte Nachfolger bei offenen Records 

E.6.2 REPEAT..UNTIL.. 

$$ repeatstatement ::= REPEAT statementsequence UNTIL expression 

Die Anweisungsfolge zwischen REPEAT und UNTIL wird solange ausgeführt, bis 
der Ausdruck an ihrem Ende wahr wird. 

i:=0; 

REPEAT WriteInt(i,0);INC(i) UNTIL i=10 

liefert: 


0123456789 
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E.6.3 IF-Struktur 

Die IF-Struktur ist extrem mächtig, sie enthält auch die von Modula bekannte CASE- 
Anweisung. 

$$ ifcase 

$$ ifstatement 
Die Grundstrnktur ist: 


IF bl 

THEN 

Sl 


o 

tö 

1 

M 

b2 THEN 

S2 


ELSE 


SN 


END; 



Der zu dem ersten Boolansdruck bi, der TRUE ist, gehörende Programmteil Si wird 
ansgeführt, nnd das Programm hinter END fortgesetzt. Ist kein Ausdruck wahr, wird 
SN ausgeführt. 

Jeder IF-Fall kann durch Einführen einer AND_IF-Klausel eingeschränkt wer¬ 
den, die selbst wieder OR_IF und/oder ELSE-Klanseln besitzt. Ist keiner dieser 
Fälle wahr, nnd kein ELSE-Teil vorhanden, wird der Vergleich mit dem nächsten 
tieferliegenden OR_IF oder ELSE weitergeführt. 


= (expression (THEN statementsequence)| 

(AND_IF ifcase))I(KEY expression 

{OF elemlist (THEN statementsequence END)| 

(AND_IF ifcase)}) 

[OR_IF|ELSIF ifcase]I([ELSE statementsequence] END) 
= IF ifcase 


0R_IF bx 

AMD.IF bxl THEN 

0R_IF bx2 THEN 

ELSE 

END 

0R_IF by 
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Sollen anhand eines Schlüsselwertes verschiedene Möglichkeiten geprüft werden, kann 
„KEY“ benutzt werden. 

0R_IF KEY al 

OF ... THEM ... END 
OF ... AMD_IF bx THEN 

0R_IF KEY all 
OF ... THEN 

END 

OF ... THEM ... END 
0R_IF ... 

E.6.4 WHILE-Struktur 

Die WHILE-Struktur ist völlig symmetrisch zur IF-Struktur. Der Unterschied ist, 
daß nachdem ein Programmteil zu einem DO ausgeführt wurde, wieder zurück zum 
Anfang der WHILE-Struktur gesprungen wird. 

$$ whilecase ::= (expression (DO statementsequence)| 

(AND_WHILE whilecase))I(KEY expression 
{DF elemlist (DO statementsequence END)| 

(AND.WHILE whilecase)}) 

[0R_WHILE whilecase]|([ELSE statementsequence] END) 
$$ whilestatement ::= WHILE whilecase 

E.6.5 LOOP..END, EXIT 

Die LOOP-Struktur ist eine Schleife ohne dedizierte Terminationsbedingung. Die 
Schleife wird durch das Schlüsselwort EXIT terminiert, das an beliebiger Stelle inne¬ 
rhalb der Schleife stehen darf. 

$$ loopstatement ::= LOOP statementsequence END 

$$ exitstatement ::= EXIT 

E.6.6 FOR..DO..END 

Die FOR-Struktur ist eine Schleifenstruktur, deren Termination durch einen Zähler 
gegeben ist. Dieser läuft von einem angegebenen Startwert zu einem Endwert, wobei 
der Schleifenindex jedesmal um eine vorgegebene konstante Schrittweite erhöht wird. 
Als Schleifenzähler sind alle zählbaren Typen zugelassen. 
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$$ forstatement ::= FÜR assignment TO expression [BY expression] DO 

statementsequence END 

FÜR i:=start TO end BY Step DO Statement END; 

entspricht für positives step: 

i:=start; WHILE i<=end DO Statement;INC(i,Step) END; 

bei negativem step: 

i:=start; WHILE i>=end DO Statement;DEC(i,step) END; 

Wird kein Schrittwert angegeben, wird eins verwendet. 

E.6.7 WITH..DO..END 

Die WITH-Struktur erzeugt temporäre Variablen, oder gibt bestehenden einen neuen 
Namen. 

$$ withstatement ::= WITH expression [AS ident]{,expression AS ident} DO 

statementsequence END 

Wird als Ausdruck ein Typ angegeben, wird eine neue Variable erzeugt. 

VAR source,dest : POINTER TO 

ARRAY [0..3] OF 
POINTER TO 

ARRAY [0..9] OF INTEGER; 
i : INTEGER; 

FOR i:=0 TO 9 DO 

dest"[2]"[i]:=source"[3]"[9-i] 

END; 

Kann durch WITH vereinfacht werden: 

WITH dest^[2]^ AS d,source^[3]^ AS s DO 
FOR i:=0 TO 9 DO 
d^[i]:=s^ [9-i] 

END; 

END; 
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Dies ermöglicht dem Compiler auch Optimierungen, da er die Adressausdrücke nur 
einmal errechnen muß. 

Wird kein neuer Namen durch AS angegeben, wird der Name der Basisvariablen 
beibehalten. 


E.6.8 RETURN 

RETURN beendet die Ausführung einer Prozedur. Handelt es sich dabei um eine 
Funktion mit einem einfachen Rückgabetypen, muß dahinter ein Ausdruck ange¬ 
geben werden, der den Rückgabewert darsteht. Bei Funktionen mit komplexem 
Rückgabewert wird dieser durch die Variable RESULT zurückgegeben. 

$$ returnstatement ::= RETURN [expression] 


E.6.9 Prozeduraufruf 

Eine Prozedur wird aufgerufen, wenn ein Ausdruck einen Prozedurtypen liefert (eine 
normale Prozedur ist eine Konstante ihres eigenen Prozedurtyps). 

$$ procedurecall ::= expression "("paralist")" 

Cluster verfügt über eine Reihe von Compilerprozeduren, die nicht aufgerufen werden, 
sondern direkt in den erzeugten Code eingebaut werden. 


INC(x) 

INC(x,m) 

DEC(x) 

DEC(x,m) 

EVEN(x) 

SHL(x,n) 

SHR(x,n) 

ROL(x) 

ROR(x) 


erhöht x um 1, nur zählbare Typen und Zeiger 
erhöht x um m 
erniedrigt x um 1 
erniedrigt x um m 

rundet x auf die nächste gerade Zahl ab 
shiftet X um n Bits links 
shiftet X um n Bits rechts 
rotiert x um ein Bit nach links 
rotiert x um ein Bit nach rechts 


INCL(s,e) 

EXCL(s,e) 

FLIP(s,e) 

UNI(d,s) 

SEC(d,s) 


fügt das Element e in die Menge s ein 
entfernt das Element e aus der Menge s 
wechselt die Anwesenheit von e in der Menge s 
verinigt die Menge d mit der Menge s 
schneidet die Menge d mit der Menge s 


SETREG(r,v) schreibt den Wert von v in Register r 
INLINE (x, . .) schreibt eine Anzahl von Datenwörter in das erzeugte 
Programm 




102 


ANHANGE. SPRACHDEFINITION 


HALT(x) 

beendet das Programm mit Fehlernummer x 

HALT2(x) 

beendet das Programm mit Fehlernummer x an der Stehe, an 
der die aktuelle Prozedur aufgerufen wurde 

RAISE(x) 

löst die Ausnahme x aus 

RAISE2(x) 

löst die Ausnahme x aus, wobei als Ereignispunkt der Punkt 
des Prozeduraufrufs angegeben wird 

ASSERT(b,x) 

stellt sicher, daß die Bedingung b erfüllt ist, andernfalls 
wird die Ausnamhe x ausgelöst 

ASSERT2(b,x) 

wie ASSERT, nur wird als Ereignispunkt der Punkt des 
Prozeduraufrufs angegeben. 

PUSH(set) 

Sichert die im set angegebenen Register auf den Stapel, z.B. 
für Interrupts etc. 

POP(set) 

Nimmt mit PUSH gesicherte Register wieder vom Stapel 
herunter. 


E.6.10 Der Inline-Assembler 

Der Assembler ist als Standardfunktion implementiert: ASSEMBLE(. . .)• Er kann an 
einer beliebigen Stelle im Programm benutzt werden, der erzeugte Code wird an 
genau dieser Stelle ins Programm eingefügt. 

Bsp. : 

BEGIN 

ASSEMBLEC 

MOVE.L D0,A0 

BNE loop 

); 


END ...; 

Es ist möglich auf alle lokalen und globalen Variablen über ihren Namen zuzugreifen, 
der Assembler wählt automatisch die richtige Adressierungsart. Auch auf Variablen 
innerhalb einer Prozedur kann zugegriffen werden, der Assembler übersetzt den Zu¬ 
griff in eine SP-relative Adressierung. Dies wirft allerdings ein Problem auf, wenn der 
Stackpointer verändert wird, da dies den Compiler schwer durcheinander bringt. 
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Bsp.: 

VAR i : ARRAY [0..5] OF INTEGER; 

PROCEDURE IncKat.um : INTEGER); 

BEGIN 

ASSEMBLEC 

MOVE um,DO 
MOVE at,Dl 
ASL #1,D1 
LEA i,AO 
ADD DO,(AO,Dl) 

) 

END IncI; 
oder auch: 

PROCEDURE IncI(at,um : INTEGER); 

BEGIN 

ASSEMBLECUSE DO 

MOVE um,DO 
ADD um,i[at] 

) 

END IncI; 

Der Assembler überführt diesen Code automatisch in die entsprechenden Anweisun¬ 
gen. Da der Compiler dazu freie Register benötigt, diese dem Programm aber nicht 
einfach stehlen kann, ist es sinnvoll, die Register, die man innerhalb des Programmes 
benutzen möchte, mit USE anzugeben. Der Assembler betrachtet die nicht belegten 
Register als sein Eigentum und nutzt diese für erweiterte Adressierungen. 

Es können auch Registervariablen verwendet werden: 

PROCEDURE IncKat IN DO,um IN Dl : INTEGER); 

BEGIN 

ASSEMBLECUSE AO 

LEA i,AO 
ASL #l,at 
ADD um,(A0,at) 

) 


END IncI; 
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Der Assembler versucht so gut wie möglich, dem Stack-Pointer zu folgen; so wer¬ 
den Veränderungen des SP durch ADD #,A7, SUB #,A7, LINK sowie -(A7) und (A7) + 
erkannt, und richtig in die Berechnung der Prozedur-lokalen Variablen einbezogen. 
Was der Assembler nicht berücksichtigen kann sind Veränderungen des SP durch MOVE 
. . . ,A7 o.ä, Veränderungen durch variable Werte wie in ADD D0,A7, und Unterpro¬ 
gramme. 

Bsp.: 

PROCEDURE ReturnSameCi : INTEGER):INTEGER; 

VAR j : INTEGER; 

BEGIN 

ASSEMBLECSUB.W #100,A7 
MOVE i,j 
ADD.W #100,A7 

RETURN j; 

END ReturnSame; 

Dies ist völlig legal und wird auch richtig übersetzt. 

Der Compiler verlangt, daß am Ende eines Assemblerteiles der Stackpointer wie¬ 
der den selben Wert hat wie beim Eintritt, da er sonst beim Mitzählen aus dem Ruder 
geraten würde. 

Labels können an einer beliebigen Stelle im Assemblerteil verwendet oder defi¬ 
niert werden (dies natürlich nicht mitten in einem Befehl). Bei der Definition eines 
Labels muß dieses von einem Doppelpunkt gefolgt werden. Es gibt keine feste Eorm, 
wie Assembleranweisungen im Text formatiert werden müssen, es muß lediglich zwi¬ 
schen Label, Mnemonic und Operanden mindestens ein Space stehen, auch dürfen 
beliebig viele Anweisungen in einer Zeile stehen. 

Bsp.: 


PROCEDURE CopyCfrom IN A0,to IN Al,size IN D2 : LONGINT); 
BEGIN 

ASSEMBLECUSE Dl 



MOVE 

size,Dl 1 .L wird erkannt, da "size" ein LONGINT 


SHR 

#2,size 


SUB 

#1,size 

loop: 

MOVE.L 

(from)+,(to)+ DBRA size,loop 


BTST 

#1,D1 BEQ not2 MOVE.W (from)+,(to)+ 

not2: 

BTST 

#0,D1 BEQ notl MOVE.B (from)+,(to)+ 

notl: 

) 


END Copy; 
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Dies steigert zwar nicht die Lesbarkeit, ist aber möglich. Nicht möglich ist es mit 
Labels zu rechnen, da dies den Shortbranch-Optimierer aus dem Ruder bringen würde 
(vorerst sind noch fast alle Optimierungen, die der Compiler normalerweise ausführt, 
auch im Assemblerteil vorhanden, also keinen Code patchen !!). 

Es gibt keine Anweisungen wie ADDA oder ADDI, diese werden durch den As¬ 
sembler bei Bedarf erzeugt. 

E.6.11 FORGET 

Viele Funktionen (gerade solche des Betriebssystems) sind eigentlich keine Funktio¬ 
nen, sondern Prozeduren, da ihre eigentliche Aufgabe nicht in der Rückgabe eines 
Wertes, sondern in der Ausführung einer Tätigkeit besteht (z.B. WritePixel). Diese 
Funktionen liefern mehr als Nebeneffekt auch noch einen Wert zurück, der in den 
meisten Fällen problemlos ignoriert werden kann. Da es aber sehr gefährlich ist, 
eine Verwendung von Funktionen als Prozeduren zuzulassen, es andererseits aber 
sehr störend ist, das Funktionsergebnis jedesmal einer Dummy-Variablen zuzuwei¬ 
sen, kann mit FORGET ein Ausdruck ausgewertet werden, dessen Ergebnis danach 
einfach vergessen wird. 

$$ forgetStatement ::= FORGET 

Beispiel: 

FORGET WritePixeKrast ,x,y) ; 

E.6.12 TRY..EXCEPT 

Ausnahmesituationen (exceptions) können durch Programm- bzw. Datenfehler, sys¬ 
tembedingte Probleme wie Speichermangel oder durch beutzerdefinierte Fehlersitua¬ 
tionen entstehen. 

Ist kein exception handler installiert, kann das Programm nur durch einen Ab¬ 
bruch reagieren. 

$$ trystatement ::= TRY statementsequence EXCEPT 

fOF identf","ident} THEN statementsequence END} 

[ELSE statementsequence] END 

Die Anweisungssequenz zwischen TRY und EXCEPT wird ausgeführt; tritt dabei 
eine Ausnahme auf, wird das Programm mit dem passenden exception handler des 
EXCEPT Teils fortgesetzt. Ist kein passender exception handler vorhanden, wird 
der eventuell vorhandene ELSE- Teil ausgeführt, und die Ausnahme an den nächsten 
übergeordneten exception handler weitergereicht. 
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Somit werden alle Ausnahmen vom nächsten passenden exception handler bear¬ 
beitet. Ist überhaupt kein exception handler vorhanden, wird das Programm mit 
einem Laufzeitfehler abgebrochen. Ein für die exception angegebener Text wird als 
Fehlermeldung verwendet. 

Beispiel: Auswertung einer math. Funktion 

PROCEDURE F(x : INTEGER):INTEGER; 

BEGIN 

RETURN 100 DIV x 
END F; 

Diese Prozedur löst für x=0 eine „DivisionByZero“ exception aus, die durch den Funk¬ 
tionsplotter abgefangen werden muß: 

PROCEDURE WriteF(l,r : INTEGER); 

VAR i : INTEGER; 

BEGIN 

FÜR i:=l TO r DO 
TRY 

Writeint(F(i),10); 

EXCEPT 

OF DivisionByZero THEN WriteStringC"Division durch Null") END 
END 

WriteLn 

END; 

END WriteF; 

Durch dieses TRY-Statement wird nur eine Division durch Null, nicht aber andere 
Ausnahmen, wie Ctrl-C o.ä. abgefangen. Diese Ausnahmen werden ohne Änderung 
weitergereicht. 

Ausnahmen sollten so weit zurückgereicht werden, bis eine sichere Bearbeitung 
möglich ist. 

Der ELSE- Teil der TRY Anweisung dient als Close-Teil, so daß bereits allozierte 
Strukturen noch freigegeben bzw. geschlossen werden können. 

E.6.13 TRACK..END 

Im Zuge des Resourcetrackings (Verfolgen der Systemresourcen durch das Laufzeit¬ 
system, siehe auch „Resources .def“) wurde TRACK..END eingeführt. 

Durch TRACK wird eine neuer Kontext erzeugt und zum ActContext erklärt. 
Dieser Kontext wird bei Verlassen der Struktur (normal, exception oder RETURN) 
wieder entfernt. 
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E.7 Prozedurdeklaration 

Eine Prozedurdeklaration besteht aus einem Prozedurkopf, in dem ihre Schnittstelle 
definiert wird, und einem Prozedurkörper, in dem der eigentliche Inhalt der Prozedur 
definiert wird. Eine Eunktionsprozedur hat zusätzlich zu den normalen Parametern 
noch einen Rückgabetypen, der hinter einem Doppelpunkt definiert wird. 

Innerhalb einer Prozedur können Typen, Variablen, Konstanten und weitere Pro¬ 
zeduren deklariert werden. Objekte, die innerhalb einer Prozedur deklariert sind, 
existieren nur, solange die Prozedur läuft. Sie sind auch nur innerhalb dieser sicht¬ 
bar. Alle außen bekannten Bezeichner sind auch innerhalb bekannt, solange sie nicht 
durch neue Deklarationen überdeckt werden. 


$$ paradeclar 


$$ formalparams 
$$ procedureheader 
$$ proceduredeclar 


::= [VARlREF] ident [IN expression] 
ident [IN expression]}: 

(qualident[:= expression])I(:=expression) 

. [11 (11 [paradeclar{;paradeclar}] ") " [" : "qualident] 

::= PROCEDUREIMETHOD qualident formalparams 
::= ([FORWARD] procedureheader)|(procedureheader 

{Import Itypedef|vardeclaration|constdef|proceduredeclar} 
BEGIN statementsequence END ident) 


Soll eine Prozedur verwendet werden, bevor ihr Prozedurrumpf implementiert werden 
kann, wenn sich also z.B. zwei Prozeduren gegenseitig benötigen, muß sie mit dem 
Schlüsselwort FORWARD vorwärts deklariert werden. 

Parameter können mit einem Vorgabewert vorbelegt werden. Parameter mit 
Vorgabewert brauchen beim Prozeduraufruf nicht mit angegeben werden, statt dessen 
wird der Defaultwert vorgegeben: 

Beisp: 


PROCEDURE Writelnt(val : LONGINT;width : INTEGER := 0); 

kann aufgerufen werden mit: 

Writeint(10,4) oder aber auch Writelnt(41) 

Hat eine Prozedur viele Parameter, kann nicht immer davon ausgegangen werden, daß 
die zu überspringenden Parameter am Ende liegen. In diesem Fall muß die Zuweisung 
durch Schlüsselwörter (die Namen der Parameter) vorgenommen werden: 

PROCEDURE New (VAR p : ANYPTR; 

Chip, 

clear : BOOLEAN := FALSE; 
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context : ContextPtr := NIL); 


New(p); 

New(p,TRUE,FALSE,MyCoiitext) ; 

New(p,clear:=TRUE); 

New(p,clear:=TRUE,context:=MyContext); 


Die Reihenfolge der Parameter muß eingehalten werden, auch dürfen nach Parame¬ 
tern mit Bezeichnern keine Positionalen mehr folgen. 

Parameter können auf drei Arten übergeben werden, die bestimmen, wie inne¬ 
rhalb der Prozedur auf diese zugegriffen werden kann, welche Objekte übergeben 
werden können und ob der Parameter nach der Prozedur verändert sein kann. 


• • 

E.7.1 Übergabe durch Wert (Call by value) 

Als aktueller Parameter kann ein beliebiger Ausdruck angegeben werden. Das Ergeb¬ 
nis der Auswertung wird als Kopie an die Prozedur übergeben. Änderungen dieses 
Parameters innerhalb der Prozedur bleiben außen ohne Wirkung, da die Prozedur ja 
lediglich über eine Kopie verfügt. 

Nachteilig bei diesem Verfahren ist, daß das Kopieren bei komplexen Typen 
relativ viel Zeit und Speicherplatz benötigt. 

PROCEDURE WritelntCi : INTEGER); 

• • 

E.7.2 Übergabe durch Referenz (Call by reference) 

Als aktueller Parameter kann ein adressierbares Objekt angegeben werden (Varia¬ 
blen, Konstanten, Parameter oder Zeigerziele). Die Prozedur bekommt die Adresse 
des Parameters übergeben, es wird im Gegensatz zu oben nicht kopiert. Der Para¬ 
meter kann innerhalb der Prozedur nicht verändert werden, da ja sonst das Original 
verändert würde. Der aktuelle Parameter wird also mit Sicherheit nicht verändert. 

Diese Übergabe lohnt sich für größere Typen (Arrays oder Records), auf keinen 
Fall aber für einfache Typen wie Zeiger oder Zahlen. 

PROCEDURE WriteStringCREF s : STRING); 

• • 

E.7.3 Übergabe durch ’wirkliche’ Referenz (mit Schreib¬ 
zugriff) 

Als aktueller Parameter kann eine Variable, ein Parameter oder ein Pointerziel an¬ 
gegeben werden. Die Prozedur erhält die Adresse dieses Objekts, und darf dieses 
auch verändern. Die Änderungen bleiben nach dem Prozeduraufruf erhalten, sind 
also ’richtige’ Änderungen am Objekt. 
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PROCEDURE ReadStringCVAR s : STRING); 


E.7.4 Methoden 

Hat man mehre Prozeduren, die die gleiche Funktion für verschiedene Typen erfüllen, 
ist es unangenehm, jeder Prozedur einen anderen Namen geben zu müssen. Daher 
besteht die Möglichkeit, beliebig viele Methoden mit dem gleichen Namen zu defi¬ 
nieren, wenn Sie einen RECORD oder einen Zeiger auf einen RECORD als ersten 
Parameter erwarten. 

Hier einige Beispiele aus dem Modul DosSupport: 


METHOD 


METHOD 


Get (VAR data 

FileData; 

REF path 

STRING) 

Get (VAR list 

DirList; 

REF path 

STRING; 

REF pattem 

STRING:="#?"; 

type 

= DirSelectType:{selectDirs,selectFiles}; 

context 

ContextPtr := NIL); 


Diese Methoden werden nicht direkt importiert und aufgerufen, sondern sie werden 
qualifiziert über eine Variable des Typs des ersten Parameters aufgerufen z.B.: 


VAR 

Dir : DirList; 

Fileinfo : FileData; 

BEGIN 

Fileinfo.Get("s:startup-sequence"); 

Dir.GetC'DHO: ") ; 

Die Methoden von Objekten werden leicht anders definiert, hier wird der Name 
der Methode durch den Objekttypnamen genauer qualifiziert. 


TYPE Counter = OBJECT 

value : INTEGER; 

METHOD IncCby : INTEGER := 0); 

END 


METHOD Counter.IncCby k : INTEGER); 
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Innerhalb einer Methode kann auf alle Instanzvariablen des eigenen Objektes 
direkt zugegriffen werden, ohne daß eine zusätzliche Qualifizierung nötig wäre. 

METHOD Counter.IncCby : INTEGER); 

BEGIN 

INC(value,k) 

END Inc; 


E.7.5 Funktions-Prozeduren 


Hat eine Prozedur oder Methode einen Rückgabewert, bezeichnet man sie als Funk¬ 


tion. Am Ende der Prozedur wird dieser mit RETURN zurückgegeben (siehe E.6.8). 


Handelt es sich bei dem Wert, der zurückgegeben werden soll, um einen komplexen 
Typen (Array/Record), so weist man diesen der Variablen RESULT zu, und verläßt 
die Eunktion durch RETURN, ohne danach den Wert anzugeben. 

Handelt es sich bei dem Rückgabetypen um einen offenen Typen (String/offenes 
Array), so muß man vor der Prozedurdeklaration den Schalter $$OwnHeap:=TRUE set¬ 
zen (bei Prozeduren, die exportiert werden, genügt es, dies im Definitionsteil zu 
machen.). Außerdem muß man dafür sorgen, daß im Ealle, daß das Ergebnis an ei¬ 
nen VAR/REF-Parameter übergeben wird, ausreichend Platz auf dem Stack alloziert 
wird, um das Ergebnis dort zwischenzulagern. Hierzu dient die Standardprozedur 


ALLOC_RESULT(ränge : LDNGINT); 

Der Parameter ränge gibt dabei den Bereich des Arrays/Strings an, für das Platz 
alloziert werden soll. Denken Sie dabei daran, daß Sie bei Strings ränge = Maxi- 
mallänge-|-l wählen, um Platz für das 0-Byte zu haben. Die zwei Bytes für die 
Länge bei einem String alloziert ALL0C_RESULT selbstständig, wenn es sich bei dem 
Rückgabetypen um einen String handelt. 


E.8 Moduldeklaration 

Es gibt drei Arten von Modulen: Programmodule, Definitionsmodule und Implemen- 
tationsmodule. Immer ein Definitionsmodul gehört zu einem Implementationsmodul, 
in ihm werden die Schnittstellen zu anderen Modulen definiert. 

$$ Import ::= (FROM quälident[AS ident] IMPORT ident{","ident}";")I 

(IMPORT qualident[AS ident]"qualident AS ident}";") 

$$ modulebody ::= {import|typedef|vardeclaration|constdef|proceduredeclar| 

defmodule|implementmod} 

[BEGIN statementsequence] 

[CLOSE statementsequence] 
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$$ implementmod ::= IMPLEMENTATION MODULE ident ";" 

modulebody END ident 

$$ mainmodule ::= MODULE ident ";" modulebody END ident 
$$ defmodule ::= DEFINITION MODULE ident 

[("("ident : typedef")")! 

("=" qualident "(" typedef ")")] 

{importItypedef|vardeclaration|constdef|procedureheader| 
defmodule} END ident 

$$ module ::= mainmodule|implementmod|defmodule "." 

Durch die Importklausel können Elemente anderer Module im eigenen Modul ver¬ 
wendet werden. Es ist sowohl ein qualifizierender als auch unqualifizerender Import 
möglich. 

Beispiel: 

Durch den Import 

FROM InOut IMPORT Writeint,Read; 

werden dem Programm die Bezeichner „WriteInt“ und „Read“ direkt zur Verfügung 
gestellt, aber auch der Bezeichner „InOut“, so daß auch über „InOut .xxx“ auf andere 
Bezeichner des Objektes zugegriffen werden kann. 

E.8.1 Generische Module 

Viele Datenstrukturen und dazugehörige Algorithmen werden häufig in verschiedenen 
Kontexten und in Verbindung mit anderen Datenstrukturen benötigt (z.B. Listen, 
AVLBäume, Stacks etc.). 

In einer streng und vor allem statisch getypten Sprache tritt das Problem auf, daß 
diese Strukturen jedesmal neu definiert und implementiert werden müssen. Diesem 
Problem wird durch Generizität abgeholfen. 

Ein generisches Modul besitzt einen generischen Parameter. Dieser Parameter 
ist ein Zeigertyp, über den das Modul auch bereits Annahmen machen kann. 

Ein derartiges Modul muß vor seiner Verwendung durch ein anderes Modul durch 
einen aktuellen Parameter ausgeprägt werden. Dieser Typ muß zum formalen Para¬ 
metertyp passen. 

Beispiel: 

DEFINITION MODULE BiList(NodePtr : POINTER TO Node); 

TYPE 

Node = RECORD 
pred, 
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succ 

: NodePtr 

END; 


RECORD 


first, 


last 

: NodePtr 

END; 



ApplyProc = PROCEDURECn : NodePtr); | Prozeduren von diesem Typ 

I können in der Liste arbeiten 


PROCEDURE InitCVAR 1 : List); 

PROCEDURE InsertTopCVAR 1 : List;n : NodePtr) 

PROCEDURE ApplyCVAR 1 : List;apply : ApplyProc); | wendet eine Benutzer- 

I Prozedur an 


END BiList; 


IMPLEMENTATION MODULE BiList; 

PROCEDURE InitCVAR 1 : List); 

BEGIN 

l.first:=NIL; 
l.last :=NIL 
END Init; 

PROCEDURE InsertTopCVAR 1 : List;n : NodePtr); 
BEGIN 

n.pred:=NIL; 
n.succ:=1.first; 

IF l.first=NIL THEN 
1.last:=n 
ELSE 

1.first.pred:=n 
END; 

1.first:=n 
END InsertTop 
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PROCEDURE ApplyCVAR 1 : List;apply : ApplyProc); 

VAR n : NodePtr; 

BEGIN 

n:=1.first; 

WHILE n#NIL DO 
applyCn); 
n:=n.iiext; 

END; 

END Apply; 

END BiList; 

Das Implementations-Modul kann über die bekannten Elemente des Knotentyps (pred, 
succ) verfügen, da durch die Definition des generischen Parameters sichergestellt 
wird, daß nur ein Zeiger auf einen Nachfolger von Node in Frage kommt. 

TYPE 

NamePtr = POINTER TO NameNode; 

DEFINITION MODULE NameList = BiList(NamePtr); 

TYPE 

NameNode = RECORD OF NameList.Node 
name, 

Vorname : STRING (100); 
alter : INTEGER; 

END; 

Das Modul NameList verwaltet nun eine Liste derartiger NameNodes. Die Typsiche¬ 
rheit ist voll gegeben, da keine anderen Knotentypen zugelassen sind. 

VAR 

MyNames : NameList.List; 
name : NameNode; 

Die Prozeduren des Modules NameList können wie üblich importiert und benutzt 
werden. Werden jedoch mehrere Ausprägungen des selben generischen Moduls ver¬ 
wendet, treten Namenskonflikte auf. Diese könnten durch ständiges qualifizieren 
umgangen werden, was jedoch sehr aufwendig und fehleranfällig ist. 
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NameList.Init(MyNames); 

New(name); 

NameList. InsertTop (MyNames ,naine) ; 

Um dies zu umgehen, kann eine Prozedur aus einem generischen Modul auch auf eine 
andere Art aufgerufen werden: 

MyNames.Init; 

New(name); 

MyNames.InsertTop(name); 

Für alle Ausprägungen eines generischen Moduls wird in einem Programm der selbe 
Code benutzt, es wird also kein Code vervielfältigt. Aus diesem Grund können auch 
nur Zeiger als generische Parameter dienen. 

Werden für eine Implementation einer Datenstruktur gewisse Fähigkeiten des 
generischen Parameters (wie eine Ordnungsrelation) benötigt, so kann dies über Pro¬ 
zedurvariablen erreicht werden. 

Es ist möglich, lokale Prozeduren als Parameter zu verwenden; es ist allerdings 
nicht möglich, einer Prozedurvariablen eine lokale Prozedur zuzuweisen. 

PROCEDURE LasseAltern(VAR 1 : NameList.List ; um : INTEGER); 

PROCEDURE altere(n : NodePtr); 

BEGIN 

INC(n.alter,um) 

END altere; 

BEGIN 

1 .Apply(altere); 

END LasseAltern; 

E.9 Compilerswitches 

Compilerswitches (Schalter) können verwendet werden, um Teile eines Moduls be¬ 
dingt zu compilieren. Ein Compilerswitch wird durch $$ eingeleitet: $$xxx:=yyy 
setzt den Switch xxx auf den Ausdruck yyy. Einige Switches können abgekürzt wer¬ 
den. 

Beispiel: 

$$RangeChk:=FALSE 
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oder die Abkürzung (wie in einigen Pascal-Dialekten): 

(* $R- ♦) 

Die Zustände der stapelbaren Schalter können durch $$xxx:=DLD wieder in ihren vo¬ 
rherigen Zustand zurückgesetzt werden, die maximale Schachtelungstiefe eines jeden 
Schalters ist 16. 

Zu jedem Projekt können bis zu 24 Schalter selbstdefiniert werden, dies ges¬ 
chieht im Project-Requester. Die Schalter können global, im Info-Requester oder im 
Quelltext gesetzt/gelöscht werden. Sie können zur bedingten Compilierung eingesetzt 
werden. 

Näheres zu Compilerswitches entnehmen Sie bitte der Beschreibung des Compi¬ 
lers. 
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Anhang F 

Glossar 


Algorithmus 

• Unter einem Algorithmns versteht man eine Verarbeitnngs- 
vorschrift, die so präzise ist, daß sie von einem Compnter 
dnrchgeführt werden kann. 

• Ein dnrch Regeln festgelegter Rechenvorgang, der hänfig zyk¬ 
lisch wieder kehrende Gesetzmäßigkeiten aufweist. Algorith¬ 
men sind von besonderer Bedeutung für die Lösung ma¬ 
thematischer Aufgaben mit Hilfe von Rechenautomaten, da 
die Anzahl anzugebender Anweisungen weitaus geringer sein 
kann, als die Anzahl auszuführender Operationen. 

Ein Algorithmus gibt an, wie Eingabedaten schrittweise in 
Ausgabedaten umgewandelt werden. 

Determiniertheit: wird ein Algorithmus mit den gleichen 
Eingabewerten und Startbedingungen wiederholt, so liefert 
er stets das gleiche Ergebnis. 

Anweisung (engl.: Statement) 

Anweisungen sind in der Regel die Teile eines Programms, welche 
den Zustand des Programms (Werte der Variablen, Inhalte der 
Ein-/Ausgabedateien) verändern, d. h. in denen bei Ausführung 
des Programms Daten verarbeitet werden (im Gegensatz zu Dek¬ 
larationen) . Weiterhin gibt es Kontrollstrukturen, die keine Daten 
ändern. 
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Elementare Anweisungen/ Sequenz/ Sprung/ Prozeduraufruf/ be¬ 
dingte Anweisung/ Schleife/ Block. 

Argument 

Bei einer Funktionsprozedur wird häufig ein Wert mitgegeben, 
welcher in der Prozedur verwendet werden soll, z. B. berechnet 
SQRT(5.0) die Quadratwurzel von 5.0. Hierbei ist 5.0 das Argu¬ 
ment der Funktionsprozedur. 

Ausdruck 

• in der formalen Logik ist Ausdruck ein Oberbegriff für Aus¬ 
sage und Aussageform. 

• Bei Programmiersprachen verwendet man Ausdruck als Sy¬ 
nonym für Term. Die Regeln, nach denen Ausdrücke einer 
Programmiersprache gebildet werden, entnimmt man der je¬ 
weiligen Syntax. 

Befehlsliste 

Ist eine Folge von Programmbefehlen, oft auch Listing (Programm- 
listing) genannt. 

BEGIN Schlüsselwort 

Zeigt den eigentlichen Anfang eines Programms, Moduls oder einer 
Prozedur an. 

Betrag (Absolutwert) 

Mathematischer Begriff: ABS (x) wandelt eine Zahl x stets in eine 
positive Zahl um. 

Bezeichner (engl.: identifier) 

Bezeichner sind z. B. Namen für Variablen, Konstanten und Proze¬ 
duren. Ein Bezeichner ist also eine Zeichenfolge, welche in einem 
Programm zur eindeutigen Identifizierung eines Objektes dient. 
Ein Bezeichner darf innerhalb einer Programmeinheit, z. B. inne¬ 
rhalb einer Prozedur nur einmal deklariert werden. (Ausnahme: 
Methoden). 
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Block 

Programmeinheit, die aus einer Folge von Anweisungen besteht. 
Blöcke dienen vorwiegend der klaren Strukturierung eines Pro¬ 
gramms. Ein Block wird mit den Schlüsselwörtern BEGIN und 
END geklammert: 

BEGIN 

<Anweisungen>; 

END 

Bottom-up-Methode 

Ist die Umkehrung der ^Top-Down-Methode. Sie beginnt bei ei¬ 
nem vorhandenen Computersystem. Man beginnt nun zur Lösung 
eines Problems bei den grundliegenden Punktionen. Komplexere 
Probleme werden dadurch gelöst, daß die grundlegenden Punktio¬ 
nen zu komfortableren Punktionen zusammengesetzt werden: 

Beispiel: 

• Computersystem: Addition zweier Zahlen. 

• Entwurfsschritt: Realisierung der Multiplikation durch Ad¬ 
dition 

Crundsätzlich wird die Top-Down-Methode der Bottom-up-Methode 
vorgezogen. 

case-sensitiv 

Einige Programmiersprachen, wie auch CLUSTER, unterscheiden 
bei der Programmierung Groß- und Kleinschreibweise. In ande¬ 
ren Worten, die Bezeichner test, tEsT und TEST sind in CLUS¬ 
TER verschieden. In PASCAL beispielsweise würden die drei o. a. 
Schreibweisen ein und denselben Bezeichner angeben. 

Compiler (Übersetzer) 

Der Compiler übersetzt (compiliert) den Quelltext, der bei uns 
in der Sprache CLUSTER verfaßt ist, in Maschinencode, der vom 
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Computer direkt ausgeführt werdeu kauu. Eiu Compiler macht 
also uichts auderes, als Programme aus der eiueu Programmiers¬ 
prache iu Programme eiuer audereu Programmiersprache zu übertrageu. 

Computerprogramm ^Programm. 

Deklaration (Vereiubaruug) 

Festleguug, welche Bedeutuug uud evtl. Wertebereich eiu Bezeich- 
uer iu eiuem uachfolgeudeu Programmtext besitzt: 

• Deklaratiou vou Koustauteu 

• Deklaratiou vou Dateutypeu bzw. Dateustruktureu 

• Deklaratiou vou Variableu 

• Deklaratiou vou Prozedureu 


Editor 

Eiu Editor dieut zur Bearbeituug vou Texteu oder Graphikeu 
(CLUSTER: Editor zur Bearbeituug des Programmtextes). 

luteraktiver Editor: arbeitet im Dialog; ausschuittsweise Darstel- 
luug der im Speicher vorhaudeueu Dateu. 

Endlosschleife 

Schleife, dereu Ausführung uie abbricht. Die Ursache liegt häufig 
iu eiuer fehlerhaften Abbruchbedingung. Man sagt auch: Die 
Schleife terminiert nicht. 

END Schlüsselwort 

Beendet einen Block (Modul, Prozedur, Schleife, ...) 

Exponent mathematischer Begriff 

Bei der im Computerbereich üblichen Gleitpunktdarstellung wird 
eine Zahl in Exponentialdarstellung angegeben. Z. B. 5.0 * 10^, 
hierbei ist der Exponent die 3. 

Externspeicher 

Ist Speicher, welcher nicht der Zentraleinheit (Computer) intern 
zugeordnet ist. Gehört zur Peripherie und kann z. B. eine externe 
Festplatte sein. 
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Formatfreiheit 

Von Formatfreiheit spricht man, wenn es dem Compiler egal ist, 
wie weit der Abstand des einen Befehls von dem ihm folgenden 
ist. Es gibt Sprachen, bei denen es essentiell ist, in welcher Spalte 
welches Wort steht, da die Befehle abhängig von ihrer Position 
im Editor interpretiert werden. CLUSTER ist eine formatfreie 
Sprache. 

Funktion (Fnnktionsprozednr) 

Dies sind Prozednren, in deren Prozednrkopf der Ergebnistyp an- 
zngeben ist nnd in denen dem Bezeichner der Prozednr im Pro- 
zednrrnmpf das Ergebnis zngewiesen wird. Eunktionen berech¬ 
nen einen Wert (Ennktionswert) nnd geben ihn zurück, sobald das 
Schlüsselwort RETURN erreicht ist, z. B. RETURN 15.8. 

Gleichung 

Schreibt man zwischen zwei Terme ein Gleichheitszeichen, so ents¬ 
teht eine Gleichung. 

Grammatik 

Damit sich zwei Menschen miteinander verständigen können, müssen 
sie eine gemeinsame Sprache sprechen. Sie müssen wissen, nach 
welchen Regeln die Sprache aufgebaut ist und was die einzelnen 
Zeichen bzw. Laute bedeuten. Die zulässige Eorm der Sätze ei¬ 
ner Sprache nennt man Syntax. Zur Eestlegung der Syntax einer 
Sprache verwendet man Grammatiken. Eine Grammatik ist eine 
Menge von Regeln, die bestimmen, welche Sätze zu einer Sprache 
gehören oder nicht. Natürliche Sprachen sind durch ihre Kom¬ 
plexität für die Verwendung auf Gomputersystemen ungeeignet. 
Aus diesem Grunde hat man einfachere Sprachen, die sog. Pro¬ 
grammiersprachen entwickelt. Ihre Struktur kann präzise durch 
Grammatiken definiert werden. 

Internspeicher 

Ist Speicher, welcher zur Zentraleinheit (Gomputer) intern zu¬ 
geordnet ist. In der Regel also normaler Hauptspeicher. 
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Konkatenation (Verkettung) 

Die Konkatenation zweier Wörter ist das Wort, das sich durch 
Hintereinanderschreiben der beiden einzelnen Wörter ergibt. Z. B. 
„BAUM“ und „HAUS“ ergibt „BAUMHAUS“. 

Konstante 

Bezeichner mit einem festen Wert. Eine Konstante besitzt einen 
eindeutig festgelegten Bezeichner, einen Datentyp und einen festen 
Wert aus der Wertemenge des Datentyps. Konstanten müssen in 
CLUSTER vor Programmablauf definiert werden (Deklaration), 
wobei nur der Wert angegeben werden muß. Der Datentyp wird 
automatisch aus dem Wert erkannt. Wenn im Programm dann der 
Bezeichner der Konstanten benutzt wird, so wird an dieser Stelle 
immer der Konstantenwert eingesetzt. Nach der Deklaration darf 
einer Konstanten kein Wert mehr zugewiesen werden. 

Mantisse mathematischer Begriff, ^Exponent. 

Bei der im Computerbereich üblichen Gleitpunktdarstellung wird 
eine Zahl in Exponentialdarstellung angegeben. Z. B. 3.1415 * 
10“^, hierbei ist die Mantisse die 3.1415. 

Modul 

Ein Modul ist eine Zusammenfassung von Konstanten, Datenty¬ 
pen, Variablen und Prozeduren zu einer Einheit. Soll ein Modul 
von einem anderen Modul benutzt werden, so muß man angeben, 
welche Elemente des Moduls nach außen sichtbar sein sollen und 
welche nicht. Aus diesem Grunde wird ein Modul in zwei Teile auf¬ 
geteilt: Einen Definitionsteil und einen Implementationsteil. Im 
Definitionsmodul wird angegeben, welche Modulteile nach außen 
exportiert werden, d. h. welche Bezeichner von Konstanten, Da¬ 
tentypen, Variablen und Prozeduren für andere Module sichtbar 
sind. Die Liste dieser Bezeichner nennt man Exportschnittstelle 
eines Modules. Im Implementierungsmodul steht dann die eigent¬ 
liche Programmierung der Prozeduren. 

MODULE Schlüsselwort 

Zeigt den Anfang eines CLUSTER-Programms an. 
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Modulodivision 

Bei der Modulodivision wird der ganzzahlige Rest einer Division 
angegeben. Z. B. ergibt 10 MOD 3 = 1, da die 3 dreimal in die 10 
reingeht und sich damit ein Rest von 1 ergibt. 

Objektcode (Objektprogramm) 

Programm in Maschinensprache, das vom Compiler erzeugt wurde. 
Es handelt sich also um ein spezielles Zielprogramm. 

Operationen Arbeitsvorgänge im Computer 

arithmetische O. 
logische O. (UND...) 

Transporto. (Speicherbereiche kopieren...) 

Eingabe- / Ausgaben. 

O. zur Steuerung des Kontrollflusses (Sprünge...) 
sonstige O. (Unterbrechungen...) 

Operatoren 

Funktionszeichen für arithmetische Operationen, z. B. +. -, \, 


Parameter 

Platzhalter in einer Programmeinheit, der erst bei der konkreten 
Verwendung (Aufruf) der Programmeinheit, z. B. einer Prozedur 
fest gelegt wird. 

Portabilität (Übertragbarkeit) 

Eigenschaft von Programmen, ohne große Änderungen auf unter¬ 
schiedlichen Rechnersystemen ausgeführt werden zu können. Eine 
geläufige Methode ist die Zweiteilung von Programmen in einen 
maschinenunabhängigen und einen maschinenabhängigen Teil, der 
bei einer Übertragung des Programms auf ein anderes Rechnersys¬ 
tem neu geschrieben werden muß. 
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Potenz mathematischer Begriff 

Potenzieren heißt, eine Zahl wiederholt als Faktor setzen. Man 
schreibt z. B. 


3 • 3 • 3 • 3 = 3^ = 81 

Oder allgemein ausgedrückt: Die Potenz a” ist hiernach als Abkürzung 
für ein Produkt von n gleichen Faktoren aufzufassen. 

PROCEDURE Schlüsselwort 

Zeigt den Anfang einer Prozedur oder einer Funktionsprozedur an. 

Z. B.: 


PROCEDURE TestCREF wert1:INTEGER;wert2:B00LEAN); 


Programm 

Ein Programm ist die Formulierung eines Algorithmus oder meh¬ 
rerer Algorithmen in einer Programmiersprache. Im Gegensatz zu 
Algorithmen sind Programme wesentlich konkreter: Sie sind im 
Formalismus einer Programmiersprache verfaßt. Sie nehmen Be¬ 
zug auf eine bestimmte Darstellung der verwendeten Daten. Sie 
sind auf einem Computer ausführbar. 

Programmbibliothek 

Eine Sammlung von Programmodulen, die in anderen Program¬ 
men verwendet werden können, ähnlich wie man ein Buch in einer 
Bibliothek ausleihen kann. 


Programmiersprache ^Sprache 

Prozedur (Unterprogramm, engl, procedure / subroutine): 

Hierdurch kann jede als Programm formulierte Vorschrift zu ei¬ 
ner elementaren Anweisung in einem anderen Programm werden. 
Darüberhinaus dienen Prozeduren der Zerlegung und Strukturie¬ 
rung umfangreicher Programme, und sie erlauben die Verwendung 
rekursiver Techniken. Weitere Ausführungen finden Sie in dem 


Kapitel unter 3.13.1 ab Seite 75 


©1992/93 by StoneWare 





125 


Quelltext (source code) / Quellprogramm 

Programm, das von einem anderen Programm verarbeitet wer¬ 
den soll. Speziell bezeichnet man das Programm, das von ei¬ 
nem Übersetzer in ein Zielprogramm übersetzt werden soll, als 
Qnellprogramm. Ferner versteht man nnter dem Qnellprogramm 
oder dem Qnelltext die Originalversion eines übersetzten Pro¬ 
gramms. Korrektnren und Veränderungen nimmt man am Quell¬ 
programm vor, wenn man Fehler oder unerwünschte Verhaltens¬ 
weisen während der Ausführung eines Programms fest gestellt hat. 

Rekursion 

Definition einer Funktion durch sich selbst. Aufruf einer Funktion 
oder Prozedur durch sich selbst. 

reserviertes Wort ^Schlüsselwort 

Schleife 

Folge von Anweisungen, die mehrfach durchlaufen werden kann 
(Iteration). Ihrem Aufbau nach unterteilt man die Schleife in den 
Schleifenkopf und den Schleifenrumpf. Der Schleifenkopf enthält 
die Kontrollinformation für die Anzahl der Schleifendurchläufe, die 
mehrfach zu durchlaufende Anweisungsfolge heißt Schleifenrumpf. 
Zählschleife / Bedingte Schleife 

Schlüsselwort 

In fast allen Programmiersprachen sind Zeichenfolgen definiert, die 
eine in der Sprache genau festgelegte Bedeutung haben, wie z. B. 
in CLUSTER die Zeichenfolgen „MODULS“, „VAR“, „WHILE“ oder 
„END“. Solche Zeichenfolgen bezeichnet man als Schlüsselwörter 
der Programmiersprache. Sie dürfen in der Regel - und so auch 
bei CLUSTER - nicht als Bezeichner in Programmen verwendet 
werden. In diesem Pall bezeichnet man die Schlüsselwörter als 
reservierte Wörter der Programmiersprache. 


Schnittstelle 
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Anhänge, glossar 


• In der Elektrotechnik versteht man nnter einer Schnittstelle 
einen Verbindnngspnnkt zwischen verschiedenen elektroni¬ 
schen Banteilen oder Geräten. 

• In der Compntertechnik ist damit in der Regel ein Anschlnßs- 
tecker z. B. für eine Peripheriegerät gemeint. 

• Bei bestimmten Compntersprachen versteht man darnnter 
eine Art Konvention, die ein Programmierer beachten mnß, 
wenn er ein Modnl nnd die darin definierten Prozeduren ver¬ 
wenden möchte. Bei Modula 2 und CLUSTER ist die Pro¬ 
grammierschnittstelle im Definitionsmodul definiert. 

Software-Engineering 

Anwendung von Prinzipien, Methoden und Techniken auf den Ent¬ 
wurf und die Implementierung von Programmen und Programm¬ 
systemen. 

Sprache 

• Natürliche Sprachen: 

werden von Menschen zum Informationsaustausch und zu 
allen Zwecken der Kommunikation verwendet. Die Beherr¬ 
schung einer Sprache und ihrer Ausdrucksmöglichkeiten beein¬ 
flußt stark die Vorstellungswelt und die Denkweise von Men¬ 
schen. Zu jeder natürlichen Sprache existiert in der Regel 
eine Schriftsprache. 

• Künstliche Sprachen: 

wurden Ende des 19. Jhdts. entwickelt, um Eakten, Den¬ 
kabläufe, Schlußfolgerungen beschreiben und analysieren zu 
können. Neben diesen logischen Kalkülen entstanden mit der 
Entwicklung von Rechenanlagen seit 1940 Programmierspra¬ 
chen, die ebenfalls präzise definiert werden mußten. Pro¬ 
grammiersprachen regeln den Umgang mit Datenverarbei¬ 
tungsanlagen. Künstliche Sprachen werden nach Regeln auf¬ 
gebaut (^Syntax, ^Grammatik), und ihre Wörter und Sätze 
besitzen eine wohldefinierte Bedeutung. Während sich bei 
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natürlichen Sprachen die Wörter, Regeln nnd Bedeutnngen 
im Laufe der Jahre ändern, besitzen künstliche Sprachen ein 
festes endliches Grundvokabular und eine feste Syntax und 
Semantik. 


Struktur 

Wenn man logisch zusammengehörende Daten unter einem Be¬ 
zeichner zusammenfaßt, wird dies als Struktur bezeichnet. In Mo- 
dula 2 und CLUSTER geschieht dies mithilfe eines RECORDs. 

Strukturierte Programmierung (systematisches/methodisches Pro¬ 
grammieren) 

Programmiermethode, bei der das vorgegebene Problem in Teil¬ 
probleme und die Beziehungen zwischen diesen Teilproblemen 
(^Schnittstellen) zerlegt wird. In weiteren Verfeinerungsschrit¬ 
ten werden die Teilprobleme in der gleichen Weise behandelt, bis 
die Aufgaben schließlich so klein geworden sind, daß man sie ohne 
weitere Verfeinerung lösen kann. 

Durch Zusammensetzen („Integration“) der Einzellösungen erhält 
man dann eine Lösung für das Ausgangsproblem (^Software- 
Engineering). Wichtig ist hierbei: 

• Man geht von dem umfassenderen, abstrakter beschriebenen 
Problem zu einfacheren und konkreteren Teilproblemen über 
(^Top-down-Methode). 

• Jedes Teilproblem wird durch die Zerlegung vollständig bes¬ 
chrieben und kann unabhängig von anderen Teilproblemen 
weiterbearbeitet werden (alle Abhängigkeiten werden vollständig 
durch die Schnittstellen dargestellt). 

• Die Zerlegung erfolgt problemorientiert. Ein Teilproblem 
wird insbesondere nicht danach untersucht und zergliedert, 
wie es später bestmöglich von einem Rechnersystem bearbei¬ 
tet werden kann. Hierdurch werden maschinenunabhängige 
Lösungen begünstigt (^Portabilität). 
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Anhänge, glossar 


• Die Struktur des Ausgangsproblems, die sich in der fort¬ 
schreitenden Zerlegung widerspiegelt, findet sich in der Lösungsstruktur 
und somit im späteren Programm wieder! Hierdurch werden 
Programme lesbar und verständlich, und man kann Pro¬ 
gramme leichter korrigieren, wenn Fehler in der Program¬ 
mentwicklung aufgetreten sind oder wenn sich Rahmenbe¬ 
dingungen verändert haben. 

• Teillösungen existieren unabhängig von dem speziellen Pro¬ 
blem und können anderweitig mitverwendet (^Programmbibliothek), 
einzeln getestet und gegebenfalls als korrekt bewiesen wer¬ 
den (^Verifikation). 

Ein systematisches Strukturieren ist bei umfangreichen Proble¬ 
men unerläßlich. Ebensowenig, wie man ein Haus ohne sorgfältig 
entwickelten Bauplan erstellen kann, kann man Anwendungs- und 
Systemprogramme, die aus vielen tausend Anweisungen bestehen, 
nicht ohne methodisches Vorgehen schreiben. 

Syntax Regelsystem einer Sprache 

Die Syntax ist praktisch die Grammatik einer Programmiersprache. 

Eine Sprache wird durch eine Eolge von Zeichen, die nach bes¬ 
timmten Regeln aneinandergereiht werden dürfen, definiert. Den 
hierdurch beschriebenen formalen Aufbau der Sätze oder Wörter, 
die zur Sprache gehören, bezeichnet man als ihre Syntax. Die Syn¬ 
tax einer Programmiersprache legt fest, welche Zeichenreihen kor¬ 
rekt formulierte Programme der Sprache sind und welche nicht. 

Um präzise feststellen zu können, ob ein Programm syntaktisch 
korrekt ist, muß man zuvor die Syntax der Sprache formal bes¬ 
chreiben. 

Terme sind gewisse sinnvolle mathematische Zeichenreihen. Alle Zah¬ 
len (Konstanten) und Variablen sind Terme. Enthält ein Term 
eine Variable, so geht er bei Ersetzung der Variablen durch Ele¬ 
mente der Grundmenge (Definitionsmenge) in eine Zahl über. 

Top-down-Methode 
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Durch schrittweise Verfeinerung wird das Ausgangsproblems in 
einfacher zu lösende Teilprobleme zerlegt. Hierbei wird bei jedem 
Entwurfsschritt festgelegt, was die Untermodule (Teilprogramme) 
leisten sollen. Die Funktionen der Module einer Ebene sollen nur 
durch die Funktionen jener Module der direkt darunterhegenden 
Ebene verwirklicht werden. 

Variable (Platzhalter, Leerstelle) nennt man ein Symbol, für welches 
Elemente einer Grundmenge eingesetzt werden dürfen. Meistens 
benutzt man für Variablen Buchstaben. Beim Einsetzen von Ele¬ 
menten der Grundmenge für die Variablen muß man darauf ach¬ 
ten, daß gleiche Variable auch durch gleiche Elemente ersetzt wer¬ 
den. Man beachte, daß zu verschiedenen Variablen auch verschie¬ 
dene Grundmengen gehören können. 

In einer Gleichung ist nach den Elementen aus der Grundmenge 
gefragt, die bei Einsetzen für die Variablen eine wahre Aussage 
liefern. Die Gleichungsvariablen nennt man manchmal auch Un¬ 
bestimmte oder Unbekannte. Bei Funktionsgleichungen, z. B. 
y = x + 2a; + 1, unterscheidet man abhängige und unabhängige 
Variable. In obigem Beispiel ist x die unabhängige und y die 
abhängige Variable. 

Verifikation 

Formaler Nachweis von Eigenschaften von Programmen oder Pro¬ 
grammteilen. Hierbei wird versucht zu beweisen, ob ein Programm 
in allen Belangen korrekt arbeitet. 
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